Отправка писем с приложением эксель для БП

Vitor 13 1 1
1С

Отправка сформированного табличного документа в формате эксель для БП

Процедура СформироатьТабДок()
	ТабДок = Новый ТабличныйДокумент;  
	ОблШапка = Макет.ПолучитьОбласть("Шапка");
	ТабДок.Вывести(ОблШапка);
	ПотокВПамяти = Новый ПотокВПамяти();
	ТабДок.Записать(ПотокВПамяти, ТипФайлаТабличногоДокумента.XLSX); 
	ДвоичныеДанные = ПотокВПамяти.ЗакрытьИПолучитьДвоичныеДанные();
	Тема = "Тема от: "+Строка(Формат(ТекущаяДата()-86400, "ДФ=dd.MM.yyyy"));
	ТекстПисьма = "";
	ОтправитьEmail("Адрес отправки", , Тема, ТекстПисьма, ДвоичныеДанные, "Имя отправителя");
КонецПроцедуры   

&НаСервере
Процедура ОтправитьEmail(АдресПочты, Копия = Неопределено, Тема, ТекстПисьма, Вложение = Неопределено, ИмяОтправителя) 
	Профиль  = Новый ИнтернетПочтовыйПрофиль;
	Профиль.АдресСервераIMAP = "imap.mail.ru";
	Профиль.АдресСервераSMTP = "smtp.mail.ru";
	Профиль.ПортSMTP = 465;
	Профиль.ПортIMAP = 993;
	Сообщение = Новый ИнтернетПочтовоеСообщение;
	Профиль.Пользователь = "Пользователь";
	Профиль.Пароль = "Пароль";
	Профиль.ПользовательSMTP = "ПользовательSMTP";
	Профиль.ПарольSMTP = "ПарольSMTP";
	Сообщение.Отправитель.Адрес = "Адрес";
	Сообщение.ИмяОтправителя = ИмяОтправителя;
	Профиль.ИспользоватьSSLSMTP = Истина;
	Сообщение.Получатели.Добавить(АдресПочты);
	Сообщение.Тема = Тема;
	Сообщение.Тексты.Добавить(ТекстПисьма, ТипТекстаПочтовогоСообщения.ПростойТекст); 
	Если Вложение <> Неопределено тогда                           
		Тема = Тема+".xlsx";
		Сообщение.Вложения.Добавить(Вложение,Тема);
	КонецЕсли;
	Почта = Новый ИнтернетПочта;
	Попытка
		Почта.Подключиться(Профиль); 
		Почта.Послать(Сообщение);
		Почта.Отключиться();
	Исключение
		Сообщить(ОписаниеОшибки());
	КонецПопытки;
КонецПроцедуры
0 
Орфографическая ошибка в эксель (найдено 2): эксель
Орфографическая ошибка в СформироатьТабДок: Сформироать
Орфографическая ошибка в smtp: smtp
‹ ›

См. также

ПолучениеИОтправкаЭлектронныхПисем (БСП)

ДоступнаОтправкаПисем (БСП)

ПроверитьНаличиеУчетнойЗаписиДляОтправкиПочты (БСП)

Загрузка данных из Excel

УстановитьПапкиДляМассиваПисем (БСП)

ДанныеХранимыхВБазеПисемВложений (БСП)

УстановитьПапкуДляМассиваПисем (БСП)

ВыполнитьУдалениеПапкиЭлектронныхПисем (БСП)

ТипТекстовЭлектронныхПисем (БСП)

Модератору