要一段VB.NET發郵件的代碼

'創建發件連接,根據你的發送郵箱的SMTP設置填充

成都創新互聯公司是一家集網站建設,徽縣企業網站建設,徽縣品牌網站建設,網站定制,徽縣網站建設報價,網絡營銷,網絡優化,徽縣網站推廣為一體的創新建站企業，幫助傳統企業提升企業形象加強企業競爭力。可充分滿足這一群體相比中小企業更為豐富、高端、多元的互聯網需求。同時我們時刻保持專業、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們為更多的企業打造出實用型網站。

Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com", 25)

'發件郵箱身份驗證,參數分別為 發件郵箱登錄名和密碼

smtp.Credentials = New System.Net.NetworkCredential("用戶名", "密碼")

'創建郵件

Dim mail As New System.Net.Mail.MailMessage()

'郵件主題

mail.Subject = "郵件主題"

'主題編碼

mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")

'郵件正文件編碼

mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")

'發件人郵箱

mail.From = New System.Net.Mail.MailAddress("example@163.com")

'郵件優先級

mail.Priority = System.Net.Mail.MailPriority.Normal

'HTML格式的郵件,為false則發送純文本郵箱

mail.IsBodyHtml = True

'郵件內容

mail.Body = "郵件正文內容"

'添加收件人,如果有多個,可以多次添加

mail.To.Add("收件人地址")

'定義附件,參數為附件文件名,包含路徑,推薦使用絕對路徑

'如果不需要附件,下面三行可以不要

Dim a As New System.Net.Mail.Attachment("附件文件")

'附件文件名,用于收件人收到附件時顯示的名稱

a.Name = "附件文件名"

'加入附件,可以多次添加

mail.Attachments.Add(a)

'發送郵件

Try

smtp.Send(mail)

MessageBox.Show("發送成功")

Catch

MessageBox.Show("發送失敗")

Finally

mail.Dispose()

End Try

用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.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.net中編寫發送郵件?

知道了 是你是用自己的郵箱做發信人的吧一定是你的郵箱沒有開smtp服務權限，你到你的郵箱的設置里把“容許通過smtp發送郵件”選上就行了

本文題目：vb.net寫郵件程序 vba發送郵件
文章源于：http://vcdvsql.cn/article40/doiejho.html

成都網站建設公司_創新互聯，為您提供網頁設計公司、App開發、域名注冊、網站內鏈、關鍵詞優化、網站改版

廣告

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