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