秋冬养生五谷粥食谱:ASP群发邮件 怎样隐藏收件人地址或只显示对方一人的

来源:百度文库 编辑:高考问答 时间:2024/05/10 12:05:47
ASP的一个群发邮件的代码,如一次发送20人,那收到后,收件人的列表会显示所有EMAIL地址,怎样隐藏掉或只显示当前收件人的地址呢?
所用的相关代码:

Set rs = conn.Execute("select * from shop_config")
'jmail=rs("jmail")
Set JMail=Server.CreateObject("JMail.Message")
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
mailserver=rs("mailaddress")
mailname=rs("mailusername")
mailpassword=rs("mailuserpass")
set rs=nothing

dim msg
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.ContentType = "text/html"
msg.MailServerUserName = mailname
msg.MailServerPassword = mailpassword
msg.From = mailname

user_mail=split(useremail,";")
for N=0 to UBound(user_mail)
msg.AddRecipient user_mail(n)
next

msg.Subject = mail_subject
msg.Body = mail_body

msg.Send (mailserver)
msg.close
set msg = nothing