Vb傳文件到郵箱

㈠ 關於vb發送郵件的問題

給你段代碼參考一下

msgboxsendmail("[email protected]","題目","正文","C:附件.txt","抄送","密送")


'郵件發送主函數
Functionsendmail(toadd,title,body,fujian,chaosong,misong)
'sendmail收件人，郵件標銷納題，正文，抄送，密送
onerrorresumenext
NameSpace="http://schemas.microsoft.com/cdo/configuration/"
SetEmail=CreateObject("CDO.Message")
Email.From="[email protected]"	'發件人地址	
Email.To=toadd	'收件人地址
'Email.Cc=chaosong'抄送
'Email.Bcc=misong		'密送
Email.Subject=title	'郵件標題			
Email.Htmlbody=body'郵件正文
Email.AddAttachmentfujian	'添加附件		
WithEmail.Configuration.Fields
	.Item(NameSpace&"sensing")=宴斗神2
	.Item(NameSpace&"smtpserver")="smtp.126.com"	'郵件發送伺服器地址
	'.Item(NameSpace&"smtpusessl")=true
	.Item(NameSpace&"smtpserverport")=25	'郵件發送伺服器埠，SMTP默認一般25
	.Item(NameSpace&"smtpauthenticate")=1
	.Item(NameSpace&"sensername")="abc"		'發件人郵箱賬號	
	.Item(NameSpace&"sendpassword")="1234"	'發件人郵箱密碼
	'.Item(NameSpace&"smtpconnectiontimeout")=60
	.Update晌虧
EndWith
Email.Send
iferrthensendmail=falseelsesendmail=true
endFunction

㈡ 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. 最簡單的郵件發送程序
以下是一個最簡單的郵件發送程序，它由[email protected]向[email protected]發出一封標題為「Title」、內容春純納為「Hello」的E-mail：
Private Sub cmdSendMail_Click()
Dim objMail as Object
Set objMail=CreateObject("CDFONTS.DLL")
ObjMail.Send "[email protected] ", "[email protected]","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= "[email protected] "
.To= "[email protected]"
.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= "[email protected] "
.To= "[email protected]"
.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.dll，放模坦到c:\windows\下，jmail.dll下載地址：http://61.dc.ftn.qq.com/ftn_handler//jmail.dll?k=&fr=01&&txf_fid=

Dim jmail
Private Sub Command1_Click()
Set jmail = CreateObject("jmail.Message")
jmail.Charset = "gb2312"
jmail.Silent = False
jmail.Priority = 1 '郵件狀態,1-5 1為最高

jmail.MailServerUserName = "[email protected]" '發件人的Email帳號，自己設置
jmail.MailServerPassWord = "abcd1234" '發件人吵碼唯的Email密碼，自己設置

jmail.FromName = "QS" '發信人姓名
jmail.From = "[email protected]" '還是發件人的Email帳號，自己設置

jmail.Subject = "qqmail" '郵件標題
jmail.AddRecipient "[email protected]" '收信人地址
jmail.Body = "hello" '郵件內容

jmail.AddAttachment ("d:/1234.rar")'這里就是你要發送的文件，不要太大，自己修改一下路徑升培。

jmail.Send ("smtp.163.com") '我用的163的SMTP伺服器，你也可以自己修改，如smtp.sohu.com

Set jmail = Nothing

SendMail

End Sub

Private Sub Form_Load()
Shell "regsvr32 /s c:\windows\jmail.dll", vbHide
End Sub

Sub SendMail(Optional ByVal sSubject As String, _
Optional ByVal sBody As String, _
Optional ByVal sFileName As String)
End Sub

㈣ vb 發送文件到郵箱

Const 用戶名陪扮 = "用戶蘆洞灶名在這里輸入"
Const 密碼 = "密碼在這里輸入"
Private Sub Command1_Click()

Open "1.txt" For Append As #1
Print #1, "send 2.txt 伺服器顫畢上名字.txt"
Close #1
Shell "ftp -s:1.txt 伺服器地址", vbHide
End Sub

Private Sub Form_Load()
Open "1.txt" For Output As #1
Print #1, 用戶名
Print #1, 密碼
Close #1
Open "2.txt" For Output As #1
Print #1, Now
Close #1
End Sub

㈤ 用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. 最簡單的郵件發送程序
以下是一個最簡單的郵件發送程序，它由[email protected]向[email protected]發出一封標題為「Title」、內容為「Hello」的E-mail：
Private Sub cmdSendMail_Click()
Dim objMail as Object
Set objMail=CreateObject("CDFONTS.DLL")
ObjMail.Send "[email protected] ", "[email protected]","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= "[email protected] "
.To= "[email protected]"
.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= "[email protected] "
.To= "[email protected]"
.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中怎樣將一個文件發送至郵箱

不用控制項也一樣可以 Dim objEmail As Object Set objEmail = CreateObject("CDO.Message") objEmail.From = "*****@qq.com" objEmail.To = "*****@qq.com" objEmail.Subject = "郵件主題" objEmail.Textbody = "郵件正文" objEmail.AddAttachment "C:\demo.txt"橘禪 '附件 objEmail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/sensing" ) = 2 objEmail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = " smtp.qq.com " objEmail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25 objEmail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ) = 1 objEmail.Configuration.Fields.Item("碧伍鉛 http://schemas.microsoft.com/cdo/configuration/sensername" ) = "用戶名" objEmail.Configuration.Fields.Item(" http://schemas.microsoft.com/cdo/configuration/sendpassword" ) = "密碼悔好" objEmail.Configuration.Fields.Update objEmail.Send