[Microsoft Visual Basic 2010 Express]發送郵件

開發環境：Microsoft Visual Basic 2010 Express

原        理：利用Google，達到發送郵件的目的

Imports System.Net.Mail

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim messase As String

        messase = TextBox1.Text

        messase = messase.Replace(vbCrLf, "<br>")

        Dim mailmsg As New System.Net.Mail.MailMessage()

        mailmsg.From = New MailAddress("") '寄件人的信箱@gmail.com

        mailmsg.To.Add("") '收件人的信箱@gmail.com

        mailmsg.Subject = "" '信主旨

        mailmsg.IsBodyHtml = True

        mailmsg.Body = messase '信件內容

        mailmsg.Priority = MailPriority.Normal

        Dim client As New System.Net.Mail.SmtpClient()

        client.UseDefaultCredentials = False

        client.Credentials = New System.Net.NetworkCredential("", "") '寄件人的信箱@gmail.com '寄件人的信箱密碼

        client.Port = "587" '587,25(smtp port)

        client.Host = "smtp.gmail.com" '需知道smtp位置

        client.EnableSsl = True '是否SSL加密

        Dim userstate As Object = mailmsg

        client.Send(mailmsg)

    End Sub

End Class