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

在Identity2.0里面封裝了IIdentityMessageService接口，可以用來(lái)發(fā)送接收郵件。

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

看看

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

▇▊▋誰(shuí)給我提供一個(gè)可用的發(fā)送電子郵件的VB源碼啊

有兩種發(fā)法哦,代碼如下,有點(diǎn)亂,如果需要打包范例文件我發(fā)給你?

Dim?fpath?As?String

'Dim?xlApp?As?Excel.Application?'定義EXCEL類(lèi)

'Dim?xlBook?As?Excel.Workbook?'定義工件簿類(lèi)

'Dim?xlsheet?As?Excel.Worksheet?'定義工作表類(lèi)

Dim?bh?As?String

Dim?sbh?As?String

Dim?strMailAdd?As?String?'收信人地址?如：yin07@21cn.com

Dim?strAddName?As?String?'收信人姓名?如：影是

Dim?strSubject?As?String?'發(fā)信的主題

Dim?strNoteText?As?String?'發(fā)信的內(nèi)容

Dim?strMailToo?As?String?'發(fā)信人地址

Dim?strTooName?As?String?'發(fā)信人姓名

Option?Explicit

Option?Compare?Text

Private?WithEvents?poSendMail?As?vbSendMail.clsSendMail

Private?bSendFailed?????As?Boolean

Private?Sub?Command1_Click()

On?Error?Resume?Next

sbh?=?Trim(OLE1.object.Worksheets("sheet1").Cells(5,?3).Value)

If?sbh?=?""?Then

MsgBox?"請(qǐng)?zhí)顚?xiě)小樣編號(hào)！",?vbOKOnly,?"警告"

Else

'strMailAdd?=?"xxx@mizuda.net"?'收信人地址,

'strAddName?=?"sdf"?'收信人姓名sdf

'strNoteText?=?"請(qǐng)查收計(jì)劃單"?+?sbh?+?"技術(shù)評(píng)審結(jié)果"?'發(fā)信的內(nèi)容

'strSubject?=?sbh?+?"合約技術(shù)評(píng)審結(jié)果"?'發(fā)信的主題

'MAPISession1.DownLoadMail?=?False?'不立即進(jìn)入用戶(hù)的收信箱(非常有用的，不信你設(shè)為?True試一下)

'MAPISession1.LogonUI?=?True?'顯示一個(gè)啟動(dòng)動(dòng)話(huà)框

'MAPISession1.UserName?=?"lqgdf"

'MAPISession1.Password?=?"2fd@mizuda"

'MAPISession1.SignOn?'這因該算激活吧，注意：不要把FoxMail在IE中設(shè)置為默認(rèn)電子郵件，否則會(huì)出現(xiàn)錯(cuò)誤

'MAPIMessages1.SessionID?=?MAPISession1.SessionID

'MAPIMessages1.Compose?'構(gòu)成一條消息

'MAPIMessages1.RecipAddress?=?strMailAdd?'收信人地址

'MAPIMessages1.ResolveName

'MAPIMessages1.RecipDisplayName?=?strAddName?'收信人姓名

'MAPIMessages1.MsgSubject?=?strSubject?'發(fā)信的主題

'MAPIMessages1.MsgNoteText?=?strNoteText?'發(fā)信的內(nèi)容

'MAPIMessages1.AttachmentIndex?=?0?'當(dāng)前附件的索引位置

'MAPIMessages1.AttachmentPathName?=?fpath?+?"已評(píng)審"?+?"\"?+?sbh?+?".xls"?'附件的路徑

'MAPIMessages1.Send?'開(kāi)始發(fā)送

'MAPISession1.SignOff?'可以算成關(guān)閉吧

Call?send_Click

End?If

End?Sub

Private?Sub?send_Click()

Dim?lCount??????As?Long

Dim?lCtr????????As?Long

Dim?t!

Set?poSendMail?=?New?clsSendMail

With?poSendMail

.SMTPHostValidation?=?VALIDATE_HOST_DNS

.EmailAddressValidation?=?VALIDATE_SYNTAX

.Delimiter?=?";"

End?With

Screen.MousePointer?=?vbHourglass

'======================================================

'GetPrivateProfileInt?"郵件清單",?"attachment",?txtAttach.Text,?_

