Ru-Board.club
← Вернуться в раздел «Прикладное программирование»

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

Автор: inspam
Дата сообщения: 10.04.2013 19:19
Прошерстил весь форум и не только, но не смог найти отправку через 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();
Автор: SevereK20
Дата сообщения: 11.04.2013 00:46
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1С Программирование и поддержка (1C)
Автор: inspam
Дата сообщения: 11.04.2013 14:25
SevereK20
ОК. Можно удалять тему

Страницы: 1

Предыдущая тема: распределение прямых и косвенных расходов


Форум Ru-Board.club — поднят 15-09-2016 числа. Цель - сохранить наследие старого Ru-Board, истории становления российского интернета. Сделано для людей.