VB.Net – 发送邮件

VB.Net允许从您的应用程序发送电子邮件。 System.Net.Mail命名空间包含用于向简单邮件传输协议（SMTP）服务器发送电子邮件以进行传递的类。

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

SmtpClient类

SmtpClient类允许应用程序使用简单邮件传输协议（SMTP）发送电子邮件。

以下是SmtpClient类的一些常用属性：

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

以下示例演示如何使用SmtpClient类发送邮件。 在这方面应注意以下几点：

• 您必须指定用于发送电子邮件的SMTP主机服务器。 不同主机服务器的主机和端口属性将不同。 我们将使用gmail服务器。

• 如果SMTP服务器需要，您需要授予认证凭据。

• 您还应该分别使用MailMessage.From和MailMessage.To属性提供发件人的电子邮件地址和收件人的电子邮件地址。

• 您还应该使用MailMessage.Body属性指定消息内容。

示例

在这个例子中，让我们创建一个发送电子邮件的简单应用程序。 执行以下步骤：

• 在表单中添加三个标签，三个文本框和一个按钮控件。

• 将标签的文本属性分别更改为 – “From”，“To：”和“Message：”。

• 将文本的名称属性分别更改为txtFrom，txtTo和txtMessage。

• 将按钮控件的文本属性更改为“发送”

• 在代码编辑器中添加以下代码。

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

您必须提供您的gmail地址和真实密码以获取凭据。

当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时，将显示以下窗口，您将使用该窗口发送电子邮件，自行尝试。