VB.Net發送電子郵件

VB.Net應用程式可發送電子郵件。System.Net.Mail名稱空間包含用於向簡單郵件傳輸協議(SMTP)伺服器發送電子郵件以供傳送的類。

下表列出了一些常用的類：

SmtpClient類

SmtpClient類允許應用程式使用簡單郵件傳輸協議(SMTP)發送電子郵件。

以下是SmtpClient類的一些常用屬性：

以下是SmtpClient類的一些常用方法：

以下示例演示如何使用SmtpClient類發送郵件。 以下幾點需要注意：

• 必須指定用於發送電子郵件的SMTP主機伺服器。主機和端口屬性對於不同的主機伺服器是不同的。這個示例中將使用QQ郵件伺服器。
• 如果SMTP伺服器需要，需要為 Credentials 頒發證書。
• 分別使用MailMessage.From和MailMessage.To屬性提供發件人的電子郵件地址和收件人的電子郵件地址。
• 使用MailMessage.Body屬性指定郵件內容。

示例

在這個例子中，創建一個簡單的應用程式來發送電子郵件。參考以下步驟：

• 在窗體中添加三個標籤，三個文本框和一個按鈕控件。
• 將標籤的Text屬性分別更改為：“發送者：”，“接收者：”和“郵件內容：”。
• 將文本的Name屬性分別更改為：txtFrom，txtTo和txtMessage。
• 將按鈕控件的Text屬性更改為“發送”

設計窗體的效果如下所示 -

在代碼編輯器中添加下麵的代碼 -

Imports System.Net.Mail

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Set the caption bar text of the form.
        txtFrom.Text = "769728683@qq.com"
        txtTo.Text = "769728683@qq.com"
        Me.Text = "VB.Net發送郵件示例-xuhuhu.com"
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            'Dim Smtp_Server As New SmtpClient
            Dim smtp As New System.Net.Mail.SmtpClient("smtp.qq.com", 25)
            Dim mail As New System.Net.Mail.MailMessage()

            smtp.UseDefaultCredentials = False
            smtp.Credentials = New System.Net.NetworkCredential("29888814@qq.com", "zrp29888814encaei")

            mail.Subject = "郵件主題a"
            mail.SubjectEncoding = System.Text.Encoding.UTF8
            mail.BodyEncoding = System.Text.Encoding.UTF8
            mail.From = New System.Net.Mail.MailAddress(txtFrom.Text)
            mail.Priority = System.Net.Mail.MailPriority.Normal
            mail.IsBodyHtml = True
            mail.Body = txtMessage.Text
            mail.To.Add(txtTo.Text)

            smtp.Send(mail)
            MsgBox("郵件已發送~！")

        Catch error_t As Exception
            MsgBox(error_t.ToString)
        End Try

    End Sub
End Class

注意：必須提供您的QQ郵箱帳號和真實密碼的憑據，才能登錄SMTP伺服器發送郵件。

首先我們要知道用VB.Net代理登錄QQ郵箱發郵件，是需要更改自己QQ郵箱設置的。在這裏大家需要做兩件事情：郵箱開啟SMTP功能 、獲得授權碼。下麵來看看如何更改範本代碼，實現使用VB.Net登錄QQ郵箱發送QQ郵件。

注意：也可以使用其他服務商的 SMTP 訪問(QQ、網易、Gmail等)。

使用QQ郵件發送郵件之前如何設置授權碼，參考：

http://service.mail.qq.com/cgi-bin/help?subtype=1&&id=28&&no=1001256

當執行上面的代碼並使用Microsoft Visual Studio工具欄上的“開始”按鈕運行時，它將顯示以下窗口，將使用該窗口發送電子郵件，自己嘗試。