vb.NET中如何實(shí)現(xiàn)網(wǎng)址超級(jí)連接和郵箱連接

告訴你原理吧，要實(shí)現(xiàn)郵箱激活其實(shí)就是解決服務(wù)器上發(fā)郵件的問(wèn)題，用戶注冊(cè)后，把用戶狀態(tài)默認(rèn)成未激活，然后生成一個(gè)鏈接到一個(gè)頁(yè)面，在那個(gè)頁(yè)面加載時(shí)運(yùn)行一個(gè)SQl語(yǔ)句把用戶狀態(tài)改成激活，然后再跳轉(zhuǎn)到什么成功激活的頁(yè)面就可以了，當(dāng)然要傳遞一些有效的參數(shù)了；郵件激活的話就給注冊(cè)時(shí)用戶填寫(xiě)的郵箱發(fā)信就可以了，內(nèi)容里面寫(xiě)上那個(gè)自動(dòng)生成鏈接，怎么發(fā)郵件呢，建議你使用第三方控件Jmail不錯(cuò)，當(dāng)然還有別的，如果用Smtp協(xié)議發(fā)的話20封左右就掛掉了···

成都創(chuàng)新互聯(lián)公司總部坐落于成都市區(qū)，致力網(wǎng)站建設(shè)服務(wù)有成都網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站、網(wǎng)絡(luò)營(yíng)銷策劃、網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站維護(hù)、公眾號(hào)搭建、微信小程序定制開(kāi)發(fā)、軟件開(kāi)發(fā)等為企業(yè)提供一整套的信息化建設(shè)解決方案。創(chuàng)造真正意義上的網(wǎng)站建設(shè)，為互聯(lián)網(wǎng)品牌在互動(dòng)行銷領(lǐng)域創(chuàng)造價(jià)值而不懈努力！

找回密碼一樣，用戶回答對(duì)密保問(wèn)題的話就把密碼給他發(fā)到郵箱就是了，歸根結(jié)底還是發(fā)郵件···

補(bǔ)一句：源碼的沒(méi)有····

如何用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

在visual studio中用VB如何編寫(xiě)收發(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 如何用 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如何接收郵件

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

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

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

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

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

以下是一個(gè)最簡(jiǎn)單的郵件發(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組件的版本號(hào)

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

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

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

To ：郵件接受者的地址

Subject：標(biāo)題

Body：內(nèi)容

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

方法：

AttachFile：附加一個(gè)文件

AttachURL：附加一個(gè)地址

Send：發(fā)送郵件

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

你一定見(jiàn)到過(guò)許多使用超文本格式的E-mail，其中不但可以有圖片、聲音，甚至還可以嵌入動(dòng)畫(huà)。如果給你的朋友也發(fā)送一封這樣的郵件，一定會(huì)帶給他（她）意外的驚喜，因?yàn)檫@用一般的郵件發(fā)送程序是無(wú)能為力的。以下使用CDONTS組件發(fā)送一個(gè)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郵件處理的一個(gè)缺陷了。SMTP服務(wù)器接收你的輸出消息，但并不做發(fā)送者名字和地址的驗(yàn)證，這本是由SMTP的異步發(fā)送機(jī)制所決定的，但有人可能別有用心地用它來(lái)假扮別人發(fā)送郵件！本文強(qiáng)烈建議各位切勿輕易試用，一旦讓ISP知道你的行徑，你的帳號(hào)極可能會(huì)被立即刪除。

我用vb.net 弄了個(gè)jmail接收郵件，但是運(yùn)行報(bào)錯(cuò)，請(qǐng)各位幫忙看下到底是什么問(wèn)題，非常感謝！

JMAIL組件沒(méi)有安裝。或注冊(cè)。。

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

或者regsvr32 注冊(cè)下 dll文件

本文標(biāo)題：vb.net收取郵件 vbs發(fā)送郵件
文章轉(zhuǎn)載：http://vcdvsql.cn/article46/hhpghg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供全網(wǎng)營(yíng)銷推廣、外貿(mào)網(wǎng)站建設(shè)、域名注冊(cè)、網(wǎng)站建設(shè)、企業(yè)建站、網(wǎng)站營(yíng)銷

廣告

聲明：本網(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)