VB 如何用 jmail 接收郵件

抄個自己的回答：

成都創(chuàng)新互聯(lián)公司是專業(yè)的金牛網(wǎng)站建設(shè)公司，金牛接單;提供成都做網(wǎng)站、成都網(wǎng)站制作,網(wǎng)頁設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行金牛網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!

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

把這幾個對象看一下：

POP3。MESSAGES，MESSAGE，ATTS，ATT

過程：

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

2。取到MESSAGES后，輪循到MESSAGE對象后。

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

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

MESSAGES是信件集

MESSAGE是單封信件

ATTS是附件集

ATT是單個附件

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

發(fā)信分割線

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

拿個別人的回答改了一下，俺VB幾乎沒用過，只會VB。NET

先注冊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帳號

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 弄了個jmail接收郵件，但是運(yùn)行報(bào)錯，請各位幫忙看下到底是什么問題，非常感謝！

JMAIL組件沒有安裝。或注冊。。

最好下載4.4pro破解版安裝。

或者regsvr32 注冊下 dll文件

VB如何接收郵件

Visual Basic 6中發(fā)送郵件的新方法

用VB6編寫發(fā)送郵件的程序，有多種E-mail組件可供選擇，如MAPIMessages、IIS4.0附帶的CDONTS（NTS Collaboration Data Objects）以及許多第三方廠商開發(fā)的Email軟件等。本文介紹用CDONTS開發(fā)VB下的郵件程序方法。

1. 確認(rèn)已安裝SMTP服務(wù)器

首先，必須確認(rèn)在IIS服務(wù)器上已安裝SMTP服務(wù)器，這是安裝Option Pack時被缺省安裝的選項(xiàng)。如果SMTP服務(wù)器已安裝，在System32目錄下會存在一個名為cdonts.dll的文件。

2. 最簡單的郵件發(fā)送程序

以下是一個最簡單的郵件發(fā)送程序，它由me@hotmail.net向abc@263.net發(fā)出一封標(biāo)題為“Title”、內(nèi)容為“Hello”的E-mail：

Private Sub cmdSendMail_Click()

Dim objMail as Object

Set objMail=CreateObject("CDFONTS.DLL")

ObjMail.Send "me@hotmail.net ", "abc@263.net","Title","Hello"

Set objMail=nothing

End Sub

3. 發(fā)送郵件附件

如果有附加的文件需要隨同郵件傳送，可以使用CDONTS的AttachFile方法：

Private Sub cmdSendMail_Click()

Dim objMail as Object

Set objMail=CreateObject("CDFONTS.DLL")

With ObjMail

.From= "me@hotmail.net "

.To= "abc@263.net"

.Subject="Title"

.Body="Hello"

.AttachFile "c:\document\ sample.doc","sample.doc"

.Send

End With

Set objMail=nothing

End Sub

4. CDONTS組件常用屬性和方法

CDONTS組件常用的屬性和方法列舉如下：

屬性：

Version：返回CDONTS組件的版本號

MailFormat：郵件格式，1-普通文本類型；0-MIME類型

Cc：設(shè)置一個或多個參閱的郵件地址

From：郵件發(fā)送者的地址

To ：郵件接受者的地址

Subject：標(biāo)題

Body：內(nèi)容

BodyFormat：內(nèi)容格式，1-普通文本；0-超文本

方法：

AttachFile：附加一個文件

AttachURL：附加一個地址

Send：發(fā)送郵件

5. 發(fā)送超文本格式的E-mail

你一定見到過許多使用超文本格式的E-mail，其中不但可以有圖片、聲音，甚至還可以嵌入動畫。如果給你的朋友也發(fā)送一封這樣的郵件，一定會帶給他（她）意外的驚喜，因?yàn)檫@用一般的郵件發(fā)送程序是無能為力的。以下使用CDONTS組件發(fā)送一個HTML格式的郵件，其中包含有一幅名為sample.gif的圖片，程序如下：

Private Sub cmdSendMail_Click()

Dim objMail as Object

Set objMail=CreateObject("CDFONTS.DLL")

Dim strHTML as String

StrHTML=""

StrHTML= StrHTML+""

StrHTML = StrHTML +"

