HelpF.pro

Отправка почтового сообщения на локальный MS Office Outlook с вложенным файлом

Код 1C v 8.х
  // Пробуем подключиться
Профиль = Новый ИнтернетПочтовыйПрофиль;
// Получение почты нам не нужно, коментируем
// Профиль.АдресСервераPOP3 = POP3Сервер;
Профиль.АдресСервераSMTP = СокрЛП(Константы.SMTPSERVER.Получить()); // айпишник екченжа
//Если ВремяОжиданияСервера > 0 Тогда
// Профиль.ВремяОжидания = ВремяОжиданияСервера;
//КонецЕсли;
Профиль.Пароль = СокрЛП(Константы.SMTPSERVERPASSWORD.Получить());
Профиль.Пользователь = СокрЛП(Константы.SMTPSERVERLOGIN.Получить());
//Профиль.ПортPOP3 = ПортPOP3;
Профиль.ПортSMTP = СокрЛП(Константы.SMTPSERVERPORT.Получить());

Профиль.ПарольSMTP = СокрЛП(Константы.SMTPSERVERPASSWORD.Получить());
Профиль.ПользовательSMTP = СокрЛП(Константы.SMTPSERVERLOGIN.Получить());

//Профиль.ПарольSMTP = УчетнаяЗапись.Пароль;
//Профиль.ПользовательSMTP = УчетнаяЗапись.Логин;

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

ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение;
ПочтовоеСообщение.ИмяОтправителя = "1C-ka";
ПочтовоеСообщение.Отправитель = СокрЛП(Отправитель.Email);
ПочтовоеСообщение.Тема = Тема;

ПочтовоеСообщение.Получатели.Добавить(СокрЛП(Получатель.Email));
ПочтовоеСообщение.Тексты.Добавить(ТекстПисьма, ТипТекстаПочтовогоСообщения.ПростойТекст);

Если Не пустаястрока(файл) Тогда
Данные = Новый ДвоичныеДанные(файл);
ПочтовоеСообщение.Вложения.Добавить(Данные,файлн);
конецесли;
попытка
ИнтернетПочта.Послать(ПочтовоеСообщение);
исключение
Сообщить(ОписаниеОшибки());
конецпопытки;

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