[求助] 邮件发送问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

用如下案例代码写邮件发送，发现一个问题

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 这个邮箱也显示在他的收件栏上，泄露了客户信息，如何避免这个问题呢？

谢谢，回复真快！

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

这句是用户名加密码

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编辑过]

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

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)

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() '抄送

主题：[求助] 邮件发送问题