用CDONTS發(fā)送Email的例子"

StrHTML= StrHTML+"

"

StrHTML= StrHTML+"

以上例子嵌入了圖片sample.gif

"

StrHTML= StrHTML+""

With ObjMail

.From= "me@hotmail.net "

.To= "abc@263.net"

.Subject="Title"

.Body=strHTML

.AttachURL "c:\mydata\sample.gif","sample.gif"

.BodyFormat=0

.EmailFormat=0

.Send

End With

Set objMail=nothing

End Sub

到這里，相信大家一定發(fā)現(xiàn)SMTP郵件處理的一個缺陷了。SMTP服務(wù)器接收你的輸出消息，但并不做發(fā)送者名字和地址的驗(yàn)證，這本是由SMTP的異步發(fā)送機(jī)制所決定的，但有人可能別有用心地用它來假扮別人發(fā)送郵件！本文強(qiáng)烈建議各位切勿輕易試用，一旦讓ISP知道你的行徑，你的帳號極可能會被立即刪除。

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

在Identity2.0里面封裝了IIdentityMessageService接口，可以用來發(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 如何編輯指定電子郵箱的草稿內(nèi)容和讀取草稿內(nèi)容？

一、帳戶設(shè)置

第一次運(yùn)行FoxMail時，系統(tǒng)會自動啟動向?qū)С绦颍龑?dǎo)用戶添加第一個郵件賬戶。步驟如下：

1、彈出的第一個窗口顯示提示信息，單擊[下一步]按鈕。

2、進(jìn)入[建立新的用戶帳戶]窗口 ，在[用戶名]框中輸人用戶姓名或代號等信息，此名稱用于區(qū)分同一臺機(jī)器上FoxMail的各個用戶。窗口中的郵箱路徑框用于設(shè)置FoxMail收到郵件后在硬盤上的儲存路徑。可以選擇默認(rèn)路徑，即FoxMail程序的所在路徑;也可以單擊[選擇]按鈕指定其他位置。完成后單擊[下一步]按鈕。

3、進(jìn)人[郵件身份標(biāo)識]窗口。在[發(fā)送者姓名]框中輸入郵件中用于落款的稱謂。在[郵件地址]框中輸入自己已有的郵箱地址 。完成后單擊[下一步]按鈕。

4、進(jìn)人[指定郵件服務(wù)器]窗口 。確認(rèn)POP3和SMTP服務(wù)器名、賬戶名、密碼

單擊[下一步]按鈕。POP3服務(wù)器和SMTP服務(wù)器地址需根據(jù)個人電子信箱的情況，查看電子信箱服務(wù)說明。對于263電子信箱，POP3服務(wù)器為263.net,SMTP服務(wù)器為smtp.263.net。

5、向?qū)э@示賬戶建立完成，單擊[完成]按鈕結(jié)束。

在以后使用FoxMail時，可以從菜單選擇[賬戶]-[新建]命令打開此向?qū)Ы⑿掠脩簟?/p>

在Foxmail中可以查看用戶帳戶。單擊菜單項(xiàng)“帳戶”，在彈出的帳戶菜單中選擇最下面的“屬性”頊，彈出的帳戶屬性設(shè)置窗口，選擇窗口中的“郵件服務(wù)器”標(biāo)簽選項(xiàng)，可以檢查和修改剛才設(shè)置的郵件服務(wù)器的地址，最后填入訪問信箱的口令（也可以在連接收信的時候輸入口令），郵件服務(wù)器就基本設(shè)置好了。

二、撰寫、發(fā)送郵件

FoxMail為用戶提供了便于撰寫和發(fā)送郵件的郵件編輯器, 撰寫新郵件的步驟如下：

1、單擊工具欄上的[撰寫]按鈕，或者從菜單欄選擇[郵件]-[寫新郵件]命令，打開郵件編輯器。

2、在[收件人]一欄中填寫收信人的郵件地址，在[主題]欄中填寫郵件的主題。在[抄送]欄中用逗號分隔依次填入幾個郵件地址可將郵件同時發(fā)給其他人 。

3、FoxMail自動生成了開頭與落款字樣，用戶可直接在正文框中書寫郵件正文。撰寫模板和信箋的字體及背景顏色可以選擇菜單的“選項(xiàng)/編輯器屬性”設(shè)置。

