如何隐藏群发邮件时收件人的邮箱地址？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

谢谢楼上兄弟，继续等高人出现；

大概这样，自己套用吧

'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)

楼上兄弟，我群发邮件代码是这样写的，要怎么加代码隐藏收件人邮箱？

Dim txt1 As String = e.Form.Controls("主题").Text

Dim txt2 As String = e.Form.Controls("邮件内容").Text

For Each dr As DataRow In DataTables("市场营销").DataRows

If dr.IsNull("邮箱") = False Then

Dim m As New MailSender

m.Host = "smtp.163.com"

m.Account = "gain@163.com"

m.Password = "gain***"

m.From = "gain@163.com"

m.To = dr("邮箱")

m.Title = txt1

m.Content = txt2

m.SendAsync()

End If

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

[此贴子已经被作者于2015/8/29 17:07:13编辑过]

不得不说，don兄，太棒了；

再请教，如果我要在邮件正文中加“Dear ***",代码怎么加？ ***是属于这个表的”联系人“列的内容，而且这里的联系人和邮件收件人是同一行的；

[此贴子已经被作者于2015/8/29 22:32:00编辑过]

m.body = "Dear " & dr("联系人"）& vbcrlf & vbcrlf & txt2

Dim client As New System.Net.Mail.SmtpClient()
client.Host = "smtp.126.com"
client.Credentials = New System.Net.NetworkCredential("lin_hailun@126.com", "6849338.")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage("lin_hailun@126.com", "2450314695@qq.com")
message.Subject = "邮件测试"
message.BodyEncoding = System.Text.Encoding.UTF8

'message.Bcc.Add("2450314695@qq.com") '密送

'message.cc.Add("2450314695@qq.com") '抄送

Dim content As String

content &= "这是文字" & vbcrlf
content &= "也是文字"

message.Body = content

Try
    client.Send(message)
    msgbox("发送成功")
Catch ex As Exception
    msgbox("发送失败:" & ex.message)
End Try

主题：如何隐藏群发邮件时收件人的邮箱地址？