HelpF.pro

Отправка электронной почты с клиента

Код 1C v 8.2 УП
 &НаКлиенте
Процедура Отправить(Команда)
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "smtp.yandex.ru";
Профиль.ПортSMTP = 587;
Профиль.Пользователь = "info@test.ru";
Профиль.Пароль = "12345";
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Профиль.ПарольSMTP = "12345";
Профиль.ПользовательSMTP = "info@test.ru";

Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);

Исключение
Сообщить("Ошибка при подключении к серверу" + ОписаниеОшибки());
Возврат;
КонецПопытки;

Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Отправитель = "info@test.ru";
Сообщение.Получатели.Добавить("info@ya.ru");
Сообщение.Тема = "Выгрузка";
Сообщение.Тексты.Добавить("Сабж",ТипТекстаПочтовогоСообщения.HTML);
Сообщение.Вложения.Добавить("C:\1.xls");
Почта.Послать(Сообщение);
Почта.Отключиться();

КонецПроцедуры

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq/view/1408.html