VB.Net - 發(fā)送郵件

VB.Net允許從您的應(yīng)用程序發(fā)送電子郵件。 System.Net.Mail命名空間包含用于向簡(jiǎn)單郵件傳輸協(xié)議（SMTP）服務(wù)器發(fā)送電子郵件以進(jìn)行傳遞的類。

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

SmtpClient類

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

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

以下示例演示如何使用SmtpClient類發(fā)送郵件。 在這方面應(yīng)注意以下幾點(diǎn)：

• 您必須指定用于發(fā)送電子郵件的SMTP主機(jī)服務(wù)器。 不同主機(jī)服務(wù)器的主機(jī)和端口屬性將不同。 我們將使用gmail服務(wù)器。

• 如果SMTP服務(wù)器需要，您需要授予認(rèn)證憑據(jù)。

• 您還應(yīng)該分別使用MailMessage.From和MailMessage.To屬性提供發(fā)件人的電子郵件地址和收件人的電子郵件地址。

• 您還應(yīng)該使用MailMessage.Body屬性指定消息內(nèi)容。

示例

在這個(gè)例子中，讓我們創(chuàng)建一個(gè)發(fā)送電子郵件的簡(jiǎn)單應(yīng)用程序。 執(zhí)行以下步驟：

• 在表單中添加三個(gè)標(biāo)簽，三個(gè)文本框和一個(gè)按鈕控件。

• 將標(biāo)簽的文本屬性分別更改為 - “From”，“To：”和“Message：”。

• 將文本的名稱屬性分別更改為txtFrom，txtTo和txtMessage。

• 將按鈕控件的文本屬性更改為“發(fā)送”

• 在代碼編輯器中添加以下代碼。

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.   
      Me.Text = "tutorialspoint.com"
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Try
          Dim Smtp_Server As New SmtpClient
          Dim e_mail As New MailMessage()
          Smtp_Server.UseDefaultCredentials = False
          Smtp_Server.Credentials = New Net.NetworkCredential("username@gmail.com", "password")
          Smtp_Server.Port = 587
          Smtp_Server.EnableSsl = True
          Smtp_Server.Host = "smtp.gmail.com"

          e_mail = New MailMessage()
          e_mail.From = New MailAddress(txtFrom.Text)
          e_mail.To.Add(txtTo.Text)
          e_mail.Subject = "Email Sending"
          e_mail.IsBodyHtml = False
          e_mail.Body = txtMessage.Text
          Smtp_Server.Send(e_mail)
          MsgBox("Mail Sent")

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

   End Sub

當(dāng)使用Microsoft Visual Studio工具欄上的“開始”按鈕執(zhí)行并運(yùn)行上述代碼時(shí)，將顯示以下窗口，您將使用該窗口發(fā)送電子郵件，自行嘗試。