VB 求發送郵件的代碼。

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

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

免費的webmail也提供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

請教vb.net高手一個關于發送郵件的問題

將Catch這一段改寫成

Catch

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

檢查一下出錯的原因。

如何用VB.Net收發郵件

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

看看

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編寫一個郵件發送

--------

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

以下是一個最簡單的郵件發送程序，它由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

------

更詳細可見這里:

當前名稱：vb.net發送郵件源碼 vbs發送郵件
標題鏈接：http://www.yijiale78.com/article40/doddieo.html

成都網站建設公司_創新互聯，為您提供外貿建站、網站設計公司、企業網站制作、面包屑導航、品牌網站制作、定制網站

廣告

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