Показать сообщение отдельно
Старый 05.09.2008, 15:28   #8  
custtable is offline
custtable
Участник
Аватар для custtable
 
29 / 10 (1) +
Регистрация: 28.08.2006
X++:
static void sendCDOMessage(Args _args)
{
        COM mailer, config, fields;
        COM item_SendUsing, item_SMTPServer, item_smtpserverport;
        COM item_SMTPAuthenticate, item_SMTPUsername, item_SMTPPassword;
    
        COMVariant comSendUsing = new COMVariant();
        COMVariant comSMTPServer = new COMVariant();
        COMVariant comSMTPServerPort = new COMVariant();
        COMVariant comSMTPAuthenticate = new COMVariant();
        COMVariant comSMTPUsername = new COMVariant();
        COMVariant comSMTPPassword = new COMVariant();
        ;
    
        mailer = new COM("CDO.Message");
        config = new COM("CDO.Configuration");
    
        config = mailer.configuration();
        fields = config.Fields();
    
        item_SendUsing = fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing");
        comSendUsing.int(2);
        item_SendUsing.Value(comSendUsing);
    
        item_smtpserver = fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver");
        comSMTPServer.bStr('smtp.server.com');
        item_SMTPServer.Value(comSMTPServer);
    
        item_SMTPServerPort = fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport");
        comSMTPServerPort.int(25);
        item_SMTPServerPort.Value(comSMTPServerPort);
    
        item_SMTPAuthenticate = fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate");
        comSMTPAuthenticate.int(1); // 1 for true, DO authenticate
        item_SMTPAuthenticate.Value(comSMTPAuthenticate);
    
        item_SMTPUsername = fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername");
        comSMTPUsername.bStr('userId');
        item_SMTPUsername.Value(comSMTPUsername);
    
        item_SMTPPassword = fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword");
        comSMTPPassword.bStr('password');
        item_SMTPPassword.Value(comSMTPPassword);
    
        fields.update();
    
        mailer.Configuration(config);
    
        mailer.From("somebody@somewhere.com");
        mailer.To("somebody@somewhere.com");
        mailer.Subject("Subject");
        mailer.TextBody("Body");
    
        mailer.Send();
    
        mailer = null;
}