怎樣用vb編寫電子郵件收發(fā)

VB：收發(fā)電子郵件

成都創(chuàng)新互聯(lián)公司是一家朝氣蓬勃的網(wǎng)站建設(shè)公司。公司專注于為企業(yè)提供信息化建設(shè)解決方案。從事網(wǎng)站開(kāi)發(fā)，網(wǎng)站制作，網(wǎng)站設(shè)計(jì)，網(wǎng)站模板，微信公眾號(hào)開(kāi)發(fā)，軟件開(kāi)發(fā)，微信小程序，十年建站對(duì)紙箱等多個(gè)行業(yè)，擁有豐富設(shè)計(jì)經(jīng)驗(yàn)。

發(fā)送和接收電子郵件，對(duì)于某些執(zhí)行特殊任務(wù)的應(yīng)用程序而言，是一個(gè)十分有用的功能。例如，一個(gè)監(jiān)視網(wǎng)絡(luò)服務(wù)器資源使用情況的工具軟件，如果它具有自動(dòng)發(fā)送電子郵件的功能，那么當(dāng)它發(fā)現(xiàn)服務(wù)器的資源使用已經(jīng)接近事先設(shè)定的臨界狀態(tài)時(shí)，便可以向系統(tǒng)管理員發(fā)送一封告警的電子郵件，從而使系統(tǒng)管理員能夠及時(shí)地采取措施，以避免重大事故的出現(xiàn)。在Visual Basic中，應(yīng)用程序可以通過(guò)調(diào)用微軟公司的MAPI（Messaging Application Programming Interface，消息應(yīng)用程序編程接口），實(shí)現(xiàn)收發(fā)電子郵件的功能。筆者將在本文中結(jié)合簡(jiǎn)單實(shí)例，向大家介紹在VB程序中實(shí)現(xiàn)電子郵件收發(fā)功能的編程方法。

編制具有收發(fā)電子郵件功能的VB程序，必須使用Visual Basic 4.0以上的版本，因?yàn)橹挥?.0以上的Visual Basic才帶有兩個(gè)實(shí)現(xiàn)電子郵件收發(fā)功能的核心控件：MAPI會(huì)話控件和MAPI消息控件。MAPI會(huì)話控件用于建立和控制一個(gè)Microsoft Mail會(huì)話，MAPI消息控件用于創(chuàng)建和收發(fā)郵件消息。此外，程序必須運(yùn)行在采用遵從MAPI的消息系統(tǒng)（如：Microsoft Exchange、Microsoft Mail、Outlook等）的環(huán)境中。

在開(kāi)始編程之前，首先需要將MAPI控件加入VB工具箱。具體操作是：在VB菜單欄中選擇Tools菜單項(xiàng)中的Custom Controls命令，調(diào)出"Custom Controls"對(duì)話框，在其中的"Available Controls"列表框中選中"Microsoft MAPI Controls"表項(xiàng)，然后按"OK"命令按鈕退出該對(duì)話框。此后，工具箱中將新添兩個(gè)圖標(biāo)，這就是MAPI會(huì)話控件和MAPI消息控件的圖標(biāo)。

下面，筆者將以兩個(gè)簡(jiǎn)單的VB程序?yàn)槔?，分別介紹發(fā)送郵件和接收郵件的程序編制方法。

郵件發(fā)送程序

郵件發(fā)送程序的基本處理過(guò)程是：根據(jù)用戶輸入信息組成郵件，然后使用MAPI消息控件的Send方法將郵件發(fā)出。編程步驟如下：

1、新建一個(gè)VB項(xiàng)目。

2、將缺省窗體Form1的Caption屬性設(shè)置為"發(fā)送郵件"。

3、將MAPI控件加入VB工具框。

4、在Form1中加入一個(gè)MAPI會(huì)話控件MAPISession1和一個(gè)MAPI消息控件MAPIMessages1。

5、在Form1中加入三個(gè)文本框控件，將它們的Name屬性分別設(shè)置為txtSendTo、txtSubject、txtMessage，并將txtMessage的Multiline屬性設(shè)置為True。這三個(gè)文本框控件將分別用于填寫郵件的收件人、主題和內(nèi)容。

6、在Form1中加入三個(gè)標(biāo)簽控件，將它們的Caption屬性分別設(shè)置為"收件人"、"主題"和"內(nèi)容"，并將它們放在合適的位置用以標(biāo)注相應(yīng)的文本框控件。

