Программно отправить сообщение

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) Понял тебя.
У меня как раз не работает, может настройки какие в компьютере?