HelpF.pro

Отправка почтового сообщения на локальный MS Office Outlook с вложенным файлом

Код 1C v 8.х
  // Пробуем подключиться
		Профиль = Новый ИнтернетПочтовыйПрофиль;
		// Получение почты нам не нужно, коментируем
		//	Профиль.АдресСервераPOP3 = POP3Сервер;
		Профиль.АдресСервераSMTP = СокрЛП(Константы.SMTPSERVER.Получить()); // айпишник екченжа
		//Если ВремяОжиданияСервера > 0 Тогда
		//	Профиль.ВремяОжидания = ВремяОжиданияСервера;
		//КонецЕсли; 
		Профиль.Пароль           = СокрЛП(Константы.SMTPSERVERPASSWORD.Получить());
		Профиль.Пользователь     = СокрЛП(Константы.SMTPSERVERLOGIN.Получить());
		//Профиль.ПортPOP3         = ПортPOP3;
		Профиль.ПортSMTP         = СокрЛП(Константы.SMTPSERVERPORT.Получить());
		
		Профиль.ПарольSMTP       = СокрЛП(Константы.SMTPSERVERPASSWORD.Получить());
		Профиль.ПользовательSMTP = СокрЛП(Константы.SMTPSERVERLOGIN.Получить());
		
		//Профиль.ПарольSMTP       = УчетнаяЗапись.Пароль;
		//Профиль.ПользовательSMTP = УчетнаяЗапись.Логин;
		
		ИнтернетПочта = Новый ИнтернетПочта;
		Попытка
			ИнтернетПочта.Подключиться(Профиль);
		Исключение
			Сообщить(ОписаниеОшибки());
		КонецПопытки;
		
		ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение;
		ПочтовоеСообщение.ИмяОтправителя  = "1C-ka";
		ПочтовоеСообщение.Отправитель     = СокрЛП(Отправитель.Email);
		ПочтовоеСообщение.Тема            = Тема;
		
		ПочтовоеСообщение.Получатели.Добавить(СокрЛП(Получатель.Email));
		ПочтовоеСообщение.Тексты.Добавить(ТекстПисьма, ТипТекстаПочтовогоСообщения.ПростойТекст);
		
		Если Не пустаястрока(файл) Тогда
			Данные = Новый ДвоичныеДанные(файл); 
			ПочтовоеСообщение.Вложения.Добавить(Данные,файлн); 	
		конецесли;	
		попытка
			ИнтернетПочта.Послать(ПочтовоеСообщение);
		исключение
			Сообщить(ОписаниеОшибки());
		конецпопытки;    

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq8/view/395.html