7、在Form1中加入一個(gè)命令按鈕控件，將其Caption屬性和Name屬性分別設(shè)置為"發(fā)送"和"cmdSend"。

8、將下列代碼加入Form1的Form_Load事件：

Private Sub Form_Load()

MAPISession1.SignOn

End Sub

9、將下列代碼加入Form1的Form_Unload事件：

Private Sub Form_Unload(Cancel As Integer)

MAPISession1.SignOff

End Sub

10、將下列代碼加入cmdSend的Click事件：

Private Sub cmdSend_Click()

With MAPIMessages1

.MsgIndex = -1

.RecipDisplayName = txtSendTo.Text

.MsgSubject = txtSubject.Text

.MsgNoteText = txtMessage.Text

.SessionID = MAPISession1.SessionID

.Send

End With

MsgBox "郵件發(fā)送完畢！", , "發(fā)送郵件"

End Sub

在填寫完郵件的收件人、主題和內(nèi)容后，按"發(fā)送"命令按鈕，如果沒(méi)有出現(xiàn)運(yùn)行時(shí)錯(cuò)誤提示，那么就表明郵件已經(jīng)成功地發(fā)往目的地了，否則，請(qǐng)檢查填寫的收件人地址是否準(zhǔn)確無(wú)誤以及系統(tǒng)中運(yùn)行的消息系統(tǒng)工作是否正常。

郵件接收程序

郵件接收程序比郵件發(fā)送程序稍微復(fù)雜一些。首先需要使用MAPI消息控件的Fetch方法讀取郵件，這個(gè)過(guò)程將把用戶收件箱中所有未讀郵件全部裝入MAPI消息控件中。然后，檢查MAPI消息控件的MsgCount屬性以確定通過(guò)Fetch方法讀取的郵件的總數(shù)。接著，可以通過(guò)設(shè)置MAPI消息控件的MsgIndex屬性來(lái)指定具體需要處理哪一封郵件。需要說(shuō)明的是，MsgIndex屬性值的計(jì)數(shù)是從0開(kāi)始的，也就是說(shuō)，第一封郵件的索引號(hào)是0，第二封郵件的索引號(hào)是1，依次類推。編程步驟如下：

1、新建一個(gè)VB項(xiàng)目。

2、將缺省窗體Form1的Caption屬性設(shè)置為"接收郵件"。

3、將MAPI控件加入VB工具框。

4、在Form1中加入一個(gè)MAPI會(huì)話控件MAPISession1和一個(gè)MAPI消息控件MAPIMessages1。

5、在Form1中加入三個(gè)標(biāo)簽控件和一個(gè)文本框控件，將三個(gè)標(biāo)簽控件的Name屬性分別設(shè)置為lblMsgDateReceived、lblMsgOrigDisplayName、lblMsgSubject，將文本框控件的Name屬性設(shè)置為txtMsgNoteText，并將標(biāo)簽控件的Caption屬性和文本框控件的Text屬性的內(nèi)容清空。這四個(gè)控件將分別用于顯示郵件的日期、發(fā)件人、主題和內(nèi)容。

6、將txtMsgNoteText控件的Locked屬性和Multiline屬性設(shè)置為True，ScrollBars屬性設(shè)置為2 - Vertical。

7、在Form1中再加入四個(gè)標(biāo)簽控件用于標(biāo)注上述四個(gè)控件，將它們的Caption屬性分別設(shè)置為"日期"、"發(fā)件人"、"主題"、"內(nèi)容"。

8、在Form1中加入一個(gè)標(biāo)簽控件，將其Name屬性設(shè)置為lblMsgCount，Caption屬性設(shè)置為"第 0 封郵件，總計(jì) 0 封郵件"。該控件用于顯示接收的郵件總數(shù)以及當(dāng)前正在處理第幾封郵件。

9、在Form1中加入三個(gè)命令按鈕控件，將它們的Name屬性分別設(shè)置為cmdPrevious、cmdNext、cmdClose，Caption屬性分別設(shè)置為"上一封"、"下一封"、"關(guān)閉"。

10、編寫一個(gè)窗體級(jí)子例程FetchNewMail：

Public Sub FetchNewMail()

MAPIMessages1.FetchUnreadOnly = True

