C#使用CDO發送郵件

Author:David Euler
Date: 2004/11/18
Email:[email protected]
有任何問題，請與我聯繫:)

一直想做實現一個程序，定期給自己發送郵件，或者給朋友發送郵件；比如在節日或者紀念日前若干天，發送郵件給自己提醒，或者朋友生日前夕發郵件提醒。找了很長時間，都沒有找到可用的資料。

CSDN上查到可以用CDO，有一篇文章說“在reference中添加CDO  for  Windows  2000  ”，於是在引用裏面找，也沒有找到一個名字以CDO開頭的組件，下午的時候仔細看了一下可以引用的COM組件列表，發現裏面有一個名爲Microsoft CDO For Exchange 2000 Library的COM組件，就是這個，我們可以用它來連接SMTP Server，使用用戶名/密碼驗證發送郵件。

下面是實現的一個例子：

Smtp Server使用的Smtp-SRV,登陸用戶名是David Euler,發送郵箱是[e-mail],發送到[email protected]/


1).資源管理器裏面，添加引用(reference),添加Microsoft CDO For Exchange 2000 Library的COM組件;

2).編輯用戶界面如上圖，依次添加FromTextBox,ToTextBox，CCTextBox，BCCTextBox，SubjectTextBox，MessageTextBox，PasswordTextBox，smtpTextBox，設置MessageTextBox的TextMode屬性爲“MultiLine“, PasswordTextBox的TextMode屬性爲“Password“,並添加響應提示標籤，添加發送按鈕Send。

3).輸入用戶名，密碼，smtp server之後，用戶點擊Send按鈕發送郵件，
Send 按鈕的Click事件代碼如下：
   CDO.Message  oMsg  =  new  CDO.Message(); 
   //oMsg.From  =  FromTextBox.Text  ; 
   oMsg.To  =  ToTextBox.Text  ; 
   oMsg.Subject  =  SubjectTextBox.Text  ; 
   oMsg.TextBody  =  MessageTextBox.Text  ; 
   oMsg.CC=CCTextBox.Text  ; 
   oMsg.BCC=BCCTextBox.Text  ; 
   string  UserName; 
   string emailFrom;
   string Password=PasswordTextBox.Text.ToString().Trim();

   UserName=FromTextBox.Text.Trim();
   emailFrom=UserName.Replace(" ","")+"@Test.com";
            oMsg.From=emailFrom;
            
   CDO.IConfiguration  iConfg;     
   ADODB.Fields  oFields; 
   iConfg  =  oMsg.Configuration;     
   oFields  =  iConfg.Fields; 
 
   oFields["http://schemas.microsoft.com/cdo/configuration/sendusing"].Value=2;   
   oFields["http://schemas.microsoft.com/cdo/configuration/sendemailaddress"].Value=emailFrom;   
   oFields["http://schemas.microsoft.com/cdo/configuration/smtpuserreplyemailaddress"].Value=emailFrom; 
   oFields["http://schemas.microsoft.com/cdo/configuration/smtpaccountname"].Value=UserName;   
   oFields["http://schemas.microsoft.com/cdo/configuration/sendusername"].Value=UserName; 
   oFields["http://schemas.microsoft.com/cdo/configuration/sendpassword"].Value=Password; 
   oFields["http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"].Value=1;   
   oFields["http://schemas.microsoft.com/cdo/configuration/smtpserver"].Value=smtpTextBox.Text.Trim();    //smtp.163.com                     
   oFields.Update(); 
 
   try 
   {             
    oMsg.Send(); 
    oMsg  =  null; 
    Response.Write("<script>alert('"+ "郵件發送成功！" +"');</script>");
   } 
   catch  (Exception  ex) 
   { 
    Response.Write("<script>alert('"+ "發送失敗:" +"');</script>");
    
    string exMsg="UserName:"+UserName+
     " Passwd:"+Password+
     " Smtp:"+smtpTextBox.Text.Trim();
      
    Response.Write("<script>alert('"+ exMsg +"');</script>");
    failedLabel.Text=ex.Message.ToString();
   }