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

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем ArBus, 15 авг 2016.

  1. TopicStarter Overlay
    ArBus
    Offline

    ArBus

    Регистрация:
    18 ноя 2009
    Сообщения:
    12
    Симпатии:
    0
    Баллы:
    1
    Всем привет. Прошу помощи умных людей. Гляньте код, что не так написал? Ошибок при выполнении кода не возникает, но фактически эл.письмо на указанный в коде эл.ящик не приходит. Код написал в форме внешней обработки.

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

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

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

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

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

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