MAPIMessages1.Fetch

End Sub

11、編寫一個(gè)窗體級(jí)子例程DisplayMessage：

Public Sub DisplayMessage()

lblMsgCount.Caption = "第 " _

LTrim(Str(MAPIMessages1.MsgIndex + 1)) " 封郵件，總計(jì) " _

LTrim(Str(MAPIMessages1.MsgCount)) " 封郵件"

lblMsgDateReceived.Caption = MAPIMessages1.MsgDateReceived

txtMsgNoteText.Text = MAPIMessages1.MsgNoteText

lblMsgOrigDisplayName.Caption = MAPIMessages1.MsgOrigDisplayName

lblMsgSubject.Caption = MAPIMessages1.MsgSubject

End Sub

12、將下列代碼加入Form1的Form_Load事件：

Private Sub Form_Load()

MAPISession1.SignOn

MAPIMessages1.SessionID = MAPISession1.SessionID

FetchNewMail

DisplayMessage

End Sub

13、將下列代碼加入cmdPrevious的Click事件：

Private Sub cmdPrevious_Click()

If MAPIMessages1.MsgIndex 0 Then

MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex - 1

DisplayMessage

Else

Beep

End If

End Sub

14、將下列代碼加入cmdNext的Click事件：

Private Sub cmdNext_Click()

If MAPIMessages1.MsgIndex MAPIMessages1.MsgCount - 1 Then

MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex + 1

DisplayMessage

Else

Beep

End If

End Sub

15、將下列代碼加入cmdClose的Click事件：

Private Sub cmdClose_Click()

Unload Me

End Sub

在窗體加載過(guò)程中，窗體Load事件中的代碼會(huì)讀取新郵件，如果有新郵件，就顯示第一個(gè)新郵件。如果有多個(gè)新郵件，則可以使用"上一封"和"下一封"命令按鈕前后翻閱。

接收郵件

本例是讀取用戶收件箱中所有未讀郵件，如果要讀取收件箱中所有的郵件，那么只需在執(zhí)行Fetch方法之前，將MAPI消息控件的FetchUnreadOnly屬性設(shè)置為False。具體接收的郵件是否已經(jīng)讀過(guò)，可以通過(guò)MsgRead屬性來(lái)判別。如果郵件的正文或附件曾經(jīng)被瀏覽過(guò)，那么該郵件就會(huì)自動(dòng)標(biāo)記為已讀，不過(guò)只瀏覽郵件的主題不會(huì)標(biāo)記該郵件已讀。

郵件附件

與處理郵件的方式一樣，MAPI也為郵件的附件提供了一個(gè)計(jì)數(shù)器和一個(gè)索引。在處理收到的郵件時(shí)，可以通過(guò)檢查AttachmentCount屬性來(lái)確定該郵件攜帶了多少個(gè)附件，然后可以通過(guò)設(shè)置AttachmentIndex屬性依次處理每一個(gè)附件。

AttachmentIndex的合法取值范圍為0至AttachmentIndex-1。在設(shè)置了AttachmentIndex屬性值后，可以讀取附件的下列屬性：

AttachmentName：當(dāng)附件是一個(gè)文件時(shí)，該屬性用于指定文件的名稱。當(dāng)附件是一個(gè)OLE對(duì)象時(shí)，該屬性用于指定對(duì)象的類型。

AttachmentPath：該屬性用于指定做為附件的文件的全路徑名。

AttchmentPosition：該屬性用于指定附件在郵件內(nèi)容部分中的位置。當(dāng)郵件收發(fā)程序顯示郵件內(nèi)容時(shí)，將使用該屬性提供的信息把附件的標(biāo)志放在合適的位置。

AttachmentType：該屬性用于指定附件的類型，其合法取值為三個(gè)整數(shù)型數(shù)值，在VB中分別由下列常量表示：

·mapData－附件是一個(gè)數(shù)據(jù)文件

·mapEOLE－附件是一個(gè)嵌入式OLE對(duì)象

·mapSOLE－附件是一個(gè)靜態(tài)OLE對(duì)象

發(fā)送郵件時(shí)，上述屬性的使用方法與接收郵件時(shí)相同，只不過(guò)由讀操作改為寫操作了。值得一提的是AttachmentIndex屬性，發(fā)送郵件時(shí)可以將其設(shè)置為任意值。而AttachmentCount屬性則會(huì)自動(dòng)設(shè)置為正確的值，無(wú)需人為設(shè)置。

