一个发邮件的类(用CDO实现)

public class SendMail
 {
  public SendMail()
  {
   
  }
  //发送普通文本Email方法入口
  //  From:发信人邮件地址   To:收信人邮件地址 
  //     FromName:发信人名称   ToName:收信人名称
  //  Subject:信件主题
  //  Body:邮件正文
  public int Send(string strTitle,string strTo,string strContent)
  {
   try
   {   
    CDO.Message oMsg = new CDO.Message();
   
    oMsg.From = "Administrator@innosis.com.cn";
    oMsg.To = strTo;//"AtenShen@innosis.com.cn";
    oMsg.Subject =strTitle;// "MailTest";
                
    oMsg.HTMLBody = "<html><body>s"+strContent+"</body></html>";

 

    CDO.IConfiguration iConfg = oMsg.Configuration;
    ADODB.Fields oFields = iConfg.Fields;
         
    oFields["http://schemas.microsoft.com/cdo/configuration/sendusing"].Value=2;
    oFields["http://schemas.microsoft.com/cdo/configuration/sendemailaddress"].Value="JamesWang"; //sender mail
    oFields["http://schemas.microsoft.com/cdo/configuration/smtpaccountname"].Value="JamesWang"; //email account
    oFields["http://schemas.microsoft.com/cdo/configuration/sendusername"].Value="JamesWang";
    oFields["http://schemas.microsoft.com/cdo/configuration/sendpassword"].Value="531713Wt";
    oFields["http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"].Value=1;
    //value=0 代表Anonymous验证方式(不需要验证)
    //value=1 代表Basic验证方式(使用basic (clear-text) authentication.
    //The configuration sendusername/sendpassword or postusername/postpassword fields are used to specify credentials.)
    //Value=2 代表NTLM验证方式(Secure Password Authentication in Microsoft Outlook Express)
    oFields["http://schemas.microsoft.com/cdo/configuration/languagecode"].Value=0x0804;
    oFields["http://schemas.microsoft.com/cdo/configuration/smtpserver"].Value="192.168.161.32";

 

    oFields.Update();
    oMsg.BodyPart.Charset="gb2312";
    oMsg.HTMLBodyPart.Charset="gb2312";

 

    oMsg.Send();
    oMsg = null;
   }  
   catch (Exception e)
   {
    return -1;
     throw e;
   }
     return 0;
  
  }
 }


 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB CDO (Collaboration Data Objects) 是一种用于在VB语言中接收邮件的编程接口。使用VB CDO可以方便地连接到邮件服务器并接收电子邮件。 首先,我们需要在VB项目中添加CDO库的引用。它可以在“项目”菜单中的“引用”选项中找到。我们需要选择"CDO for Windows Library"以使用CDO的功能。 接下来,我们需要在VB代码中实例化一个CDO对象,用于连接到邮件服务器。使用以下代码可以创建一个CDO.Session对象: ``` Dim objSession As CDO.Session Set objSession = CreateObject("MAPI.Session") ``` 接下来,我们需要通过设置Session对象的属性来配置连接信息。例如,我们可以设置邮件服务器的名称和端口号,设置用户名和密码等。以下是一个设置连接信息的示例代码: ``` objSession.Logon , , False, True, , False objSession.CMAPIFlags = CdoCMAPILogon objSession.MapiProfile = "username" ``` 然后,我们可以使用Session对象的GetDefaultFolder方法来获取收件箱(Inbox)文件夹的引用。以下是一个获取收件箱的示例代码: ``` Dim objFolder As CDO.IFolder Set objFolder = objSession.GetDefaultFolder(CdoDefaultFolderInbox) ``` 最后,我们可以遍历收件箱中的所有邮件,读取邮件的主题、发件人、收件人等信息。以下是一个读取邮件信息的示例代码: ``` Dim objMessage As CDO.Message For Each objMessage In objFolder.Messages MsgBox "主题:" & objMessage.Subject & vbCrLf & "发件人:" & objMessage.SenderName Next objMessage ``` 以上就是使用VB CDO接收邮件的基本步骤。通过实例化CDO对象、配置连接信息、获取文件夹引用以及遍历邮件来读取信息,我们可以轻松地在VB中接收邮件。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值