需要引用 SmtpClient 和 MailMessage類生成郵件,然后發(fā)送即可。
成都創(chuàng)新互聯(lián)主營(yíng)湖口網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營(yíng)網(wǎng)站建設(shè)方案,成都App定制開(kāi)發(fā),湖口h5微信小程序開(kāi)發(fā)搭建,湖口網(wǎng)站營(yíng)銷推廣歡迎湖口等地區(qū)企業(yè)咨詢
如果非要通過(guò)exchange server,可以用微軟提供的sdk寫入vb.net的代碼中。
將Catch這一段改寫成
Catch
MessageBox.Show("郵件發(fā)送失?。? + Exception.Message)
檢查一下出錯(cuò)的原因。
知道了 是你是用自己的郵箱做發(fā)信人的吧一定是你的郵箱沒(méi)有開(kāi)smtp服務(wù)權(quán)限,你到你的郵箱的設(shè)置里把“容許通過(guò)smtp發(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
本文標(biāo)題:vb.net發(fā)郵件 vb自動(dòng)發(fā)郵件
文章URL:http://www.muchs.cn/article24/hhehje.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供微信公眾號(hào)、靜態(tài)網(wǎng)站、網(wǎng)站建設(shè)、關(guān)鍵詞優(yōu)化、虛擬主機(jī)、域名注冊(cè)
聲明:本網(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)