小結(jié)

通過(guò)分析上述兩個(gè)程序的代碼，可以歸納出具有收發(fā)電子郵件功能的VB程序的基本流程如下：

1、使用MAPI會(huì)話控件建立一個(gè)郵件會(huì)話。

2、使用MAPI消息控件進(jìn)行郵件的處理工作。

3、再次使用MAPI會(huì)話控件釋放郵件會(huì)話。

由于上述兩個(gè)VB程序只是簡(jiǎn)單的示例，因而略去了一些與本文主題關(guān)系不大的細(xì)節(jié)，如錯(cuò)誤處理等。在編制實(shí)用程序時(shí)，為了保證程序的可靠性，應(yīng)該考慮加入這些細(xì)節(jié)部分。

VB 如何用 jmail 接收郵件

抄個(gè)自己的回答：

建議你去看阿江翻譯的JMAIL開(kāi)發(fā)文檔：

把這幾個(gè)對(duì)象看一下：

POP3。MESSAGES，MESSAGE，ATTS，ATT

過(guò)程：

1。先用POP3對(duì)象連接郵件服務(wù)（當(dāng)然你郵箱要開(kāi)POP設(shè)置）并接受到MESSAGES

2。取到MESSAGES后，輪循到MESSAGE對(duì)象后。

3。對(duì)MESSAGE解析，得到郵件標(biāo)題，內(nèi)容，收發(fā)人，

4。如果有附件還要對(duì)ATTS對(duì)象輪循并解析（可以把附件存在本地或?qū)戞溄樱?/p>

MESSAGES是信件集

MESSAGE是單封信件

ATTS是附件集

ATT是單個(gè)附件

————————————————————————

發(fā)信分割線

————————————————————————

拿個(gè)別人的回答改了一下，俺VB幾乎沒(méi)用過(guò)，只會(huì)VB。NET

先注冊(cè)DLL

然后VB代碼如下:

Private Sub Command1_Click()

SendMail "標(biāo)題", "正文"

End Sub

Sub SendMail(Optional ByVal sSubject As String, _

Optional ByVal sBody As String)

Dim jmail

Set jmail = CreateObject("jmail.Message")

jmail.Charset = "gb2312"

jmail.Silent = False

jmail.Priority = 1 '郵件狀態(tài),1-5 1為最高

jmail.MailServerUserName = "XXX" 'Email帳號(hào)

jmail.MailServerPassWord = "XXX" 'Email密碼

jmail.FromName = "XXX" '發(fā)信人姓名

jmail.From = "XXX@XXX.XXXX" '發(fā)郵件地址地址

jmail.Subject = sSubject '主題

jmail.AddRecipient "XXX@XXX.XXXX" '收信人地址

jmail.body = sBody '信件正文

jmail.Send ("smtp.163.com") 'SMTP服務(wù)器，如smtp.sohu.com

Set jmail = Nothing

End Sub

全了。FromName 和FROM 建議都用郵件地址，不然有的郵箱不收的

要一段VB.NET發(fā)郵件的代碼

'創(chuàng)建發(fā)件連接,根據(jù)你的發(fā)送郵箱的SMTP設(shè)置填充

Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com", 25)

'發(fā)件郵箱身份驗(yàn)證,參數(shù)分別為 發(fā)件郵箱登錄名和密碼

smtp.Credentials = New System.Net.NetworkCredential("用戶名", "密碼")

'創(chuàng)建郵件

Dim mail As New System.Net.Mail.MailMessage()

'郵件主題

mail.Subject = "郵件主題"

'主題編碼

mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")

'郵件正文件編碼

mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")

'發(fā)件人郵箱

mail.From = New System.Net.Mail.MailAddress("example@163.com")

'郵件優(yōu)先級(jí)

mail.Priority = System.Net.Mail.MailPriority.Normal

'HTML格式的郵件,為false則發(fā)送純文本郵箱

mail.IsBodyHtml = True

'郵件內(nèi)容

mail.Body = "郵件正文內(nèi)容"

'添加收件人,如果有多個(gè),可以多次添加

mail.To.Add("收件人地址")

'定義附件,參數(shù)為附件文件名,包含路徑,推薦使用絕對(duì)路徑

