如何用VB.Net收發郵件

在Identity2.0里面封裝了IIdentityMessageService接口，可以用來發送接收郵件。

創新互聯憑借專業的設計團隊扎實的技術支持、優質高效的服務意識和豐厚的資源優勢，提供專業的網站策劃、網站設計制作、網站設計、網站優化、軟件開發、網站改版等服務，在成都十余年的網站建設設計經驗，為成都上1000家中小型企業策劃設計了網站。

看看

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服務器地址")

client.Port = 25'mtp郵件服務器端口

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怎么發送郵件？代碼？

貼上來是其中一個貼子,其他的內容在參考資料的網址里

Visual Basic 6中發送郵件的新方法

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

1. 確認已安裝SMTP服務器

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

2. 最簡單的郵件發送程序

以下是一個最簡單的郵件發送程序，它由me@hotmail.net向abc@263.net發出一封標題為“Title”、內容為“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. 發送郵件附件

如果有附加的文件需要隨同郵件傳送，可以使用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：設置一個或多個參閱的郵件地址

From：郵件發送者的地址

To ：郵件接受者的地址

Subject：標題

Body：內容

BodyFormat：內容格式，1-普通文本；0-超文本

方法：

AttachFile：附加一個文件

AttachURL：附加一個地址

Send：發送郵件

5. 發送超文本格式的E-mail

你一定見到過許多使用超文本格式的E-mail，其中不但可以有圖片、聲音，甚至還可以嵌入動畫。如果給你的朋友也發送一封這樣的郵件，一定會帶給他（她）意外的驚喜，因為這用一般的郵件發送程序是無能為力的。以下使用CDONTS組件發送一個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發送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

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

請問VB中怎么寫收發郵件需要什么控件？拜托了各位 謝謝

去下載個jmail組件吧，給你個示例代碼如下： Sub SendMail() Dim jmail As Object Set jmail = CreateObject("JMAIL.Message") ';建立發送郵件的對象 jmail.Silent = True ''一般不用改 jmail.Charset = "gb2312" ''信件的語言編碼 jmail.ContentType = "text/html" ''信件的格式html或純文本 jmail.From = "****@163.com" ''發信人郵箱 jmail.FromName = "****" ''發信人姓名 jmail.Subject = "" ''信件主題 jmail.AddRecipient "****" ''收信人地址 jmail.Body = "" ''信件正文 jmail.MailServerUserName = "****" ''服務器登陸用戶名(您的郵件地址) jmail.MailServerPassWord = "****" ''服務器登陸密碼(您的郵件密碼) jmail.Send ("smtp.163.com") ''服務器地址 jmail.Close Set jmail = Nothing End Sub

采納哦

網站題目：vb.net發郵件的控件,vbs發送郵件
URL地址：http://m.newbst.com/article16/dssiedg.html

成都網站建設公司_創新互聯，為您提供品牌網站制作、網站收錄、云服務器、品牌網站設計、網站導航、服務器托管

廣告

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