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

Привет дорогой друг

Наш сайт существует и развиваетется за счет рекламы. Пожалуйста, отключите блокировку рекламы AdBlock или подобное, для нашего сайта. Спасибо!
Показано с 1 по 5 из 5
  1. #1
    Гость форума

    Регистрация
    17.11.2011
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

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

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

    СисУчетка = справочники.УчетныеЗаписи� �лектроннойПочты.Системная УчетнаяЗаписьЭлектроннойП очты;
    Письмо = Новый ИнтернетПочтовоеСообщение ;
    Письмо.ИмяОтправителя = ПараметрыСеанса.ТекущийПо� �ьзователь;
    Письмо.Отправитель = сисучетка.АдресЭлектронно� �Почты;
    Получатель = Письмо.Получатели.Добавить ();
    Получатель.Адрес = "[email protected]";
    Письмо.Тема = "автоматом ушло";

    ПрофильОтправки = Новый ИнтернетПочтовыйПрофиль;
    ПрофильОтправки.АдресСерв� �раSMTP = СисУчетка.SMTPСервер;
    ПрофильОтправки.ПортSMTP = СисУчетка.ПортSMTP;
    ПрофильОтправки.АдресСерв� �раPOP3 = СисУчетка.POP3Сервер;
    ПрофильОтправки.ПортPOP3 = СисУчетка.ПортPOP3;

    ПрофильОтправки.Аутентифи� �ацияSMTP=СпособSMTPАутентифик ации.БезАутентификации;
    //ПрофильОтправки.Пользоват� �льSMTP = СисУчетка.Логин;

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


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

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

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

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

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

  2. #2
    Гордость форума PRO

    Регистрация
    29.01.2010
    Сообщений
    1212
    Сказал(а) спасибо
    30
    Поблагодарили 261 раз(а) в 245 сообщениях

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

    Цитата Сообщение от altaykniga Посмотреть сообщение
    Получатель.Адрес = "[email protected]";
    Ты посылаешь на "внешний почтовый ящик", как правило такие ящики работают только через SSL. Я не вижу у тебя (тут нужно показывать настройки твоей учетки), что ты работаешь через SSL - это раз, а второе - 1Ска плохо работает через SSL, тут тебе нужно курить например тему Stunel - https://www.google.ru/search?q=Stune...1&q=stunnel+1c

  3. #3
    Гость форума

    Регистрация
    17.11.2011
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

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

    Посмотрел код, как при отправке документа ЭлектронноеПисьмо. Сделал по образу и подобию. Т.е. в отладчике сравниваю свойства "Профиль" и "ПочтовоеСообщение" при типовой отправке с помощью ЭлектронногоПисьма и моей обработке. Свойства Идентичны!
    Ошибок при подключении к профилю и отправке не возникает, но письмо упорно не приходит к адресату. Ниже приведен код:

    Процедура КнопкаВыполнитьНажатие(Кн� �пка)
    СисУчетка = справочники.УчетныеЗаписи� �лектроннойПочты.Системная УчетнаяЗаписьЭлектроннойП очты;
    Профиль = УправлениеЭлектроннойПочт ой.ПолучитьИнтернетПочтов� �йПрофиль(СисУчетка);

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

    Попытка
    ИнтернетПочта.Подключитьс� �(Профиль);
    Исключение
    Сообщить("Не удалось подключиться к профилю сисУчетка");
    возврат;
    КонецПопытки;

    ПочтовоеСообщение = Новый ИнтернетПочтовоеСообщение ;

    ПочтовоеСообщение.ИмяОтпр� �вителя = "S1C УПП";
    ПочтовоеСообщение.Отправи� �ель = сисучетка.АдресЭлектронно� �Почты;
    ПочтовоеСообщение.Тема = "проверка отправки 16-08-16";

    Получатель = ПочтовоеСообщение.Получат� �ли.Добавить();
    Получатель.Адрес = "[email protected]";
    Получатель.Кодировка = "utf-8";

    Попытка

    ИнтернетПочта.Послать(Почт овоеСообщение);
    Исключение
    Сообщить("Не удалось выполнить код(ИнтернетПочта.Послать(� �очтовоеСообщение))");
    КонецПопытки;

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

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

  4. #4
    Гордость форума PRO

    Регистрация
    29.01.2010
    Сообщений
    1212
    Сказал(а) спасибо
    30
    Поблагодарили 261 раз(а) в 245 сообщениях

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

    Ты не читаешь что тебе пишутИ? Я дал тебе ссылку с описанием решения проблемы:

    После массового перехода ведущих поставщиков эл. почты в РФ [mail.ru yandex.ru], на защищенный тип соединений SSL, произошла массовая “истерия” у программистов 1С. Так как данный продукт в свой базовой версии 8.2 не умеет работать с почтой с использованием SSL.

  5. #5
    Гость форума

    Регистрация
    17.11.2011
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях

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

    ну так а почему типовой документ ЭлектронноеПисьмо отправляется тогда штатными средствами 1с на платформе 8.2 ?

Похожие темы

  1. УТ 11. Добавить запись в справочник партнеры программно (обработкой)
    от asadroman в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3
    Ответов: 0
    Последнее сообщение: 03.11.2014, 10:46

Социальные закладки

Социальные закладки

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •