Имя: Пароль:
1C
1C 7.7
v7: Письмо не отправленно Ошибка (CDO.Message.1: Транспорту не удалось подключиться
Ø (Defender aka LINN 23.09.2014 17:52)
0 andkr
 
23.09.14
17:28
Всем привет! Аналогичная обработка работала, а недавно перестала работать (((
Думаю, что в связи с изменениями доступа к mail.ru
Сейчас выдает ошибку (в теме)
Вот код:

Процедура ОтправитьПисьмо()
    
    cdoSendEmailAddress  = "http://schemas.microsoft.com/cdo/configuration/sendemailaddress"; ;
    cdoSendPassword      = "http://schemas.microsoft.com/cdo/configuration/sendpassword"; ;
    cdoSendUserName      = "http://schemas.microsoft.com/cdo/configuration/sendusername"; ;
    cdoSendUsingMethod   = "http://schemas.microsoft.com/cdo/configuration/sendusing"; ;
    cdoSMTPAuthenticate  = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"; ;
    cdoSMTPServer        = "http://schemas.microsoft.com/cdo/configuration/smtpserver";;
    cdoSMTPServerPort    = "http://schemas.microsoft.com/cdo/configuration/smtpserverport";;
    cdoSMTPUseSSL        = "http://schemas.microsoft.com/cdo/configuration/smtpusessl";;
    
    iConf = СоздатьОбъект("CDO.Configuration");
    iConf.fields(cdoSendUsingMethod).value = 2;
    
    iConf.fields(cdoSMTPServer).value         = "smtp.mail.ru";
    iConf.fields(cdoSMTPServerPort).value     = 465;
    iConf.fields(cdoSMTPAuthenticate).value   = 1;
    iConf.fields(cdoSendUserName).value       = "[email protected]";
    iConf.fields(CdoSendPassword).value       = "пароль";
    
    iConf.fields(cdoSendEmailAddress).value   = "[email protected]";
    iConf.fields(cdoSMTPUseSSL).value         = 0; //Secure Sockets Layer        
    
    iConf.fields.update();
    
    iMsg=СоздатьОбъект("CDO.Message");
    iMsg.configuration        = iConf;
    iMsg.to                   ="[email protected]"; //адрес получателя
    iMsg.from                 ="[email protected]"; //адрес отправителя
    iMsg.subject              ="ТемаПисьма";   //тема письма
    iMsg.textBody             ="ТелоПисьма";   //тело письма
    iMsg.textBodypart.charset ="windows-1251";
    
    Попытка
        iMsg.send();
        Сообщить("Сообщение отправлено.");
    Исключение
        //Письмо отправить не удалось (((
        Ошибка = ОписаниеОшибки();
        Сообщить("Письмо не отправленно Ошибка ("+Ошибка,"!");
    КонецПопытки;
    
КонецПроцедуры

Подскажите, что не так?
1 sergey198
 
23.09.14
17:32
1 тему почитай
2 FN
 
23.09.14
17:32
3 Defender aka LINN
 
23.09.14
17:52
Предупреждали же - будет бан за вандализм.