не получается отправить эл.сообщение программно

[altaykniga]

Всем привет. Прошу помощи умных людей. Гляньте код, что не так написал? Ошибок при выполнении кода не возникает, но фактически эл.письмо на указанный в коде эл.ящик не приходит. Код написал в форме внешней обработки.

    СисУчетка = справочники.УчетныеЗаписиЭлектроннойПочты.СистемнаяУчетнаяЗаписьЭлектроннойПочты;   
    Письмо = Новый ИнтернетПочтовоеСообщение;
    Письмо.ИмяОтправителя = ПараметрыСеанса.ТекущийПользователь;
    Письмо.Отправитель    = сисучетка.АдресЭлектроннойПочты;
    Получатель       = Письмо.Получатели.Добавить();
    Получатель.Адрес = ".......@yandex.ru";
    Письмо.Тема =  "автоматом ушло";
   
    ПрофильОтправки = Новый ИнтернетПочтовыйПрофиль;
    ПрофильОтправки.АдресСервераSMTP = СисУчетка.SMTPСервер;
    ПрофильОтправки.ПортSMTP =  СисУчетка.ПортSMTP;
    ПрофильОтправки.АдресСервераPOP3 = СисУчетка.POP3Сервер;
    ПрофильОтправки.ПортPOP3 = СисУчетка.ПортPOP3;
   
    ПрофильОтправки.АутентификацияSMTP=СпособSMTPАутентификации.БезАутентификации;
    //ПрофильОтправки.ПользовательSMTP   = СисУчетка.Логин;

    //ПрофильОтправки.ПарольSMTP         = СисУчетка.Пароль;

   
    ПрофильОтправки.Пользователь = СисУчетка.Логин;
    ПрофильОтправки.Пароль = СисУчетка.Пароль;

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

    Попытка
        Почта.Подключиться(ПрофильОтправки);
    Исключение
        ОбщегоНазначения.СообщитьОбОшибке(ОписаниеОшибки(),, "Электронное сообщение не отправлено.");
        Возврат;
    КонецПопытки;

    Попытка
        Почта.Послать(Письмо);
    Исключение
        ОбщегоНазначения.СообщитьОбОшибке(ОписаниеОшибки(),, "Электронное сообщение не отправлено.");
        Возврат;
    КонецПопытки;

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

[LexaK]

Попробуйте сисадминов потрясти, у вас просто могут быть закрыты порты.

Добавлено: 16 авг 2016, 09:33

а еще вы не указываете протокол почты, по умолчанию POP3, у вас может быть другой, уточните если надо исправьте !

Почта.Подключиться(ПрофильОтправки, <Протокол ?>);

[selis]

100% чтото не так с параметрами,
отправка как правило делается через SMTP но удаленные сервера могут работать только через IMAP
POP3 сейчас уже реже используют, странно что в приведенном примере авторизация не требуется. Я например для своих почтовых серверов как минимут такие параметры указывал (но это наши корпоративные настройки). В общем нужно почитать как конкретный почтовый сервер настроен
      //Создаем параметры соединения. 
      ИПП=Новый ИнтернетПочтовыйПрофиль;
      ИПП.АдресСервераIMAP="xxx";
      ИПП.ПарольIMAP="xxx";
      ИПП.ПользовательIMAP="xxx";
      ИПП.ИспользоватьSSLIMAP=Истина;
      ИПП.ПортIMAP=993;
      ИПП.АдресСервераSMTP="xxx";
      ИПП.ПарольSMTP="xxx";
      ИПП.ПользовательSMTP="xxx";