CDO发送邮件

try
   {
    CDO.MessageClass omsg = new CDO.MessageClass();
    omsg.From = "xxx@163.com"; //你的Email
    omsg.To = "xxx@163.com"; //接收Email
    omsg.Subject = "Mail Test.";
    omsg.HTMLBody = "<html><body>Mail test.</body></html>";
    CDO.IConfiguration iConfig = omsg.Configuration;
    ADODB.Fields oFields = iConfig.Fields;
    oFields["http://schemas.microsoft.com/cdo/configuration/sendusing"].Value = 2;
    oFields["http://schemas.microsoft.com/cdo/configuration/sendemailaddress"].Value = "xxx@163.com";
    oFields["http://schemas.microsoft.com/cdo/configuration/smtpaccountname"].Value = "zhgroup.ltd@163.com"; ["http://schemas.microsoft.com/cdo/configuration/sendusername"].Value = "zhgroup.ltd";
    oFields["http://schemas.microsoft.com/cdo/configuration/sendpassword"].Value = "xxx"; //验证账号名称
    oFields["http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"].Value = 1; //验证级别0,1,2
    oFields["http://schemas.microsoft.com/cdo/configuration/languagecode"].Value = 0x0804;
    oFields["http://schemas.microsoft.com/cdo/configuration/smtpserver"].Value = "smtp.163.com"; //SMTP Server
    oFields.Update();
    omsg.BodyPart.Charset = "gb2312";
    omsg.HTMLBodyPart.Charset = "gb2312";
    omsg.Send();
    omsg = null;
       }
   catch(Exception er)
   {

     ...

   }

posted on 2004-09-22 10:54  KK的Blog  阅读(890)  评论(3)    收藏  举报

导航