Отправка email
X

Привет дорогой друг

Наш сайт существует и развиваетется за счет рекламы. Пожалуйста, отключите блокировку рекламы AdBlock или подобное, для нашего сайта. Спасибо!
Показано с 1 по 3 из 3

Комбинированный просмотр

  1. #1
    Гость форума

    Регистрация
    24.02.2011
    Сообщений
    3
    Сказал(а) спасибо
    1
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию Отправка email

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

  2. #2
    Пришел за помощью

    Регистрация
    04.07.2011
    Адрес
    Киев
    Сообщений
    23
    Сказал(а) спасибо
    53
    Поблагодарили 18 раз(а) в 8 сообщениях

    По умолчанию

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

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

  3. #3
    Гость форума

    Регистрация
    30.01.2012
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

    По умолчанию

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

Похожие темы

  1. Ответов: 3
    Последнее сообщение: 09.06.2010, 17:45

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •