Отправка email

[frolkin.s]

Добрый день, всем! 1с 8.2 УНФ. Подскажите пожалуйста как отправить например счет по электронке:
Во-первых, поле "кому" нужно вводить вручную, а хотелось бы из справочника контрагентов;
Во-вторых, после выбора учетной записи (хотелось бы чтобы вообще по умолчанию ставилась) выдает вот такую ошибку http://ybex.com/d/bvqdgeukp5hlbzoaue...610ghxfbi.html.

[zay]

Вот функция, которая после определенной модификации дает возможность отправлать письма автоматом

//    Все параметры текстовые, кроме:
//    пВложения - массив, эл-ты массива - строки, имена файлов с полным путем
//    пРегламентированноеЗадание - объект "моей" базы, перечисление
//                  нужен исключительно для управления логированием ( процедура МодульРегламентныхЗаданий.ЗаписатьСведеньяОбОшибке(...) )

Функция ОтправитьЭлектронноеПисьмоHTML(
							пАдрес,
							пИмяОтправителя = "Произвольное описание отправителя",
							пОтправитель = "ЛогинОтправителя@Адрес.Почтового.Сервера",
							пТема,
							пТекст,
							пВложения,
							пОписаниеПисьма = "",
							пРегламентированноеЗадание = Неопределено
							) Экспорт
	
	
	ПочтовыйПрофиль = ПолучитьПочтовыйПрофиль();
	
	Сообщение = Новый ИнтернетПочтовоеСообщение;
	
	Если ПустаяСтрока(пАдрес) Тогда
		Если пРегламентированноеЗадание <> Неопределено Тогда
			МодульРегламентныхЗаданий.ЗаписатьСведеньяОбОшибке(пРегламентированноеЗадание, "В электронном письме ("+пОписаниеПисьма+") не указан адрес");
		Иначе
			ОбщегоНазначения.СообщитьОбОшибке("Ошибка! В электронном письме ("+пОписаниеПисьма+") не указан адрес",,, СтатусСообщения.ОченьВажное);
		КонецЕсли;
		Возврат ложь;
	КонецЕсли;
	
	Сообщение.Получатели.Добавить(пАдрес);
	Сообщение.Тема =пТема;
	Сообщение.ИмяОтправителя=пИмяОтправителя;
	Сообщение.Отправитель=пОтправитель;
	
	Для каждого лИмяФайлВложения из пВложения Цикл
		Если ПустаяСтрока(лИмяФайлВложения) Тогда
			Продолжить;
		КонецЕсли;
		Попытка
			Сообщение.Вложения.Добавить(лИмяФайлВложения);
		Исключение
			Если пРегламентированноеЗадание <> Неопределено Тогда
				МодульРегламентныхЗаданий.ЗаписатьСведеньяОбОшибке(пРегламентированноеЗадание, "Присоединение к письму вложения" + лИмяФайлВложения, ОписаниеОшибки());
			Иначе
				ОбщегоНазначения.СообщитьОбОшибке(ОписаниеОшибки(),,"Ошибка при присоединении вложения к электронному письму", СтатусСообщения.ОченьВажное);
			КонецЕсли;
			Возврат ложь;
		КонецПопытки;
	КонецЦикла;
	
	Сообщение.Кодировка = "windows-1251";
	
	ТекстПисьма = Сообщение.Тексты.Добавить(пТекст);
	ТекстПисьма.Кодировка = "windows-1251";
	ТекстПисьма.ТипТекста = ТипТекстаПочтовогоСообщения.HTML;
	
	Почта = Новый ИнтернетПочта();
	
	Попытка
		Почта.Подключиться(ПочтовыйПрофиль);
	Исключение
		Если пРегламентированноеЗадание <> Неопределено Тогда
			МодульРегламентныхЗаданий.ЗаписатьСведеньяОбОшибке(пРегламентированноеЗадание, "Подключение к почтовому профилю по умолчанию", ОписаниеОшибки());
		Иначе
			ОбщегоНазначения.СообщитьОбОшибке(ОписаниеОшибки(),,"Ошибка при подключению к почтовому профилю", СтатусСообщения.ОченьВажное);
		КонецЕсли;
		Возврат ложь;
	КонецПопытки;
		
	Попытка
		Почта.Послать(Сообщение);
	Исключение
		Если пРегламентированноеЗадание <> Неопределено Тогда
			МодульРегламентныхЗаданий.ЗаписатьСведеньяОбОшибке(пРегламентированноеЗадание, "Отправка электронного письма "+пАдрес, ОписаниеОшибки());
		Иначе
			ОбщегоНазначения.СообщитьОбОшибке(ОписаниеОшибки(),,"Ошибка при отправке электронного письма на адрес "+пАдрес, СтатусСообщения.ОченьВажное);
		КонецЕсли;
		Возврат ложь;
	КонецПопытки;
	
	Почта.Отключиться();
	
	Возврат истина;
	
КонецФункции

В функции используется функция ПолучитьПочтовыйПрофиль. В этой функции необходимо проставить "свои" настройки почтового сервера

Функция ПолучитьПочтовыйПрофиль()
	
	Профиль = Новый ИнтернетПочтовыйПрофиль;
	
	Профиль.АдресСервераSMTP	= "ХХХ.ХХХ.ХХХ.ХХХ";
	Профиль.АдресСервераPOP3	= "ХХХ.ХХХ.ХХХ.ХХХ";
	Профиль.Пользователь		= "ЛогинОтправителя";
	Профиль.Пароль			= "ПарольОтправителя";
	Профиль.ПортSMTP		= ХХ;
	Профиль.ПортPOP3		= ХХХ;
	Профиль.ВремяОжидания		= ХХ;
	
	Возврат Профиль;
	
КонецФункции

Помимо этого используется функция МодульРегламентныхЗаданий .ЗаписатьСведеньяОбОшибке( ...)
Реализацию не публикую. Думаю что каждый должен реализовывать ее самостоятельно, в зависимости от принятой политики работы с логами.

[piterpen323323]

Попробуй использовать эту бесплатную программу
http://infostart.ru/public/124513/