主题：这个MailSender 很V5,可发送HTML,希望老大集成它!

 是有SendAsync方法,但套用1楼代码不行:

如SendAsync代替Send报错:

smtp.SendAsync(mail)       '报错,好似还应有个象征参数 

另:2013测试程式不上传ZIP了?

是不是应该考虑一下这里应该是等于一个逻辑值？

SendAsync 和Send都是方法

哦，我是瞎蒙！

这么看看，随便用个字符作为第二个参数：

smtp.SendAsync(mail, "mail send")

smtp.SendAsync(mail,"Test") 试过了,也 MessageBox.Show("发送成功"),但只见雷鸣,不见下雨啊=======目的地收不到邮件,

而smtp.Send(mail) 收到邮件是1秒的事

'代码如下：

Dim client As new System.Net.Mail.SmtpClient("smtp服务器")
Dim mail As new System.Net.Mail.MailMessage("发件人信箱", "收件人邮箱")
mail.From = new System.Net.Mail.MailAddress("发件人信箱", "发件人自定义简称")       
mail.Subject = "邮件标题"
mail.Body = "邮件正文"
client.UseDefaultCredentials = False
client.Credentials = new System.Net.NetworkCredential("发件人邮箱登录名", "发件人邮箱登录密码")

'方法一,异步发送      
Dim Userdata As String = "自定义对象信息"
client.SendAsync(mail, Userdata )
'方法二,同步发送
client.Send(mail)

'///////以上代码本机测试通过