要一段VB.NET发邮件的代码

'创建发件连接,根据你的发送邮箱的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

'邮件内容