4、電子郵件可以在發(fā)送時攜帶文本文件、圖像文件和程序等獨(dú)立文件，稱為附件。如果需要隨郵件發(fā)送附件，單擊窗口工具欄上的[附件]按鈕 ，在出現(xiàn)的[打開]對話框中選擇文件并單擊[打開]按鈕。這時，在正文框的底端將出現(xiàn)附件文件的圖標(biāo)。如果附件文件有多個，依次執(zhí)行此步驟增加。

5、郵件寫好后，單擊工具欄上的[發(fā)送]按鈕 。如果與Internet的連接已經(jīng)建立，則郵件立刻被發(fā)送出去。

可以單擊工具欄上的[保存] 按鈕 ，將郵件保存在發(fā)送隊(duì)列中，等以后單擊主界面工具欄上的[發(fā)送]按鈕一起發(fā)送。

也可以單擊[草稿]按鈕 將郵件作為草稿保存，供下次編輯。 對大多數(shù)撥號上網(wǎng)的用戶，一般離線編輯郵件，保存到發(fā)件箱中，等上網(wǎng)時一起發(fā)送。

三、收取、閱讀郵件

收取、閱讀郵件的步驟如下：

1、雙擊IE快捷圖標(biāo)，連接Internet。

2、雙擊FoxMail快捷圖標(biāo)，啟動FoxMail。

3、單擊FoxMail工具欄上的[收取]按鈕 ，激活一個收取郵件對話框．收取當(dāng)前帳戶所包含郵箱的郵件 。該操作也可以通過從菜單欄選擇[文件]-[收取郵件]命令執(zhí)行。收取完畢后，將出現(xiàn)一個對話框，告訴用戶共收到多少封郵件。默認(rèn)情況下，收到的郵件將放在[收件箱]中。

選擇[文件]-[收取所有帳戶郵件]命令或者按F4鍵可以收到FoxMail中所有賬戶的郵件。

4、單擊賬戶下的[收件箱]將會在郵件列表框中顯示收到的所有郵件。還未閱讀的郵件前有一個未拆開的信封標(biāo)識（圖3.39）。單擊任何一個郵件，其內(nèi)容即顯示在郵件閱讀框中。雙擊郵件，將打開單獨(dú)的郵件閱讀窗口，便于閱讀內(nèi)容較多的郵件。

如果郵件包含了附件，主窗口上將會自動增加一個附件框，顯示附件的文件圖標(biāo)和名稱。雙擊附件的圖標(biāo)，將彈出一個對話框顯示文件類型、大小等有關(guān)信息，并包含[打開]、[保存]和[取消]三個按鈕。單擊[打開]按鈕，則打開附件文件；單擊[保存]按鈕，則把附件保存到指定位置。

5、若需要對郵件進(jìn)行回復(fù)、轉(zhuǎn)發(fā)以及再次發(fā)送等操作。這時，在選中待操作的郵件后，可以直接從[郵件]菜單或工具欄按鈕上選擇這些操作，也可以用鼠標(biāo)在郵件列表中右擊郵件，從彈出菜單中選擇相應(yīng)的操作選項(xiàng)。

四、相關(guān)技巧

（一）地址簿的使用

FoxMail提供的地址簿工具，可以使用戶對郵件地址和個人信息進(jìn)行管理。FoxMail地址簿以卡片的方式存放用戶信息，一張卡片即對應(yīng)一個用戶，上面包括用戶地址信息、聯(lián)系信息以及其他一些相關(guān)信息。

1、新建用戶卡片

步驟如下：

（1）在[地址簿]窗口中，單擊[文件]菜單的[新卡片]命令或直接單擊工具欄上的[新建卡片]按鈕，將彈出一個對話框。這個對話框有5個選項(xiàng)卡：[普通]、[個人]、[家庭]、 [單位]和[其他]。

（2）在[普通]選項(xiàng)卡中的[姓名]欄中輸入姓名，接著在[E-Mail]欄中輸入聯(lián)系人的郵件地址。 如果要輸入其他相關(guān)信息，單擊選項(xiàng)卡并輸人相應(yīng)信息。