'如果不需要附件,下面三行可以不要

Dim a As New System.Net.Mail.Attachment("附件文件")

'附件文件名,用于收件人收到附件時(shí)顯示的名稱

a.Name = "附件文件名"

'加入附件,可以多次添加

mail.Attachments.Add(a)

'發(fā)送郵件

Try

smtp.Send(mail)

MessageBox.Show("發(fā)送成功")

Catch

MessageBox.Show("發(fā)送失敗")

Finally

mail.Dispose()

End Try

vb 如何 接收 郵件??

可以明確告訴你,不用控件是辦不到的,不過(guò)使用的控件也很簡(jiǎn)單,只需要

MAPI會(huì)話控件MAPISession1和一個(gè)MAPI消息控件MAPIMessages1,不用一個(gè)小時(shí)就可以學(xué)會(huì)了

vb制作郵箱收信程序

我只有ACCESS的VBA代碼供你參考，vba與vb很多代碼是可以共用的，你不妨參與研究下：

ACCESS發(fā)送郵件代碼

access 2009-02-11 16:41 閱讀23 評(píng)論0 字號(hào)： 大大 中中 小小 Private Sub Command1_Click() '發(fā)送郵件，依據(jù)ACCESS開(kāi)發(fā)答疑200問(wèn)P226頁(yè)

'首先，確保已經(jīng)安裝了OutLook,然后在引用中引用Microsoft OutLook對(duì)象，在輸入以下代碼就可實(shí)現(xiàn)創(chuàng)建一個(gè)新郵件，并添加一個(gè)附件到郵件中，然后發(fā)送郵件的功能。

'通過(guò)引用OutLook.Application對(duì)象，Access可以循環(huán)OutLook對(duì)象里面的所有內(nèi)容，例如可以讀取OutLook里的所有郵件、聯(lián)系人、約會(huì)、日記等信息，還可修改OutLook內(nèi)置的“規(guī)則精靈”

'的內(nèi)容。

Dim myOlApp As Object

Dim myNamespace As Object

Set myOlApp = CreateObject("OutLook.Application") '創(chuàng)建OutLook應(yīng)用程序?qū)ο?/p>

Set myNamespace = myOlApp.getNamespace("MAPI") '獲取MAPI命名空間

Set myFolder = myNamespace.getDefaultFolder(6) '獲取默認(rèn)的文件夾

Set myitem = myOlApp.CreateItem(0) '創(chuàng)建新郵件

myitem.Display

Set myRecipient = myitem.Recipients.Add("rcylbx@21cn.com") '為郵件添加收件人

myRecipient.Type = 1

myitem.Subject = "test" '設(shè)置郵件主題

MsgBox "ok"

myitem.Attachments.Add ("d:\test.txt") '添加郵件附件，注意確保硬盤下有這個(gè)文件

myitem.Save

myitem.Send

MsgBox "ok"

End Sub

Private Sub Command2_Click()

'代碼說(shuō)明:

'本代碼可以在安裝了outlook（2000以上版本的）的機(jī)器上運(yùn)行。不過(guò)outlook xp 以上

'的版本由于出于防止郵件病毒的目的，對(duì)發(fā)送郵件進(jìn)行監(jiān)控，運(yùn)用本程序每發(fā)送一封

'email都需要用戶確認(rèn)，會(huì)有點(diǎn)麻煩，但是還是出于安全的角度考慮。

'可以將這段代碼嵌入access的模塊?excel的宏中運(yùn)行?

'程序要求:

'需要引用 "microsoft outlook x.x library"

'代碼:

Dim olkapp As Outlook.Application '在使用outlook之前必須先聲明outlook應(yīng)用程序的對(duì)象，應(yīng)用程序

Dim newmail As MailItem '在使用outlook之前必須先聲明outlook應(yīng)用程序的對(duì)象，郵件項(xiàng)目對(duì)象

Dim emailadd, para As String

Set olkapp = CreateObject("outlook.application") '指定outlook應(yīng)用程序的實(shí)體變量

Set newmail = olkapp.CreateItem(olMailItem) '指定郵件項(xiàng)目的實(shí)體變量

'郵件正文內(nèi)容

para = para + "祝新春快樂(lè)，并友情提醒注意新的郵件病毒。"

'收件人的email地址，這里沒(méi)有輸入內(nèi)容。

