пример отчета, в котором есть код для отправки по емаилу

1. sajmon45 25.10.21 23:45 Сейчас в теме
Есть у кого-нибудь пример отчета, в котором есть код для отправки его по емаилу?
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. Oldsad 26.10.21 01:59 Сейчас в теме
отправка по почте реализована в БСП, можно посмотреть там
3. gorakh 26 26.10.21 11:24 Сейчас в теме
Работающий пример кода
	// Профиль=Новый ИнтернетПочтовыйПрофиль;
	//Профиль.АдресСервераSMTP="mail.*";
	//Профиль.ПортSMTP=;
	//Профиль.ИспользоватьSSLSMTP=Ложь;
	//Профиль.ПользовательSMTP="1c";
	//Профиль.Пароль = "***********";
	//Профиль.ПарольSMTP =  "**************";
	//Профиль.АутентификацияSMTP = Истина;
	//Профиль.Таймаут = 60 ;
	ИПП = ПолучитьИнтернетПочтовыйПрофиль();
	
	Сообщение = Новый ИнтернетПочтовоеСообщение;
	Сообщение.Кодировка = "UTF-8";
	Сообщение.Получатели.Добавить("a****@gmail.com");

	
	Сообщение.Отправитель.Адрес = "1*@*****.com";
	
	Сообщение.Тема = "очень нужный отчет";
	Попытка
		Сообщение.Вложения.Добавить(ПолноеИмяФайла,"Отчет");
	Исключение
		ТекстПисьма = ТекстПисьма + "Не удалось добавить вложение! " + ОписаниеОшибки() + Символы.ПС;
	КонецПопытки;
	Сообщение.Тексты.Добавить(ТекстПисьма);
	
	Почта = Новый ИнтернетПочта;
	Попытка
		Почта.Подключиться(ИПП);
		Почта.Послать(Сообщение);	
	Исключение
		ЗаписьЖурналаРегистрации("Ошибка при отправке почты", 
		УровеньЖурналаРегистрации.Ошибка, , ,
		"Во время отправки почты произошла ошибка: " + ОписаниеОшибки());
		#Если Клиент Тогда 
			Сообщить("Не удалось отправить  : "  + ОписаниеОшибки());
		#КонецЕсли	
	КонецПопытки;
	
	
	Почта.Отключиться();
	Попытка	
		УдалитьФайлы(ПолноеИмяФайла);	
	Исключение
Показать
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот