1C шаблоны и готовые решения

Ноябрь 12, 2014

Отправить почту из 1С

Filed under: — admin @ 10:05 дп
Процедура ОтправитьEmail(АдрессПочты, ТемаСообщения, ТекстСообщения) Экспорт 
		
	Профиль = Новый ИнтернетПочтовыйПрофиль;
	Профиль.АдресСервераSMTP     = "smtpserver.ru"; 	
	Профиль.ПортSMTP             = 25;
	Профиль.ПортPOP3             = 110;
	Профиль.Пользователь 	     = "user";
	Профиль.Пароль 		     = "password";
	Профиль.АутентификацияSMTP   = СпособSMTPАутентификации.ПоУмолчанию;
	Профиль.ПарольSMTP           = Профиль.Пароль;
	Профиль.ПользовательSMTP     = Профиль.Пользователь; 
	
	ИнтернетПочта = Новый ИнтернетПочта;
 
	Попытка
		ИнтернетПочта.Подключиться(Профиль);
	Исключение
		ЗаписьЖурналаРегистрации(ОписаниеОшибки());
 	КонецПопытки;
 
	Сообщение = Новый ИнтернетПочтовоеСообщение;
	Сообщение.Кодировка	  = "KOI8-R";
  	Сообщение.Отправитель     = "user@corp.com"; 
	Сообщение.Вложения.Добавить("D:\test.txt","документ");
	Сообщение.Получатели.Добавить(АдрессПочты);
	
	Сообщение.Тема = ТемаСообщения;

	Сообщение.Тексты.Добавить(ТекстСообщения);
	
	Попытка
		ИнтернетПочта.Послать(Сообщение);
	Исключение
		ЗаписьЖурналаРегистрации(ОписаниеОшибки());
	КонецПопытки;
	
	ИнтернетПочта.Отключиться();
 	
КонецПроцедуры

Powered by WordPress

Яндекс.Метрика nikol_dn@list.ru