emailadd = "rcylbx@21cn.com"

With newmail

.To = emailadd '發(fā)送郵件地址

.Subject = "新春快樂(lè)" ' 郵件的主題

.Importance = olImportanceHigh '郵件的為重要等級(jí)

.Body = para '將郵件正文內(nèi)容指定para變量?jī)?nèi)容

'.Send '發(fā)送

.Display '啟動(dòng)視窗

End With

On Error GoTo continue

SendEmail:

newmail.Display

DoEvents

SendKeys "%s", Wait:=True

DoEvents

AppActivate newmail

GoTo SendEmail '發(fā)送不成功誓不罷休

continue:

On Error GoTo 0

Set olkapp = Nothing

Set newmail = Nothing

End Sub

Sub email_send()

Dim olkapp As Outlook.Application

Dim newmail As MailItem

Dim emailadd, para As String

Set olkapp = CreateObject("outlook.application")

Set newmail = olkapp.CreateItem(olMailItem)

'郵件正文內(nèi)容

para = para + "祝新春快樂(lè)，并友情提醒注意新的郵件病毒。"

'收件人的email地址，這里沒(méi)有輸入內(nèi)容。

emailadd = ""

With newmail

.To = emailadd

.Subject = "新春快樂(lè)" ' 郵件的主題

.Importance = olImportanceHigh '郵件的為重要等級(jí)

.Body = para '將郵件正文內(nèi)容指定para變量?jī)?nèi)容

.Send '發(fā)送

End With

End Sub

Private Sub Command3_Click()

'方法一是用代碼模擬發(fā)送郵件確認(rèn) (代碼引用論壇前輩的代碼)

Dim objOL As Object

Dim itmNewMail As Object

'引用Microsoft Outlook 物件模型

Set objOL = CreateObject("Outlook.Application")

Set itmNewMail = objOL.CreateItem(olMailItem)

With itmNewMail

.Subject = "chijanzen Mail Test" '主旨

.Body = "發(fā)送郵件測(cè)試2222" '本文

.To = "rcylbx@21cnl.com" '收件者

.Attachments.Add "d:\test.txt", olByValue, 1, "4th Quarter 1996 Results Chart"

.Display '啟動(dòng)視窗

End With

On Error GoTo continue

SendEmail:

AppActivate itmNewMail

DoEvents

SendKeys "%s", Wait:=True

DoEvents

AppActivate itmNewMail

GoTo SendEmail '發(fā)送不成功誓不罷休

continue:

On Error GoTo 0

Set objOL = Nothing

Set itmNewMail = Nothing

'再次測(cè)試中發(fā)現(xiàn)，窗口標(biāo)題為中文時(shí)，AppActivate命令不能執(zhí)行。將AppActivate命令改為Display方法，可解決此問(wèn)題，即將AppActivate itmNewMail改為itmNewMail.display。

End Sub

'方法一是用代碼模擬發(fā)送郵件確認(rèn) (代碼引用論壇前輩的代碼)

Sub SendMail()

Dim objOL As Object

Dim itmNewMail As Object

'引用Microsoft Outlook 物件模型

Set objOL = CreateObject("Outlook.Application")

Set itmNewMail = objOL.CreateItem(olMailItem)

With itmNewMail

.Subject = "chijanzen Mail Test" '主旨

.Body = Application.UserName "發(fā)送郵件測(cè)試2222" '本文

.To = "171262953@qq.com" '收件者

.Attachments.Add "C:\PDOS.DEF", olByValue, 1, "4th Quarter 1996 Results Chart"

.Display '啟動(dòng)視窗

End With

On Error GoTo continue

SendEmail:

AppActivate itmNewMail

DoEvents

SendKeys "%s", Wait:=True

DoEvents

AppActivate itmNewMail

GoTo SendEmail '發(fā)送不成功誓不罷休

continue:

On Error GoTo 0

Set objOL = Nothing

Set itmNewMail = Nothing

End Sub

'再次測(cè)試中發(fā)現(xiàn)，窗口標(biāo)題為中文時(shí)，AppActivate命令不能執(zhí)行。將AppActivate命令改為Display方法，可解決此問(wèn)題，即將AppActivate itmNewMail改為itmNewMail.display。

**************************************

***************************************

Sub Send_Order_Mail()

Dim cnn As ADODB.Connection

