VB.NET網(wǎng)絡(luò)中如何實(shí)現(xiàn)E-mail的發(fā)送

這期內(nèi)容當(dāng)中小編將會(huì)給大家?guī)?lái)有關(guān)VB.NET網(wǎng)絡(luò)中如何實(shí)現(xiàn)E-mail的發(fā)送，文章內(nèi)容豐富且以專(zhuān)業(yè)的角度為大家分析和敘述，閱讀完這篇文章希望大家可以有所收獲。

我們常常發(fā)E-mail郵件，可是你知道我們?cè)趺窗盐覀儗?xiě)的郵件發(fā)送給另一方的嗎？利用VB.NET網(wǎng)絡(luò)可以實(shí)現(xiàn)這個(gè)過(guò)程，下面我們就來(lái)設(shè)計(jì)E-mail的發(fā)送部分：

1．參數(shù)設(shè)置

進(jìn)入Exchange系統(tǒng)，選擇新增設(shè)置文件后屏幕上會(huì)顯示所需要的信息服務(wù)，選擇Internet Mail。把設(shè)置文件的名稱(chēng)設(shè)為test。屏幕會(huì)顯示兩個(gè)選項(xiàng)，您可以選擇以Modem方式或以Network 方式連接。筆者所用的是Modem方式；假若您是使Internet專(zhuān)線(xiàn)，就要選擇Network 方式。

選擇Modem方式后，Exchange會(huì)要求我們輸入郵件服務(wù)器的IP地址。接著將Transform Message的模式設(shè)置為Automatic，這樣當(dāng)我們連接到郵件服務(wù)器時(shí)，新的信息會(huì)自動(dòng)下載到本地端。接下來(lái)，將您所使用的E mail地址、全名、口令和下載路徑等一一設(shè)置好。

2．VB.NET網(wǎng)絡(luò)程序設(shè)計(jì)

在Form上加入一個(gè)MAPIMessage控件，取名為MAPIMessage1；加入一個(gè)MAPISession控件，取名為MAPISession1；并加入三個(gè)TextBox控件，取名為Subject、Content和Addr。并在三個(gè)TextBox前各加入一個(gè)Label，將Caption分別改為標(biāo)題、內(nèi)容和地址。

將MAPIMessage1的各項(xiàng)屬性設(shè)置如下：

·DownLoadMail=TRUE；  ·LogonUI=TRUE；  ·NewSession=FALSE；  ·UserName=“發(fā)送E mail”。

這里將DownLoadMail設(shè)置為T(mén)RUE，當(dāng)程序和郵件服務(wù)器***次連接時(shí)，會(huì)將新的郵件下載到本地端。將LogonUI設(shè)置為T(mén)RUE，則當(dāng)您程序中Logon名稱(chēng)輸入錯(cuò)誤時(shí)，系統(tǒng)會(huì)顯示一個(gè)Message Box來(lái)讓您輸入正確的名稱(chēng)。

由于這個(gè)程序僅使用一個(gè)Session，所以可將NewSession設(shè)置成FALSE。如果您有許多Session要建立的話(huà)，則將它設(shè)置成TRUE。UserName中所填的，是我們?cè)贓xchange中所新增的設(shè)置文件名稱(chēng)，如果沒(méi)有填內(nèi)容的話(huà)，系統(tǒng)將會(huì)顯示一些Message Box請(qǐng)您輸入文件。在Form上加入三個(gè)按鈕，Logon、Logoff和Send，并分別將它們的Caption改為登錄、離網(wǎng)和發(fā)送。

在 Logon_Click()事件中加入以下程序代碼，程序的功能是使我們登錄到郵件服務(wù)器：

MAPISession1.SignOn   MAPIMessage1.SessionID=MAPISession1.SessionID   sgBox “Your ID is” ＋ Str   (MAPISession1.SessionID)

其中MAPISession1.SignOn是作登錄的動(dòng)作。在登錄時(shí)，因?yàn)橐呀?jīng)將MAPIMessage1控件的DownLoadMail屬性設(shè)置為T(mén)RUE，所以可以在屏幕上看到Message Box，顯示系統(tǒng)正在下載郵件。登錄成功后，系統(tǒng)會(huì)傳回一個(gè)SessionID，將該ID填入MAPIMessage1的SessionID中，這樣就可以利用該Session來(lái)傳送E mail，同時(shí)用Message Box通知用戶(hù)發(fā)送成功。

在Logoff_Click()事件中加入以下程序代碼，程序的功能是使我們離開(kāi)郵件服務(wù)器：

MAPIS1.SignOff

在Send_Click()事件中加入以下程序代碼，程序的功能是使我們發(fā)送E mail：

MAPIMessage1.Compose   MAPIMessage1.RecipDisplayName = Addr.text   MAPIMessage1.AddressResolveUI = TRUE   MAPIMessage1.MsgSubject = Subject.text   MAPIMessage1.MsgNoteText = Content.text   MAPIMessage1.Send   MsgBox “您發(fā)送成功啦！”

其中Compose命令的主要目的是使您可以改變RecipDisplayName的內(nèi)容，將所需傳送的E mail地址、主題和文章內(nèi)容分別填入RecipDisplayName、MsgSubject和MsgNoteText，接著用Send命令發(fā)送出去，VB.NET網(wǎng)絡(luò)編程還是很好用的吧。

上述就是小編為大家分享的VB.NET網(wǎng)絡(luò)中如何實(shí)現(xiàn)E-mail的發(fā)送了，如果剛好有類(lèi)似的疑惑，不妨參照上述分析進(jìn)行理解。如果想知道更多相關(guān)知識(shí)，歡迎關(guān)注億速云行業(yè)資訊頻道。