VB.NET功能非常強大，程序界面標準，可以幫助程序員提高開發(fā)效率。它能夠支持類的各種特性。那么今天我們將會通過對VB.NET發(fā)送郵件的方法的理解，對這一語言的使用技巧進行一個詳細的解讀。

VB.NET發(fā)送郵件實現(xiàn)方法之一、使用outLook提供的發(fā)送

如：我見過的用友軟件U8生產(chǎn)制造(演示版)，其中的郵件功能就是通過調(diào)用outLook的ActiveX 組件

優(yōu)點：開發(fā)簡單

缺點：依賴outlook組件，SMTP 郵件服務(wù)

郵件發(fā)送的代碼如下：

以下是引用片段：

Private Sub Send()   
Dim outObj As New 
Outlook.Application()   
Dim Item As Outlook.
MailItemClass   
Item = outObj.CreateItem(0)   
Item.To = "lihonggen0@163.com "   
Item.Subject = "hello"   
Item.Body = "hell"   
Item.Attachments.Add
("C:\abc.txt")   
Item.Send()   
End Sub  

VB.NET發(fā)送郵件實現(xiàn)方法之二、WEB開發(fā)，在asp.net中引用System.Web.Mail類#t#

System.Web.Mail 命名空間包含使您可以使用 CDOSYS(Windows 2000 的協(xié)作數(shù)據(jù)對象)消息組件來構(gòu)造和發(fā)送消息的類。郵件消息是通過內(nèi)置在 Microsoft Windows 2000 中的 SMTP 郵件服務(wù)或任意的 SMTP 服務(wù)器來傳送的。此命名空間中的類可以在 asp.Net 或任何托管應(yīng)用程序

MailAttachment提供用于構(gòu)造電子郵件附件的屬性和方法。

MailMessage提供用于構(gòu)造電子郵件的屬性和方法。

SmtpMail提供用于使用 Windows 2000 的協(xié)作數(shù)據(jù)對象 (CDOSYS) 消息組件來發(fā)送消息的屬性和方法。

郵件可以通過 Microsoft Windows 2000 中內(nèi)置的 SMTP 郵件服務(wù)或任意 SMTP 服務(wù)器來傳送。System.Web.Mail 命名空間中的類型可以在 ASP.Net 或任何托管應(yīng)用程序使用。

Smtp服務(wù)器的設(shè)置，現(xiàn)在一些免費郵件提供商是不再提供針對所有郵件提供Smtp服務(wù)，在發(fā)送郵件的時候，需要驗證用戶信息，考慮Smtp用戶驗證問題

如果Smtp服務(wù)器在本地計算機，發(fā)送速度很快的，基本上不用擔心，如果不是本地服務(wù)器，那么發(fā)送的時候***不要以此太多，一是速度問題，二是以此發(fā)送太多郵件，Smtp服務(wù)器可能認為是垃圾郵件而拒絕服務(wù)

VB.NET發(fā)送郵件的代碼如下:

以下是引用片段：

Private Sub Button1_Click(ByVal 
sender As System.Object, ByVal e 
As System.EventArgs) Handles 
Button1.Click   
Dim mailObj As New MailMessage()   
Dim smtp As SmtpMail   
'定義SMTP服務(wù)器的名稱   
smtp.SmtpServer = "smtp.XXX.com"   
'定義郵件的發(fā)送地址   
mailObj.From = "lihonggen@XXX.com"   
'定義郵件的接收地址   
mailObj.To = " AAA@XXX.com"   
'定義郵件的暗送地址   
mailObj.Bcc= "aa@sina.com"   
'定義郵件的抄送地址   
mailObj.Cc = "aaa@sina.com"   
'定義郵件的主題   
mailObj.Subject = "主題"   
'定義郵件的主體   
mailObj.Body = "郵件主體!"   
'郵件以 HTML的格式發(fā)送   
mailObj.BodyFormat = MailFormat.Html   
'定義郵件的有限級，在此設(shè)定為高   
mailObj.Priority = MailPriority.High   
'給發(fā)送的郵件附加上一個附件   
mailObj.Attachments.Add(New 
MailAttachment("c:\aa.doc"))   
smTp.Send(mailObj)   
End Sub 

總結(jié)：選擇何種VB.NET發(fā)送郵件的方案，視程序的用途和需求而定，本文例出的幾種方案，供大家參考。例如用友軟件U8，調(diào)用outlook組件，一樣整合到自己的軟件中。我編寫的管理系統(tǒng)，自己寫組件(SMTP)，功能同樣強大，不過Coding的時間就長了!