Dim rst_cusid, rst_order_list As ADODB.Recordset

Dim olkapp As Outlook.Application

Dim newmail As MailItem

Set olkapp = CreateObject("outlook.application")

Set cnn = New ADODB.Connection

cnn.Open CurrentProject.Connection

Set rst_cusid = New ADODB.Recordset

rst_cusid.Open "select distinct CustomerID,CompanyName,Email from v_order_list", cnn, adOpenKeyset, adLockReadOnly

If rst_cusid.RecordCount 1 Then Exit Sub

Set rst_order_list = New ADODB.Recordset

For i = 1 To rst_cusid.RecordCount

rst_order_list.Open "select * from v_order_list where CustomerID = " + "'" + rst_cusid.Fields(0) + "'", cnn, adOpenKeyset, adLockReadOnly

With rst_order_list

para = "Dear " + .Fields(1) + ":" + Chr(10)

para = para + Space(3) + "Your Company " + .Fields(0) + " has Order those Good:" + Chr(10)

For j = 1 To .RecordCount

para = para + Space(3) + "Good Name :" + .Fields(2) + " Order Date :" + CStr(.Fields(3)) + " Price:" + CStr(.Fields(4)) + Chr(10)

Next

End With

rst_order_list.Close

para = para + Space(30) + "Yours Loadhigh" 'para為信件內(nèi)容

Set newmail = olkapp.CreateItem(olMailItem)

With newmail

.To = rst_cusid.Fields(2) '接收郵件的信箱

.Subject = rst_cusid.Fields(1) + " Order List" '信件標(biāo)題

.Body = para

.Send '發(fā)送

End With

rst_cusid.MoveNext

para = ""

Next

rst_cusid.Close

Set rst_cusid = Nothing

Set rst_order_list = Nothing

cnn.Close

Set cnn = Nothing

End Sub

***********************************************************

Function test1()

Dim objMail As MailItem

Dim objAttachments As Attachment

Dim App As New Outlook.Application

Set objMail = App.CreateItem(olMailItem)

objMail.Save

Set objAttachments = objMail.Attachments.Add("c:\temp\a.xls", olByValue, 1, "a.xls")

With objMail

.To = "chenge@shtip.com.cn" '接收郵件的信箱

.Subject = "test" '信件標(biāo)題

.Body = "test"

.Send '發(fā)送

End With

'objMail.Display

End Function

*********************************************************

VBScript code

Set Msg =

CreateObject("CDO.Message")

With Msg

.To = "someone@microsoft.com"

.From = "userX@microsoft.com"

.Subject = "Lunch meeting"

.TextBody = "I have attached the suggested menu."

.AddAttachment ""

.Send

End With

另，若因發(fā)垃圾郵件被163.com封賬號(hào)，可以聯(lián)系客服解釋是電腦中了病毒。

如何用VB.Net收發(fā)郵件

在Identity2.0里面封裝了IIdentityMessageService接口，可以用來(lái)發(fā)送接收郵件。

看看

Imports System.Threading.Tasks

Imports System.Security.Claims

Imports Microsoft.AspNet.Identity

Imports Microsoft.AspNet.Identity.EntityFramework

Imports Microsoft.AspNet.Identity.Owin

Imports Microsoft.Owin

Imports Microsoft.Owin.Security

public function SendAsync(message as IdentityMessage) as task

dim credentialUserName = "郵箱登錄名"

dim sentFrom = "你的郵箱地址"

dim pwd= "郵箱登錄密碼";

dim client as new System.Net.Mail.SmtpClient("smtp服務(wù)器地址")

client.Port = 25'mtp郵件服務(wù)器端口

client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network

client.UseDefaultCredentials = false

dim credentials as new System.Net.NetworkCredential(credentialUserName, pwd)

client.EnableSsl = true

client.Credentials = credentials

dim mail as new System.Net.Mail.MailMessage(sentFrom, message.Destination)

mail.Subject = message.Subject

mail.Body = message.Body

return client.SendMailAsync(mail)

end function

分享題目：vb.net如何收郵件 vbs發(fā)送郵件帶附件
文章地址：http://jinyejixie.com/article30/docpopo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供標(biāo)簽優(yōu)化、網(wǎng)站導(dǎo)航、定制開(kāi)發(fā)、電子商務(wù)、用戶體驗(yàn)、微信小程序

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)