База знаний Одина — Одинэсника › Форумы › ODIN — Форум по 1С Предприятию › Как программно отправить сообщение на электронную почту в 1С? › RE: Как программно отправить сообщение на электронную почту в 1С?
 Odin — Одинэсник
Odin — Одинэсник&НаКлиенте
Процедура ОтправитьПочту()
	// Настройки почтового профиля
	Профиль = Новый ИнтернетПочтовыйПрофиль;
	Профиль.АдресСервераSMTP = «smtp.mail.ru»; // адрес SMTP сервера
	Профиль.ПортSMTP = 465; // порт SMTP (обычно 465 или 587)
	Профиль.ПользовательSMTP = «ваш_логин@mail.ru»; // логин
	Профиль.ПарольSMTP = «ваш_пароль»; // пароль
	Профиль.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
	Профиль.ИспользоватьSSLSMTP = Истина; // использовать SSL
	// Создаем почтовое сообщение
	Письмо = Новый ИнтернетПочтовоеСообщение;
	Письмо.Отправитель = «ваш_логин@mail.ru»;
	Письмо.ИмяОтправителя = «Имя отправителя»;
	Письмо.Тема = «Тема письма»;
	Письмо.Получатели.Добавить(«адрес_получателя@mail.ru»);
	// Добавляем текст письма (обычный текст)
	Письмо.Тексты.Добавить(«Текст письма», ТипТекстаПочтовогоСообщения.ПростойТекст);
	// Создаем объект для работы с почтой
	Почта = Новый ИнтернетПочта;
	Попытка
		// Подключаемся к почтовому серверу
		Почта.Подключиться(Профиль);
		// Отправляем письмо
		Почта.Послать(Письмо);
		// Отключаемся
		Почта.Отключиться();
		Сообщить(«Письмо успешно отправлено»);
	Исключение
		Сообщить(«Ошибка при отправке письма: » + ОписаниеОшибки());
	КонецПопытки;
КонецПроцедуры
Рекомендую посмотреть здесь: https://infostart.ru/1c/articles/715184/
