以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 邮件发送问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70799)
--  作者：xuhuibin105
--  发布时间：2015/6/29 14:24:00
--  [求助] 邮件发送问题
用如下案例代码写邮件发送，发现一个问题 

Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.AddReceiver("meili@Sina.com.cn")
m.AddReceiver("yangzi@Microsoft.com")
m.Title = "李总明天来北京"
m.Content = "航班号是gz1234,上午11点到达,请注意接机"
m.SendAsync()

 

meili@Sina.com.cn 这个邮箱收到邮件之后，yangzi@Microsoft.com 这个邮箱也显示在他的收件栏上，泄露了客户信息，如何避免这个问题呢？
--  作者：大红袍
--  发布时间：2015/6/29 14:25:00
--  

  参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=63473&skin=0

 
--  作者：xuhuibin105
--  发布时间：2015/6/29 14:31:00
--  
谢谢，回复真快！
--  作者：xuhuibin105
--  发布时间：2015/6/29 16:07:00
--  

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.IsBodyHtml = True

 

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

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

 

Dim body As String = "<html><body>正文内容</body></html>"
Dim content As String

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

message.Body = body.Replace("正文内容", content)

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

 

我想把如下代码做成动态合成，实现从窗口输入，可是总是报错

client.Credentials = New System.Net.NetworkCredential("lin_hailun@126.com", "6849338.")

Dim message As New System.Net.Mail.MailMessage("lin_hailun@126.com", "2450314695@qq.com")

 

 
--  作者：大红袍
--  发布时间：2015/6/29 16:18:00
--  

 这句是用户名加密码

 

client.Credentials = New System.Net.NetworkCredential("lin_hailun@126.com", "6849338.")


 

 这句是，要发给谁

 

Dim message As New System.Net.Mail.MailMessage("lin_hailun@126.com", "2450314695@qq.com")

 

 你代码怎么写？

 

[此贴子已经被作者于2015/6/29 16:18:22编辑过]
--  作者：xuhuibin105
--  发布时间：2015/6/29 17:09:00
--  

这句是用户名加密码 改成如下：

 

client.Credentials = New System.Net.NetworkCredential(e.Form.Controls("ComboBox1").value, e.Form.Controls("ComboBox2").value)


 

 这句是，要发给谁 改成如下：

 

Dim message As New System.Net.Mail.MailMessage(e.Form.Controls("ComboBox3").value, e.Form.Controls("ComboBox4").value)

 

  
--  作者：大红袍
--  发布时间：2015/6/29 17:27:00
--  

client.Credentials = New System.Net.NetworkCredential(e.Form.Controls("ComboBox1").value, e.Form.Controls("ComboBox2").value)

Dim message As New System.Net.Mail.MailMessage(e.Form.Controls("ComboBox1").value, e.Form.Controls("ComboBox4").value)

 

message.Bcc.Add() \'密送

message.cc.Add() \'抄送
--  作者：xuhuibin105
--  发布时间：2015/7/2 10:32:00
--  
谢谢！