（3）單擊[確定]按鈕，完成一張卡片的創(chuàng)建。

2、修改用戶信息

修改用戶信息的步驟如下：

（1）在地址簿中單擊欲修改用戶的信息條

（2）單擊工具欄中的[屬性]按鈕打開聯(lián)系人卡片，在要修改的地方進(jìn)行相應(yīng)改動即可。

3、選擇收件人

在地址簿中選中一個或多個卡片和組，然后單擊工具欄上的[寫郵件]按鈕可以撰寫發(fā)給多個用戶的郵件。

（二）、建立新的電子信箱

FoxMai1可以像建立目錄樹一樣建立多級子郵箱，這樣可以分門別類保存來信。如果建立一個根郵箱，選擇帳戶，再選擇菜單“郵箱／建新郵箱”，在程序界面左上的郵箱列表窗口中，就進(jìn)入了寫有“新郵箱1”字樣的郵箱，這時輸入郵箱的名稱，郵箱就建立好了。

（三）、建立多個帳戶

如果一臺電腦中的FoxMail程序有好幾個使用者，或者用戶有幾個電子信箱收發(fā)信件，這時就需要建立多個帳戶。選擇菜單“帳戶／建立”，程序?qū)⒄{(diào)用向?qū)С绦騺韼椭憬⒁粋€新的帳戶。設(shè)置完成后，就可以看到一個新的帳戶，該帳戶同樣包含了各種功能郵箱，可以單獨(dú)地收發(fā)信件。

（四）、遠(yuǎn)程郵箱管理

對于有多個郵箱的用戶來說，遠(yuǎn)程郵箱管理可以使用戶在下載所有郵件之前，預(yù)先了解一下信箱中有什么樣的郵件，并直接對服務(wù)器上的郵件進(jìn)行查看、刪除或收取等操作。步驟如下：

從[工具]菜單中選擇[遠(yuǎn)程郵箱管理]命令打開[遠(yuǎn)程郵箱管理]窗口

單擊[信息]按鈕取得服務(wù)器上郵件頭的信息。選取一個或多個郵件信息，使用鼠標(biāo)右鍵彈出菜單或者[文件]菜單；可以設(shè)定對郵件執(zhí)行收取、不收取、收取并刪除或在服務(wù)器上刪除操作。

設(shè)定完成后，單擊工具欄上的[執(zhí)行]按鈕執(zhí)行。

使用遠(yuǎn)程郵箱管理功能，可以幫助有多個郵箱要管理的用戶減少垃圾郵件騷擾，在服務(wù)器速度比較慢時也可有效管理郵件。

（五）建立多個POP3連接

如果用戶有多個郵箱。在FoxMail中可以通過建立多個POP3連接實(shí)現(xiàn)對多郵箱的管理。

建立多個POP3連接的步驟如下：

1、從菜單欄選擇[賬戶]-[屬性]命令，打開[賬戶屬性]對話框 。

2、在左邊的列表框中選擇[其他POP3]選項(xiàng)，在右邊的窗口中，單擊[新建]按鈕打開[連接]對話框。

3、在[連接]對話框中依次填入顯示名稱、POP3服務(wù)器地址、賬戶名、密碼，然后單擊[確定]按鈕

4、繼續(xù)添加其他POP3連接，然后單擊[確定]按鈕。

在每個新建的POP3連接前有個復(fù)選框，可以選擇是否使用這個POP3連接。FoxMail將收取賬戶下所有選定POP3郵箱中的郵件。

要一段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)先級

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

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

mail.IsBodyHtml = True

'郵件內(nèi)容

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

'添加收件人,如果有多個,可以多次添加

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

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

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

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

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

a.Name = "附件文件名"

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

mail.Attachments.Add(a)

'發(fā)送郵件

Try

smtp.Send(mail)

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

Catch

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

Finally

mail.Dispose()

End Try

網(wǎng)站欄目：vb.net郵件收取,vb接收郵件
URL分享：http://chinadenli.net/article11/dsegddd.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供云服務(wù)器、定制開發(fā)、域名注冊、網(wǎng)站收錄、企業(yè)網(wǎng)站制作、App設(shè)計(jì)

廣告

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