要壹段VB.NET發郵件的代碼

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