Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
16 Июн 2021, 16:47
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
МультиВход
 
collapse

Автор Тема: не получается отправить эл.сообщение программно  (Прочитано 1565 раз)

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

Оффлайн altaykniga

  • *
  • Регистрация: 2011-04-12
  • Сообщений: 39
  • РЕПУТАЦИЯ: 0
  • Профессия: Программист 7.7
Всем привет. Прошу помощи умных людей. Гляньте код, что не так написал? Ошибок при выполнении кода не возникает, но фактически эл.письмо на указанный в коде эл.ящик не приходит. Код написал в форме внешней обработки.

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

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

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

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

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

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

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


Онлайн LexaK

  • *****
  • Регистрация: 2012-05-16
  • Сообщений: 2570
  • РЕПУТАЦИЯ: 824
  • КПД: 32%
  • Профессия: Программист 1С
Попробуйте сисадминов потрясти, у вас просто могут быть закрыты порты.
Добавлено: 16 Авг 2016, 09:33

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

 Почта.Подключиться(ПрофильОтправки, <Протокол ?>);
Помогло? - Нажми СПАСИБО (под аватаром) !!!
                       :)

Оффлайн selis

  • *
  • Регистрация: 2016-08-15
  • Сообщений: 6
  • РЕПУТАЦИЯ: 0
  • Профессия: Разработчик 1С
100% чтото не так с параметрами,
отправка как правило делается через SMTP но удаленные сервера могут работать только через IMAP
POP3 сейчас уже реже используют, странно что в приведенном примере авторизация не требуется. Я например для своих почтовых серверов как минимут такие параметры указывал (но это наши корпоративные настройки). В общем нужно почитать как конкретный почтовый сервер настроен
      //Создаем параметры соединения. 
      ИПП=Новый ИнтернетПочтовыйПрофиль;
      ИПП.АдресСервераIMAP="xxx";
      ИПП.ПарольIMAP="xxx";
      ИПП.ПользовательIMAP="xxx";
      ИПП.ИспользоватьSSLIMAP=Истина;
      ИПП.ПортIMAP=993;
      ИПП.АдресСервераSMTP="xxx";
      ИПП.ПарольSMTP="xxx";
      ИПП.ПользовательSMTP="xxx";


Теги:
 

как программно найти документ по неполному номеру.

Автор mashencev_antonРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 5
Просмотров: 6990
Последний ответ 30 Авг 2014, 03:14
от GRADUS
Программно изменить принтер в шаблоне этикетки

Автор ПронырийРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 5
Просмотров: 281
Последний ответ 07 Дек 2020, 10:44
от LexaK
Настройка командного интерфейса программно

Автор GreivРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 0
Просмотров: 1782
Последний ответ 02 Авг 2017, 13:51
от Greiv
Как программно определить значение RLS?

Автор redoksРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 2
Просмотров: 2366
Последний ответ 02 Фев 2017, 03:04
от redoks
Как программно сделать иерархию групп и элементов

Автор MKozzlikРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 14
Просмотров: 16329
Последний ответ 10 Окт 2011, 13:17
от Klyacksa

* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Последние вакансии

* Том 10 авторов за месяц

LexaK
68 Сообщений
Геннадий ОбьГЭС Геннадий ОбьГЭС
68 Сообщений
antoneus antoneus
33 Сообщений
Ивашка
27 Сообщений
neek666
26 Сообщений
KATERINA 861
19 Сообщений
Алексей_1985_06
15 Сообщений
SSC
15 Сообщений
alexandr_ll
14 Сообщений
MiThO
8 Сообщений

* Кто онлайн

  • Точка Гостей: 600
  • Точка Скрытых: 0
  • Точка Пользователей: 5
  • Точка Сейчас на форуме:

* Облако тэгов

* Инструменты

* Дополнительно

Поиск