VB 求發(fā)送郵件的代碼。

我從網(wǎng)上給你找來的，不保證肯定能正常用，畢竟郵件這個太依賴ISP了，你要是自建，不外發(fā)，那就能保證都成功。

創(chuàng)新互聯(lián)服務(wù)項目包括伊犁網(wǎng)站建設(shè)、伊犁網(wǎng)站制作、伊犁網(wǎng)頁制作以及伊犁網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，伊犁網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到伊犁省份的部分城市，未來相信會繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

免費(fèi)的webmail也提供VB的調(diào)用方法，很簡單。

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時被缺省安裝的選項。如果SMTP服務(wù)器已安裝，在System32目錄下會存在一個名為cdonts.dll的文件。

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

以下是一個最簡單的郵件發(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

請教vb.net高手一個關(guān)于發(fā)送郵件的問題

將Catch這一段改寫成

Catch

MessageBox.Show("郵件發(fā)送失?。? + Exception.Message)

檢查一下出錯的原因。

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

在Identity2.0里面封裝了IIdentityMessageService接口，可以用來發(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

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

貼上來是其中一個貼子,其他的內(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時被缺省安裝的選項。如果SMTP服務(wù)器已安裝，在System32目錄下會存在一個名為cdonts.dll的文件。

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

以下是一個最簡單的郵件發(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組件的版本號

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

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

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

To ：郵件接受者的地址

Subject：標(biāo)題

Body：內(nèi)容

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

方法：

AttachFile：附加一個文件

AttachURL：附加一個地址

Send：發(fā)送郵件

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

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

VB編寫一個郵件發(fā)送

--------

1. 最簡單的郵件發(fā)送程序

以下是一個最簡單的郵件發(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

------

更詳細(xì)可見這里:

當(dāng)前名稱：vb.net發(fā)送郵件源碼 vbs發(fā)送郵件
標(biāo)題鏈接：http://chinadenli.net/article40/doddieo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)建站、網(wǎng)站設(shè)計公司、企業(yè)網(wǎng)站制作、面包屑導(dǎo)航、品牌網(wǎng)站制作、定制網(wǎng)站

廣告

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