在Identity2.0里面封裝了IIdentityMessageService接口，可以用來發(fā)送接收郵件。
我們一直強(qiáng)調(diào)成都網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站對(duì)于企業(yè)的重要性,如果您也覺得重要,那么就需要我們慎重對(duì)待,選擇一個(gè)安全靠譜的網(wǎng)站建設(shè)公司,企業(yè)網(wǎng)站我們建議是要么不做，要么就做好,讓網(wǎng)站能真正成為企業(yè)發(fā)展過程中的有力推手。專業(yè)網(wǎng)站制作公司不一定是大公司,創(chuàng)新互聯(lián)作為專業(yè)的網(wǎng)絡(luò)公司選擇我們就是放心。
看看
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
這段代碼我執(zhí)行無誤，不太清楚題主是如何異步發(fā)送的，題主也沒給出錯(cuò)誤究竟是什么，所以無從判斷。
只能說需要手動(dòng)釋放，或者用?message?=?Nothing?也可以釋放。
【針對(duì)問題補(bǔ)充的回答】
注釋行已去掉，仍能正常運(yùn)行，可能跟網(wǎng)絡(luò)環(huán)境有關(guān)。
另外不知題主 AddHandler client.SendCompleted, AddressOf SendCompletedCallback 這行中的回調(diào)函數(shù) SendCompletedCallback 是怎么寫的，我寫的是：
Private?Function?SendCompletedCallback(ByVal?sender?As?Object,?ByVal?e?As?System.ComponentModel.AsyncCompletedEventArgs)
If?e.Cancelled?Then
REM?郵件發(fā)送被取消
ElseIf?e.Error.ToString??""?Then
REM?郵件發(fā)送失敗
Else
REM?發(fā)送成功
End?If?
End?Function
另外建議用 Try-Ctach-End Try 結(jié)構(gòu)，并在釋放前設(shè)置延時(shí)函數(shù)。
用listview 吧，那個(gè)item 是有backcolor 和 forecolor 屬性的
用listbox 自己搞，估計(jì)的吐血
上來是其中一個(gè)貼子,其他的內(nèi)容在參考資料的網(wǎng)址里
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時(shí)被缺省安裝的選項(xiàng)。如果SMTP服務(wù)器已安裝，在System32目錄下會(huì)存在一個(gè)名為cdonts.dll的文件。
2. 最簡單的郵件發(fā)送程序
以下是一個(gè)最簡單的郵件發(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
你一定見到過許多使用超文本格式的E-mail，其中不但可以有圖片、聲音，甚至還可以嵌入動(dòng)畫。如果給你的朋友也發(fā)送一封這樣的郵件，一定會(huì)帶給他（她）意外的驚喜，因?yàn)檫@用一般的郵件發(fā)送程序是無能為力的。以下使用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ī)制所決定的，但有人可能別有用心地用它來假扮別人發(fā)送郵件！本文強(qiáng)烈建議各位切勿輕易試用，一旦讓ISP知道你的行徑，你的帳號(hào)極可能會(huì)被立即刪除。
重慶分公司
重慶分公司
