邮件发送代码

        '创建发件连接,根据你的发送邮箱的SMTP设置填充
        Dim smtp As New System.Net.Mail.SmtpClient("smtp.126.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("lcxlqb@126.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("D:\temp2\chs1\obj\release\ttt.txt")
        '附件文件名,用于收件人收到附件时显示的名称
        a.Name = "ttt.rar"
        '加入附件,可以多次添加
        mail.Attachments.Add(a)
        '发送邮件