'代码如下:
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)
'///////以上代码本机测试通过