Office Outlook

 // Пробуем подключиться

		Профиль = Новый ИнтернетПочтовыйПрофиль;

		// Получение почты нам не нужно, коментируем

		//	Профиль.АдресСервераPOP3 = POP3Сервер;

		Профиль.АдресСервераSMTP = СокрЛП(Константы.SMTPSERVER.Получить()); // айпишник екченжа

		//Если ВремяОжиданияСервера > 0 Тогда

		//	Профиль.ВремяОжидания = ВремяОжиданияСервера;

		//КонецЕсли; 

		Профиль.Пароль           = СокрЛП(Константы.SMTPSERVERPASSWORD.Получить());

		Профиль.Пользователь     = СокрЛП(Константы.SMTPSERVERLOGIN.Получить());

		//Профиль.ПортPOP3         = ПортPOP3;

		Профиль.ПортSMTP         = СокрЛП(Константы.SMTPSERVERPORT.Получить());

		

		Профиль.ПарольSMTP       = СокрЛП(Константы.SMTPSERVERPASSWORD.Получить());

		Профиль.ПользовательSMTP = СокрЛП(Константы.SMTPSERVERLOGIN.Получить());

		

		//Профиль.ПарольSMTP       = УчетнаяЗапись.Пароль;

		//Профиль.ПользовательSMTP = УчетнаяЗапись.Логин;

		

		ИнтернетПочта = Новый ИнтернетПочта;

		Попытка

			ИнтернетПочта.Подключиться(Профиль);

		Исключение

			Сообщить(ОписаниеОшибки());

		КонецПопытки;

		

		ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение;

		ПочтовоеСообщение.ИмяОтправителя  = "1C-ka";

		ПочтовоеСообщение.Отправитель     = СокрЛП(Отправитель.Email);

		ПочтовоеСообщение.Тема            = Тема;

		

		ПочтовоеСообщение.Получатели.Добавить(СокрЛП(Получатель.Email));

		ПочтовоеСообщение.Тексты.Добавить(ТекстПисьма, ТипТекстаПочтовогоСообщения.ПростойТекст);

		

		Если Не пустаястрока(файл) Тогда

			Данные = Новый ДвоичныеДанные(файл); 

			ПочтовоеСообщение.Вложения.Добавить(Данные,файлн); 	

		конецесли;	

		попытка

			ИнтернетПочта.Послать(ПочтовоеСообщение);

		исключение

			Сообщить(ОписаниеОшибки());

		конецпопытки;