大概这样，自己套用吧
'Emlt ="111@126.com,222@126.com,333@gmail.com"
'dr("email") = Emlt
Emlt = Emlt.Tolower
Dim s1,flt,s2 As String
Dim Us11 As String = "主题前缀" '主题前缀
Dim Us22 As String = "aaa email" '随便定义
Dim smtp As New System.Net.Mail.SmtpClient("smtp.gmail.com",587)
smtp.UseDefaultCredentials = False
smtp.Credentials = new System.Net.NetworkCredential("gmail账号", "PassWord") '按实
smtp.EnableSsl = 1 '开启SSL验证
'
'创建邮件
Dim m As New System.Net.Mail.MailMessage()
'发件人邮箱
m.From = new System.Net.Mail.MailAddress("gmail@gmail.com",Us11) '按实
Dim n1 As Integer =Emlt.Indexof(",")
'收件人邮箱
m.To.Add(Emlt.split(",")(0))
'暗送收件人邮箱
If n1 > -1 Then
s2= Emlt.Substring(n1+1)
m.Bcc.Add(s2)
End If
'邮件优先级
m.Priority = 1 'System.Net.Mail.MailPriority.Normal
'主题编码
m.SubjectEncoding = System.Text.Encoding.GetEncoding("UTF-8")
'邮件正文件编码
m.BodyEncoding = System.Text.Encoding.GetEncoding("UTF-8")
m.Subject = "主题"
m.IsBodyHtml = True '主题内容是否HTML格式显示
m.Body = "主题内容"
Dim at As New System.Net.Mail.Attachment(Lano) '附件文件
at.Name = FileSys.GetName(lano)
m.Attachments.Add(at)
smtp.SendAsync(m, Us22)
加好友 
发短信
Post By：2015/8/29 11:18:00 [只看该作者]
