Dim txt1 As String = e.Form.Controls("主题").Text
Dim txt2 As String = e.Form.Controls("邮件内容").Text
Dim Emlt,s2 As String
Dim Us11 As String = "XXX公司" '主题前缀,让人一看电邮主题,就知是谁发来的电邮
Dim Us22 As String = "XXX公司电邮" '随便定义
For Each dr As DataRow In DataTables("市场营销").DataRows
If dr.IsNull("邮箱") = False Then
Emlt =StrToNarrow(dr("邮箱")).trim '将电邮字符串转换为半角及去除前后空格
Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com")
smtp.UseDefaultCredentials = False
smtp.Credentials = new System.Net.NetworkCredential("gain@163.com", "gain***") '按实
'smtp.EnableSsl = 1 '开启SSL验证或按需要
'创建邮件
Dim m As New System.Net.Mail.MailMessage()
'发件人邮箱
m.From = new System.Net.Mail.MailAddress("gain@163.com",Us11) '按实
Dim n1 As Integer =Emlt.Indexof(",") '电邮间须以","为分隔符,如:111@126.com,222@126.com,333@gmail.com
'收件人邮箱
m.To.Add(Emlt.split(",")(0))
'暗送收件人邮箱
If n1 > -1 Then
s2= Emlt.Substring(n1+1)
m.Bcc.Add(s2)
End If
'邮件优先级
m.Priority = System.Net.Mail.MailPriority.Normal '普通优先,看需要
'主题编码 ,看需要
m.SubjectEncoding = System.Text.Encoding.GetEncoding("UTF-8")
'邮件正文件编码,看需要
m.BodyEncoding = System.Text.Encoding.GetEncoding("UTF-8")
m.Subject = txt1 '主题
m.IsBodyHtml = True '主题内容是否HTML格式显示,看需要
m.Body = txt2
smtp.SendAsync(m, Us22)
End If
Next
[此贴子已经被作者于2015/8/29 17:07:13编辑过]
加好友 
发短信
Post By：2015/8/29 11:18:00 [显示全部帖子]
