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

在网上找到一个VB.NET发邮件的代码 ,经测试好用:可以发送HTML格式,希望老大集成它!

         '创建发件连接,根据你的发送邮箱的SMTP设置填充
        Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com", 25)

        '发件邮箱身份验证,参数分别为 发件邮箱登录名和密码
        smtp.Credentials = New System.Net.NetworkCredential("用户名", "密码")

        '创建邮件
        Dim mail As New System.Net.Mail.MailMessage()

        '邮件主题
        mail.Subject = "邮件主题"

        '主题编码
        mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")

        '邮件正文件编码
        mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")

        '发件人邮箱
        mail.From = New System.Net.Mail.MailAddress("example@163.com")

        '邮件优先级
        mail.Priority = System.Net.Mail.MailPriority.Normal

        'HTML格式的邮件,为false则发送纯文本邮箱
        mail.IsBodyHtml = True

        '邮件内容
        mail.Body = "邮件正文内容"

        '添加收件人,如果有多个,可以多次添加
        mail.To.Add("收件人地址")

        '定义附件,参数为附件文件名,包含路径,推荐使用绝对路径
        '如果不需要附件,下面三行可以不要
        Dim a As New System.Net.Mail.Attachment("附件文件路径")

        '附件文件名,用于收件人收到附件时显示的名称
        a.Name = "附件文件名"

        '加入附件,可以多次添加
        mail.Attachments.Add(a)

'发送邮件
        Try

            smtp.Send(mail)
            MessageBox.Show("发送成功")

        Catch

            MessageBox.Show("发送失败")

        Finally

            mail.Dispose()
        End Try

SendAsync 和Send都是方法

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

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