7.7 Почта

Тема в разделе "Отчеты и обработки для "1С:Предприятие 7.7"", создана пользователем mazza, 6 окт 2010.

  1. TopicStarter Overlay
    mazza
    Offline

    mazza Опытный в 1С

    Регистрация:
    4 фев 2009
    Сообщения:
    138
    Симпатии:
    0
    Баллы:
    26
    Почему не отправляет письмо? Пишет ошибку: Не удалось отправить сообщение
    Код:
     
    Процедура ОтправитьПочту()
    
    //Пытаемся подключить компоненту. она должна находится в каталоге программы или каталоге базы
    Если ЗагрузитьВнешнююКомпоненту("ROM-Mail.dll")=0 Тогда
    Сообщить("Не удалось загрузить внешнюю компоненту ROM-Mail.dll");
    Возврат;
    Конецесли;   
    
    
    //Подключаемся к почте с указанными параметрами
    Почта          = СоздатьОбъект("AddIn.AddInMail");   
    Почта.СерверОтправки  = "smtp.yandex.ru";
    Почта.ПортОтправки    = "587";  
    Почта.Логин        = "ofis.server@yandex.ru";
    Почта.Пароль      = "*****";
    
    
    //Если подключение не удачное прерываем обработку
    Если Почта.Соединение = 0 Тогда
    Если Почта.Подключиться("Отправка")=0 Тогда
    Сообщить("Не удалось подключиться к почтовому серверу","!");
    Возврат;
    Конецесли;
    Конецесли;  
    
    //Формируем сообщение
    Почта.Важность    = 0;
    Почта.Кодировка    = "windows-1251";
    Почта.ТипПисьма    = 2;
    Почта.АдресОтправителя  = "АдресОтправителя"; 
    Почта.ИмяОтправителя  = "Вася";
    ИмяПолучателя = "а"; 
    АдресПолучателя = "magazin.tkprodukty@yandex.ru";
    //указываем получателей письма
    Почта.ДобавитьАдрес("АдресПолучателя",ИмяПолучателя,АдресПолучателя);
    
    //если необходимо добавляем вложения 
    Почта.Вложения = "D:\Документы\Login.docx";
    
    
    Почта.Тема  = "Тема письма ";
    Почта.Тело  = "Отчет";   
    
    //Пытаемся отправить
    Если Почта.Соединение=0 Тогда
    Сообщить("Соединение потеряно","!");
    ИначеЕсли Почта.Отправить()=1 Тогда
    Сообщить("Почтовое сообщение отправлено","i");
    Иначе
    Сообщить("Не удалось отправить сообщение","!");
    Конецесли;    
    
    //Отключаемся
    Почта.Отключиться();
    КонецПроцедуры    
    
    
  2. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.520
    Симпатии:
    407
    Баллы:
    104
    С каких это пор порт отправки стал 587? Для IMAP-сервера нужно указать порт 993, а для SMTP - 465 или по старинке 25.
Похожие темы
  1. VIN
    Ответов:
    4
    Просмотров:
    2.975
  2. juve123
    Ответов:
    6
    Просмотров:
    1.035
Загрузка...

Поделиться этой страницей