Функция ПослатьПоПочте(Знач Адрессаты,ТемаСообщения = "",СообщениеТекст = "" ,СписокВложений = "")Экспорт
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.Пользователь = "";
Профиль.Пароль = "";
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Профиль.АдресСервераSMTP = "";
Профиль.ПарольSMTP = "";
Профиль.ПользовательSMTP = "";
Профиль.ПортSMTP = 587;
ТекстСообщения = ?(СообщениеТекст="","",СообщениеТекст);
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);
Исключение
Сообщить(ОписаниеОшибки());
Возврат Ложь;
КонецПопытки;
Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Отправитель = "messages@pochta.ru";
Сообщение.Получатели.Добавить(Адрессаты);
Сообщение.Тема = ?(ТемаСообщения="","Тут тема", ТемаСообщения);
Сообщение.Тексты.Добавить(ТекстСообщения,ТипТекстаПочтовогоСообщения.HTML);
Если ТипЗнч(СписокВложений) = Тип("Строка") И Не СписокВложений = "" Тогда
Попытка
Сообщение.Вложения.Добавить(СписокВложений);
Исключение
КонецПопытки;
ИначеЕсли ТипЗнч(СписокВложений) = Тип("СписокЗначений") Тогда
Для каждого ПутьКВложению Из СписокВложений Цикл
Попытка
Сообщение.Вложения.Добавить(ПутьКВложению.Значение);
Исключение
КонецПопытки;
КонецЦикла;
КонецЕсли;
Попытка
Почта.Послать(Сообщение);
Исключение
Сообщить(ОписаниеОшибки());
Почта.Отключиться();
Возврат Ложь;
КонецПопытки;
Почта.Отключиться();
КонецФункции