- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何隐藏群发邮件时收件人的邮箱地址？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73905)
-- 发布时间：2015/8/28 21:11:00
-- 如何隐藏群发邮件时收件人的邮箱地址？
当群发邮件时，怎么设置不让显示收件人的邮箱（以免收件人相互之间看得到）？
-- 发布时间：2015/8/28 21:18:00
--
这是Foxtable问题？
如果是Outlook问题，我可以回答您：全部收件人使用密件抄送，这样就看不到别的收件人了。
网页邮箱发邮件，应该也可以吧，没有专门测试过，公司用Outlook给多个客户发邮件，这样是可以的。
[此贴子已经被作者于2015/8/28 21:19:02编辑过]
-- 发布时间：2015/8/28 21:39:00
--
是的，是FOXTABLE问题；
我是指用FOXTABLE群发邮件时如何隐藏收件人的邮箱地址；
-- 发布时间：2015/8/29 9:14:00
--
有没有老师知道怎么弄？
-- 发布时间：2015/8/29 9:17:00
--
用MailSender通过程序动态发送
-- 发布时间：2015/8/29 9:25:00
--
我会群发邮件，我是问群发邮件时怎么隐藏收件人的邮箱地址；
-- 发布时间：2015/8/29 9:31:00
--
要不你就把邮件地址写在表里发送的时候从表里调用，不行就再给表设置权限
-- 发布时间：2015/8/29 10:42:00
--
看来是找不到答案了
-- 发布时间：2015/8/29 11:11:00
--
非常抱歉，能力有限，找不到mailsender的暗送方法，你看看能不能用第三方控件，用它们的暗送或者密送功能
-- 发布时间：2015/8/29 11:18:00
--
大概这样，自己套用吧
\'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)