Отправка данных через встроенный почтовый клиент 1С

1. Nazymlp 12.03.12 15:20 Сейчас в теме

Добрый день коллеги!, у меня есть к Вам опытным программистам вопрос, сам с 1С знаком несколько недель.

использую 1С 8.2 конфу УТП

В документе "расходный ордер на товары" создал новую вкладку "Отгрузка"
создал там новые поля и кнопку "отправить по Еmail". Теперь мне нужно как то получить введенные данные из этих полей, и отправить по Email-у через встроенный почтовые клиент, чтобы эти данные легли в текст письма. есть скрин. Возможно кто нибудь уже реализовывал такой механизм. буду благодарен за любые советы.

СПАсИБо)

Прикрепленные файлы:

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Diego_Iv 34 13.03.12 10:47 Сейчас в теме

Можно сделать печатную форму к документу (можно и внешнюю) в которую выводить нужные данные.
И уже эту форму отправлять по почте как вложение - это 1С умеет делать.

3. Cerberdm 42 16.03.12 10:15 Сейчас в теме

Вырвал кусок из своей обработки отправки сообщений. Может поможет

	ПочтовоеСообщение 								= Новый ИнтернетПочтовоеСообщение;
	ПочтовоеСообщение.Отправитель 					= СокрЛП(Отправитель); 
	ПочтовоеСообщение.ИмяОтправителя 				= СокрЛП(ИмяОтправителя);
	ПочтовоеСообщение.Тема 							= Тема; 
	ПочтовоеСообщение.Тексты.Добавить("С Уважением, "+глЗначениеПеременной("ОсновнаяОрганизация"));
	ПочтовоеСообщение.Тексты.Получить(0).ТипТекста 	= ТипТекстаПочтовогоСообщения.HTML;
	ПочтовоеСообщение.Получатели.Добавить(ЭлАдрес);
	ПочтовоеСообщение.Вложения.Добавить(ПолноеИмяФайла);	
	
	ПочтовыйПрофиль = Новый ИнтернетПочтовыйПрофиль; 
	ПочтовыйПрофиль.АдресСервераSMTP   	= СокрЛП(АдресСервераSMTP);
	ПочтовыйПрофиль.ПортSMTP           	= 25; 
	ПочтовыйПрофиль.ПользовательSMTP   	= СокрЛП(ПользовательSMTP); 
	ПочтовыйПрофиль.ПарольSMTP         	= СокрЛП(Пароль);  
	ПочтовыйПрофиль.ВремяОжидания      	= 30; 
	ПочтовыйПрофиль.АутентификацияSMTP  = СпособSMTPАутентификации.Login;
	
	Почта = Новый ИнтернетПочта(); 
	Ошибка = ложь;
	Попытка 
		Почта.Подключиться(ПочтовыйПрофиль); 
	Исключение 
		Сообщить("Ошибка при подключении к почтовому профилю! Почта не отправлена! " +                    ОписаниеОшибки(), СтатусСообщения.ОченьВажное); 
		Сообщить("проверьте параметры или соединение с интернетом", СтатусСообщения.ОченьВажное); 
		Ошибка = Истина;
		Возврат Неопределено;
	КонецПопытки;
	Почта.Послать(ПочтовоеСообщение);
	Почта.Отключиться();
	Сообщить("ОКОНЧАНИЕ ОТПРАВКИ: "+Строка(ТекущаяДата()));

Показать

Оставьте свое сообщение

E-mail: