Отправка электронной почты
Профиль = Новый ИнтернетПочтовыйПрофиль;
Профиль.АдресСервераSMTP = "";
Профиль.ПользовательSMTP = "";
Профиль.ПарольSMTP = "";
Профиль.ИспользоватьSSLSMTP = false;
Профиль.ПортSMTP = 25;
Профиль.АутентификацияSMTP = СпособSMTPАутентификации.БезАутентификации;
Письмо = Новый ИнтернетПочтовоеСообщение;
Текст1 = Письмо.Тексты.Добавить(Текст);
Текст1.ТипТекста = ТипТекстаПочтовогоСообщения.ПростойТекст;
Письмо.Тема = Тема;
Письмо.Отправитель = "";
Письмо.ИмяОтправителя = "Сообщение от 1с";
Письмо.Получатели.Добавить("");
Почта = Новый ИнтернетПочта;
Попытка
Почта.Подключиться(Профиль);
Сообщить("Подключено");
Исключение
Сообщить("Не удалось подключиться к серверу");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Попытка
Почта.Послать(Письмо);
Сообщить("Письмо отправлено");
Исключение
Сообщить("Не удалось отправить письмо");
Сообщить(ОписаниеОшибки());
КонецПопытки;
Почта.Отключиться();
Сообщить("Соединение завершено");
Описание дублирует название. Удалите описание, если информации в заголовке достаточно.
ПроверитьВозможностьОтправкиИПолученияЭлектроннойПочты (БСП)
ПолучитьУчетнуюЗаписьДляОтправкиПоУмолчанию (БСП)
ПолучитьДоступныеУчетныеЗаписиДляОтправки (БСП)