MailSender

MailSender用于通过SMTP服务器发送邮件。

属性：

• Host
  用于指定主机地址，可以是域名，也可以是IP地址。
   
• Port
  用于指定SMTP服务的端口，默认为25，此属性通常无需设定。
   
• Account
  用于指定登录邮件服务器的帐号
   
• Password
  用于指定登录邮件服务器的密码
   
• From
  用于指定发件人的邮件地址
   
• To
  用于指定收件人的邮件地址
   
• Title
  用于指定邮件标题
   
• Content
  用于指定邮件的正文内容
  　
• EnableSsl
  逻辑型，是否使用安全套接字层 (SSL) 加密连接。
  　
• Encoding
  用于指定邮件编码，Encoding类型，可选的编码有：

  Default
  ASCII
  BigEndianUnicode
  Unicode
  UTF32
  UTF7
  UTF8
  
  默认为Default，表示系采用统编码，对于中文操作系统，通常是GB2312

方法：

• Send
  发送邮件，直到邮件发送结束，才能进行其他操作。
   
• SendAsync
  以异步方式发送邮件，发送邮件的同时，可以进行其他操作。
   
• AddReceiver
  如果有多个收件人，可以用此方法添加任意多个收件人的邮件地址。
   
• AddAttachments
  用于添加附件。

示例一

Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.To = "meili@Sina.com.cn"
m.Title = "李总明天来北京"
m.Content = "航班号是gz1234,上午11点到达,请注意接机"
m.SendAsync()

示例一

如果接收方出现邮件内容乱码，可以明确指定邮件内容编码，例如用UTF8编码邮件内容：

Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.To = "meili@Sina.com.cn"
m.Encoding = Encoding.UTF8
m.Title = "李总明天来北京"
m.Content = "航班号是gz1234,上午11点到达,请注意接机"
m.SendAsync()

示例三

可以同时添加多个收件人：

Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.AddReceiver("meili@Sina.com.cn")
m.AddReceiver("yangzi@Microsoft.com")
m.Title = "李总明天来北京"
m.Content = "航班号是gz1234,上午11点到达,请注意接机"
m.SendAsync()

示例四

还可以加入附件：

Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.To = "meili@Sina.com.cn"
m.Title = "初稿已经完成"
m.Content = "附件为初稿, 请您审阅!"
m.AddAttachments("c:\data\table.txt")
m.SendAsync()

示例五

有了MailSender，我们可以根据数据表内容动态合成邮件发送，例如下面的代码从借款表中筛选出10天内到期的客户，并发送催款邮件：