Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "smtp.mail.ru";
Профиль.ПортSMTP = 465;
Профиль.ПользовательSMTP = "robot@mail.ru";
Профиль.ПарольSMTP = "s3cret";
Профиль.ИспользоватьSSLSMTP = Истина;
Письмо = Новый ИнтернетПочтовоеСообщение;
Письмо.Тема = "Акт за июль";
Письмо.Отправитель = "robot@mail.ru";
Письмо.ИмяОтправителя = "Робот";
//Получатели - коллекция: Добавить даёт
//пустой адрес, который тут же заполняют
Адрес = Письмо.Получатели.Добавить();
Адрес.Адрес = "buh@example.com";
//Тексты тоже коллекция: одно письмо может
//нести и простой текст, и разметку
Тело = Письмо.Тексты.Добавить();
Тело.Текст = "Акт готов, ждем подписи.";
Тело.ТипТекста =
ТипТекстаПочтовогоСообщения.ПростойТекст;
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);
Почта.Послать(Письмо);
Почта.Отключиться();
Сообщить("Отправлено");
Исключение
Сообщить(ИнформацияОбОшибке().Описание);
КонецПопытки;