» Отправка Email CDO.Message через Microsoft Exchange из 1С 8

Прошерстил весь форум и не только, но не смог найти отправку через CDO используя протокол Microsoft Exchange
Т.е. во всех ветках рассматривают метод SMTP: iConf.fields(cdoSendUsingMethod).value = cdoSendUsingPort; // Где cdoSendUsingPort=2

Но я не нашел кто бы использовал cdoSendUsingExchange=3

Накодил, что смог, но получаю такое сообщение:
Произошла исключительная ситуация (ADODB.Fields): Fields update failed. For further information, examine the Status property of individual field objects.

У меня вопросы - я иду в правильном направлении? И что я делаю не так?

Предупреждаю вопросы, относительно того, почему я не использую прочие методы типа "MSMAPI.MAPIMessages", отправка через SMTP и "1С Почта"
Отвечаю сразу: Почту нужно отправлять &НаСервере. Порты закрыты, в т.ч. на Exchange.



    
Код: Письмо=Новый COMОбъект("CDO.Message");
    Письмо.to=Кому;
    Письмо.from=Отправитель;
    Письмо.cc=Копия;
    Письмо.bcc=СкрКопия;
    Письмо.Subject=Тема;
    Письмо.TextBody=Текст;
    
    cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" ;
    
    iConf = Новый COMОбъект("CDO.Configuration");
    iConf.fields(cdoSendUsingMethod).value = 3;
    
    //cdoSendEmailAddress = "http://schemas.microsoft.com/cdo/configuration/sendemailaddress" ;
    //cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword" ;
    //cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername" ;
    //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.fields(cdoSMTPServer).value = "cdoSMTPServer";
    //iConf.fields(cdoSMTPServerPort).value = 445;
    //iConf.fields(cdoSMTPAuthenticate).value = 1;
    //iConf.fields(cdoSendUserName).value = "user.user";
    //iConf.fields(CdoSendPassword).value = "123";
    //iConf.fields(cdoSendEmailAddress).value = """user@mail.com"" <user@mail.com>";
    //iConf.fields(cdoSMTPUseSSL).value = 1; //Secure Sockets Layer
    
    
    mailboxurl                 = "http://schemas.microsoft.com/cdo/configuration/mailboxurl";
    iConf.fields(mailboxurl).value     = "http://exchsrv.com/Exchange/user.user";
    iConf.fields(cdoSendUserName).value = "user.user@mail.com";
    iConf.fields(CdoSendPassword).value = "123";
    iConf.fields.update();

    Письмо.Configuration = iConf;
    Письмо.Send();

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1С Программирование и поддержка (1C)

SevereK20
ОК. Можно удалять тему