Имя: Пароль:
1C
 
Программно отправить сообщение
,
0 rt2000
 
14.04.16
12:07
Использовали раньше платформу 8.2 и адреса без использования ssl.
Теперь платформа 8.3 и для использования протокола ssl, помню нужно добавить строчку, не помню только какую?

Профиль2 = новый ИнтернетПочтовыйПрофиль;
Профиль2.АдресСервераSMTP = "smtp.qip.ru";
Профиль2.ПользовательSMTP = "[email protected]";
Профиль2.Пользователь = "[email protected]";
Профиль2.ПарольSMTP = "xxxxxxxx"; //
Профиль2.ПортSMTP = 25; //25; //465;
ПРофиль2.АутентификацияSMTP = СпособSMTPАутентификации.Login;

Отправитель2 = "[email protected]";

    Сообщение = Новый ИнтернетПочтовоеСообщение;
            Сообщение.Отправитель = Отправитель2;
            Сообщение.Тема = "письмо";
            Сообщение.Получатели.Добавить("[email protected]");
            Сообщение.Тексты.Добавить("Отправляем");
Почта = Новый ИнтернетПочта;
    Почта.Подключиться(Профиль2);
    Почта.Послать(Сообщение);
1 Aleksey
 
14.04.16
12:12
ИспользоватьSSLSMTP ?
2 КоньЛапчатый
 
14.04.16
12:12
Профиль.ИспользоватьSSLIMAP = Истина;
3 rt2000
 
14.04.16
12:16
(2) не получается, пишет
Ошибка при вызове метода контекста (Послать): Неизвестная ошибка (SMTP error code 503)
4 Aleksey
 
14.04.16
12:20
(3) А порт какой указан? Ты отправляешь или получаешь?
5 Aleksey
 
14.04.16
12:21
и какой протокол SMTP или IMAP
6 КоньЛапчатый
 
14.04.16
12:21
(3) В твоём случае нужно так писать:
Профиль2.ИспользоватьSSLSMTP = Истина;
7 rt2000
 
14.04.16
12:27
Что то не хватает, другая ошибка
TLS/SSL failure for smtp.qip.ru: Invalid token, probably not an SSL server

ВЕСЬ код
Профиль2 = новый ИнтернетПочтовыйПрофиль;

Профиль2.АдресСервераSMTP = "smtp.qip.ru";
Профиль2.ПользовательSMTP = "[email protected]";
Профиль2.Пользователь = "[email protected]";
Профиль2.ПарольSMTP = "xxxxxx";
Профиль2.ПортSMTP = 25;
Профиль2.ИспользоватьSSLSMTP = Истина;
ПРофиль2.АутентификацияSMTP = СпособSMTPАутентификации.Login;

Отправитель2 = "[email protected]";

    Сообщение = Новый ИнтернетПочтовоеСообщение;
            Сообщение.Отправитель = Отправитель2;
            Сообщение.Тема = "Счет на оплату";
            Сообщение.Получатели.Добавить("[email protected]");
            Сообщение.Тексты.Добавить("Высылаем");
Почта = Новый ИнтернетПочта;
Попытка
    Состояние("Отправка почтового сообщения...");
    Почта.Подключиться(Профиль2);
    Почта.Послать(Сообщение);
Исключение
    Сообщить("Ошибка.",СтатусСообщения.ОченьВажное);
    Сообщить(""+ОписаниеОшибки());
КонецПопытки;
8 rt2000
 
14.04.16
12:59
Написал обработку, создал почту на mail
Кто может посмотреть, гляньте
https://cloud.mail.ru/public/LMjC/e1PDGKxpP
9 kn
 
14.04.16
13:20
вот откорректировано, отправляется
https://dropmefiles.com/hxzrU
10 rt2000
 
14.04.16
14:09
(9) Понял тебя.
У меня как раз не работает, может настройки какие в компьютере?
Независимо от того, куда вы едете — это в гору и против ветра!