|
Программно отправить сообщение |
☑ |
0
rt2000
14.04.16
✎
12:07
|
Использовали раньше платформу 8.2 и адреса без использования ssl.
Теперь платформа 8.3 и для использования протокола ssl, помню нужно добавить строчку, не помню только какую?
Профиль2 = новый ИнтернетПочтовыйПрофиль;
Профиль2.АдресСервераSMTP = "smtp.qip.ru";
Профиль2.ПользовательSMTP = "xxxxxxxxxxx@krovatka.su";
Профиль2.Пользователь = "xxxxxxxxxxxx@krovatka.su";
Профиль2.ПарольSMTP = "xxxxxxxx"; //
Профиль2.ПортSMTP = 25; //25; //465;
ПРофиль2.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Отправитель2 = "XXXXXXXXXXXXXX@krovatka.su";
Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Отправитель = Отправитель2;
Сообщение.Тема = "письмо";
Сообщение.Получатели.Добавить("XXXXXXXX@bk.ru");
Сообщение.Тексты.Добавить("Отправляем");
Почта = Новый ИнтернетПочта;
Почта.Подключиться(Профиль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 = "xxxxxxx@krovatka.ru";
Профиль2.Пользователь = "xxxxxx@krovatka.ru";
Профиль2.ПарольSMTP = "xxxxxx";
Профиль2.ПортSMTP = 25;
Профиль2.ИспользоватьSSLSMTP = Истина;
ПРофиль2.АутентификацияSMTP = СпособSMTPАутентификации.Login;
Отправитель2 = "xxxxx@krovatka.ru";
Сообщение = Новый ИнтернетПочтовоеСообщение;
Сообщение.Отправитель = Отправитель2;
Сообщение.Тема = "Счет на оплату";
Сообщение.Получатели.Добавить("yyyyyyy@bk.ru");
Сообщение.Тексты.Добавить("Высылаем");
Почта = Новый ИнтернетПочта;
Попытка
Состояние("Отправка почтового сообщения...");
Почта.Подключиться(Профиль2);
Почта.Послать(Сообщение);
Исключение
Сообщить("Ошибка.",СтатусСообщения.ОченьВажное);
Сообщить(""+ОписаниеОшибки());
КонецПопытки;
|
|
8
rt2000
14.04.16
✎
12:59
|
Написал обработку, создал почту на mail
Кто может посмотреть, гляньте
|
|
9
kn
14.04.16
✎
13:20
|
вот откорректировано, отправляется
|
|
10
rt2000
14.04.16
✎
14:09
|
(9) Понял тебя.
У меня как раз не работает, может настройки какие в компьютере?
|
|
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший