程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB.NET >> VB.net2008實例 創立郵件發送順序

VB.net2008實例 創立郵件發送順序

編輯:VB.NET

VB.net2008實例 創立郵件發送順序。本站提示廣大學習愛好者:(VB.net2008實例 創立郵件發送順序)文章只能為提供參考,不一定能成為您想要的結果。以下是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 屬性置信你也能編寫出功用弱小而又專業的電子郵件順序。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved