VB.net2008實例 創建郵件發送程序

本篇文章的主要開發環境是Visual Studio 2008，Visual Studio系列產品一直以來都提供了強大的控件功能，然而我們利用這些控件可以編寫出功能強大的應用程序，Visual Studio2008在一些特性上也做出了許多的改進。本文主要利用微軟的最新.net開發工具為大家展示創建郵件發送程序的方法，為大家介紹怎樣向指定的郵件地址發送郵件，以及登錄驗證的一些技巧。很適合.net開發工具的初學者，具有一定的實用價值。　　

打開 Visual Studio 2008在文件 (File) 菜單上，單擊新建項目 (New Project)。 在新建項目 (New Project) 對話框的模板 (Templates) 窗格中，單擊 Windows 應用程序(Windows Application)。單擊確定 (OK) 如圖1。

選擇Form1窗體，在Form1窗體中添加如下控件：

GroupBox1、Label1、Label2、Label3、Label4、Label5、Label6、和同時創建7個文本框（Textbox1- Textbox7）、Checkbox1、Button1控件

控件屬性設置如下：

適當的調整控件在界面的布局，最終界面效果如圖2

接下來我們需要輸入代碼了，首先進入代碼編輯器

注意：在編寫代碼之前我們需要了解MailMessage 屬性，在這裡我們將會要使用MailMessage 屬性。

MailMessage 屬性詳細如下表所示

代碼如下：

首先進行聲明：

Imports System.net.Mail
Imports System.Text
Imports System.Security
Imports System.Net.Sockets　　
進入CheckBox1_CheckedChanged事件
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Checkbox1.CheckedChanged
If Checkbox1.Checked = True Then
txtName.Enabled = True
txtPassword.Enabled = True
Else
txtName.Enabled = False
txtPassword.Enabled = False
End If
End Sub
進入Button1_Click事件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mail As New MailMessage()
mail.From = New MailAddress(txtFrom.Text)
mail.To.Add(txtaccept.Text)
'設置郵件內容
mail.Subject = txtSubject.Text
mail.Body = txtContent.Text
''設置電子郵件優先級
mail.Priority = MailPriority.High
'獲取與此電子郵件傳輸的標頭
mail.Headers.Add("YourCompany", "yourname")
mail.Headers.Add("YourLocation", "yourlocation")
Dim Mysmtp As New SmtpClient(txtSMTP.Text)
If Checkbox1.Checked = True Then
Mysmtp.Credentials = New System.Net.NetworkCredential(txtName.Text, txtPassword.Text)
End If
Try
Mysmtp.Send(mail)
MsgBox("郵件已經發出，郵件已經發送到指定的郵件地址.", MsgBoxStyle.Information, "實例，創建郵件發送程序")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "抱歉。郵件發送失敗")
End Try
End Sub

代碼輸入完畢後，我們運行程序進行測試，填上自己郵箱的用戶名及密碼和SMTP服務器地址。發送一封電子郵件試一試，如圖3。

提示：郵件發送成功，如圖4。我們就成功的發送了電子郵件，大家在發送時需要注意SMTP的地址。

這是一個簡單的郵件發送程序，本實例中用到了MailMessage 屬性。程序編寫完成後我們對MailMessage 屬性有了很好的了解，好好地去利用MailMessage 屬性相信你也能編寫出功能強大而又專業的電子郵件程序。