Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
18 апр 2024, 03:26

Как сделать в 1с 7.7 отправку почты

Автор krasdok, 28 окт 2014, 12:36

0 Пользователей и 1 гость просматривают эту тему.

krasdok

Здравствуйте!
Нужно сделать в 1с 7.7 отправку бланков результатов анализов на почту пациента.
Пробую использовать ROM-Mail.dll, но она не хочет подключать меня к серверу.
Не удалось подключиться к почтовому серверу


//*******************************************
Процедура Сформировать()
   //Пытаемся подключить компоненту. она должна находится в каталоге программы или каталоге базы
Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда
Сообщить("Не удалось загрузить внешнюю компоненту ROM-Mail.dll");
Возврат;
Конецесли;




//Подключаемся к почте с указанными параметрами
Почта = СоздатьОбъект("AddIn.AddInMail");
//Почта.СерверОтправки = "94.100.180.160"; 
Почта.СерверОтправки = "smtp.mail.ru";
Почта.ПортОтправки = 25;
Почта.Логин = "andrey_krasdok@mail.ru"; //при необходимости
Почта.Пароль = "**********";//при необходимости   
Почта.АутентификацияПриОтправке=1;




//Если подключение не удачное прерываем обработку
Если Почта.Соединение = 0 Тогда
Если Почта.Подключиться("Отправка")=0 Тогда //ТУТ ВСЕ ОСТАНАВЛИВАЕТСЯ
Сообщить("Не удалось подключиться к почтовому серверу","!");
Возврат;
Конецесли;
Конецесли;


//Формируем сообщение
Почта.Важность = 0;
Почта.Кодировка = "windows-1251";
Почта.ТипПисьма = 2;
Почта.АдресОтправителя = "com-servic@bk.ru";
Почта.ИмяОтправителя = "Вася";


//указываем получателей письма
Почта.ДобавитьАдрес("krasdok@yandex.ru","Петя","krasdok@yandex.ru");


//если необходимо добавляем вложения
//Почта.Вложения = ФайлВложения;


Почта.Тема = "Тема письма ";
Почта.Тело = "Текст письма";


//Пытаемся отправить
Если Почта.Соединение=0 Тогда
Сообщить("Соединение потеряно","!");
ИначеЕсли Почта.Отправить()=1 Тогда
Сообщить("Почтовое сообщение отправлено","i");
Иначе
Сообщить("Не удалось отправить сообщение","!");
Конецесли;


//Отключаемся
Почта.Отключиться();


КонецПроцедуры


дфтын

Помог? Нажми - Спасибо :)
skype: Soprov1C

Herby

может пароль/логин не верные?

можешь попробовать другую вк: DialMail.dll
Добавлено: 28 окт 2014, 16:51


В гугле нашел, что MAIL.RU сейчас работает по протоколу SSL, и вот ROM-MAIL.DLL с этим протоколом не дружит.
Пользуйтесь DialMail.dll

krasdok

Спасибо! Я уже понял что другую dll надо использовать...DialMail.dll
Добавлено: 29 окт 2014, 11:34


:zebzdr: Спасибо!!! С DialMail.dll все заработало!!!

Теги:

Похожие темы (2)

Рейтинг@Mail.ru

Поиск