在网上找到一个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

看来早晚会被您收入囊中，顶一下！