Вход | Регистрация


Не могу отправить почту

Не могу отправить почту
Я
   alekosansey
 
26.07.18 - 08:30
Добрый день подскажите пожалуйста почему не могу подключиться к почте. На 1с 8.1 не могу подключиться к почте выдает ошибку: "{Справочник.НастройкиОбменаДанными.Форма.ФормаЭлемента(872)}: Ошибка при вызове метода контекста (Подключиться): Время ожидания операции чтения истекло." Вроде бы правильно указал порты 995 и 465 для mail.ru.


код: Процедура ПроверитьEmailНажатие(Элемент)
    Профиль = Новый ИнтернетПочтовыйПрофиль;
    Профиль.АдресСервераSMTP = СерверSMTPEmail;
    Профиль.АдресСервераPOP3 = СерверPOP3Email;
    Профиль.ПортSMTP = ПортSMTPEmail;
    Профиль.ПортPOP3 = ПортPOP3Email;
    Профиль.Пользователь = ПользовательEmail;
    Профиль.Пароль = ПарольEmail;
    Профиль.ПользовательSMTP = ПользовательEmail;
    Профиль.ПарольSMTP = ПарольEmail;
    Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;
    Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
    Профиль.ПарольSMTP = ПарольEmail;
    
    Почта = Новый ИнтернетПочта;
    Попытка
        
        Почта.Подключиться(Профиль);
        
        //CRS Проверка получения почты

        ЗаголовкиСообщений = Почта.ПолучитьЗаголовки();
        
        //CRS Проверка отправки сообщений

        Предупреждение("В рамках проверки e-mail адреса будет сформировано сообщение на другой адрес. Введите электронный адрес, куда следует отправить это сообщение.");
        АдресПолучателя = "";
        Если ВвестиСтроку(АдресПолучателя, "Введите e-mail адрес") Тогда
            Сообщение = Новый ИнтернетПочтовоеСообщение;
            Сообщение.Получатели.Добавить(АдресПолучателя);
            Сообщение.Отправитель.Адрес = АдресEmail;
            Сообщение.Тема = "Тест";
            Сообщение.ИмяОтправителя = АдресEmail;
            Сообщение.Тексты.Добавить("Тестовое сообщение от адреса "+АдресEmail+". Пожалуйста, не отвечайте на него!");
            Почта.Послать(Сообщение);
        КонецЕсли;
        
        Почта.Отключиться();
        Предупреждение("Проверка e-mail (прием и отправка) успешно пройдена!",,"Проверка подключения e-mail");
        
    Исключение
        
        Предупреждение("Возникли ошибки при подключении!",,"Проверка подключения e-mail");
        Сообщить(ОписаниеОшибки());
        
    КонецПопытки; 
КонецПроцедуры

мМассивВключенныхНастроек = Новый Массив();

мЖирныйШрифт = Новый Шрифт(,,Истина);
мОбычныйШрифт = Новый Шрифт();

мОбщаяТаблицаНастроекПолейПоиска = Неопределено;
мОбщаяТаблицаНастроекВыгрузки = Неопределено;
 
 
   Смотрящий
 
1 - 26.07.18 - 08:36
Профиль.ИспользоватьSSLPOP3 = Истина;
Профиль.ИспользоватьSSLSMTP = Истина;
   Смотрящий
 
2 - 26.07.18 - 08:38
Хотя ... 8.1 не прожует наверное это.
Через CDO отправлять придется.
   Малыш Джон
 
3 - 26.07.18 - 08:48
(0) адреса серверов и порты - их проверяй
   Масянька
 
4 - 26.07.18 - 08:52
(0) Как вариант: попробуй поиграться:
Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl").Value             = ПротоколШифрования;
    Письмо.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout").Value = 60;


ПротоколШифрования = -1, 0, 1

Список тем форума
Рекламное место пустует  Рекламное место пустует
Здесь можно задать вопрос "Как сделать?" и получить кучу ответов, что тебе это делать не надо. Ymryn
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Рекламное место пустует