App.Path?+?"\config.ini"

'======================================================

With?poSendMail

'?**************************************************************************

'?Set?the?basic?properties?common?to?all?messages?to?be?sent

'?**************************************************************************

.SMTPHost?=?GetPrivateStringValue("郵件清單",?"SMTPHost",?_

App.Path?+?"\config.ini")????????????????'?Required?the?fist?time,?optional?thereafter

.From?=?GetPrivateStringValue("郵件清單",?"senderemail",?_

App.Path?+?"\config.ini")????????????????????????'?Required?the?fist?time,?optional?thereafter

.FromDisplayName?=?GetPrivateStringValue("郵件清單",?"sendername",?_

App.Path?+?"\config.ini")????????'?Optional,?saved?after?first?use

.Message?=?GetPrivateStringValue("郵件清單",?"message",?_

App.Path?+?"\config.ini")???????????????????'?Optional

.Attachment?=?fpath?+?"已評(píng)審"?+?"\"?+?sbh?+?".xls"?'附件的路徑???????'?Optional,?separate?multiple?entries?with?delimiter?character

'?get?the?message?count?and?set?the?timer

lCount?=?1

If?lCount?=?0?Then?Exit?Sub

t!?=?Timer

'?**************************************************************************

'?Send?the?mail?in?a?loop.?In?a?real?app?you?would?need?to?load?a?new

'?recipient?from?a?file?or?database?each?pass?through?the?loop.

'?**************************************************************************

'?send?method?only?(normal?button)

'?**************************************************************************

'??For?lCtr?=?1?To?lCount

'?.Recipient?=?"lqg_k@163.com"

'?.RecipientDisplayName?=?"lqg_k"

'?.Subject?=?"zhuti"

'????.Send

'??Next

'?.Disconnect

'***********************************************************

'?connect,?send,??disconnect?methods?(bulk?send?button)

'***********************************************************

If?.Connect?Then

For?lCtr?=?1?To?lCount

.Recipient?=?GetPrivateStringValue("郵件清單",?"recipientemail",?_

App.Path?+?"\config.ini")

.RecipientDisplayName?=?GetPrivateStringValue("郵件清單",?"recipientname",?_

App.Path?+?"\config.ini")

.Subject?=?sbh?+?GetPrivateStringValue("郵件清單",?"subject",?_

App.Path?+?"\config.ini")???'發(fā)信的主題

.Send

Next

.Disconnect

End?If

End?With

Set?poSendMail?=?Nothing

Screen.MousePointer?=?vbDefault

MsgBox?"發(fā)送成功！",?vbInformation,?"提示"

End?Sub

范例界面如下:

vb.net怎么通過(guò)exchange server發(fā)送郵件

需要引用 SmtpClient 和 MailMessage類(lèi)生成郵件，然后發(fā)送即可。

如果非要通過(guò)exchange server，可以用微軟提供的sdk寫(xiě)入vb.net的代碼中。

怎么將VB源代碼發(fā)給別人

你好,這個(gè)容易,你只需要把你的那個(gè)程序打包(或者叫壓宿打包)以附件的形式通過(guò)QQ或者其他電子郵件發(fā)送給你的朋友即可。等他調(diào)試完了后也會(huì)以同樣方式發(fā)給你，你收到后只需要解壓就可以了。如果你不知道如何壓宿和解壓的話(huà)，請(qǐng)給我發(fā)郵件，我給你傳如何操作的視頻（我自己錄制）。

用VB怎么發(fā)送郵件？代碼？

貼上來(lái)是其中一個(gè)貼子,其他的內(nèi)容在參考資料的網(wǎng)址里

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-普通文本類(lèi)型；0-MIME類(lèi)型

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發(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("用戶(hù)名", "密碼")

'創(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í)顯示的名稱(chēng)

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)站名稱(chēng)：vb.net郵箱發(fā)送源碼,vb發(fā)郵件
文章位置：http://chinadenli.net/article39/dseihsh.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供做網(wǎng)站、手機(jī)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)公司、網(wǎng)站營(yíng)銷(xiāo)、面包屑導(dǎo)航、移動(dòng)網(wǎng)站建設(shè)

廣告

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