vbs sendmail發(fā)郵件帶附件方法
更新時間：2008年06月19日 12:33:31 作者：
vbs下實現(xiàn)郵件發(fā)送代碼，可以發(fā)附件等
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "zzzevazzz@21cn.com"
Email.To = "zzzevazzz@126.com"
Email.Subject = "Test sendmail.vbs"
Email.Textbody = "OK!"
Email.AddAttachment "C:\foo.zip"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.21cn.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "zzzevazzz"
.Item(NameSpace&"sendpassword") = "ph4nt0m!"
.Update
End With
Email.Send
Set Email = CreateObject("CDO.Message")
Email.From = "zzzevazzz@21cn.com"
Email.To = "zzzevazzz@126.com"
Email.Subject = "Test sendmail.vbs"
Email.Textbody = "OK!"
Email.AddAttachment "C:\foo.zip"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.21cn.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "zzzevazzz"
.Item(NameSpace&"sendpassword") = "ph4nt0m!"
.Update
End With
Email.Send
相關文章
VBS腳本病毒原理分析與防范...2007-02-02
用vbs實現(xiàn)重新啟動 Internet Explorer
用vbs實現(xiàn)重新啟動 Internet Explorer...2007-03-03
VBS教程：函數(shù)-Date 函數(shù)...2006-11-11
用vbscript實現(xiàn)將腳本的輸出復制到剪貼板...2007-04-04
VBS教程：方法-FolderExists 方法...2006-11-11
用vbs實現(xiàn)的瞬間關閉多個系統(tǒng)進程的腳本
程序利用 vbs 的wmi 、scripting.filesystemobject、shell.application、scripting.dictionary、wscript.shell的相關功能功能實現(xiàn)將當前進程列表顯示在一個文本文件中，通過用戶界面的選擇，確定需要瞬間中斷的進程列表，然后中斷之。2008-06-06
VBS教程：運算符-除運算符 (/)...2006-11-11
cmdhere安裝，使你在任何目錄下直接進入改目錄的CMD狀態(tài),需要的朋友可以參考下2008-05-05
用VBScript實現(xiàn)壓縮目錄中的所有文件(Zip)
下面的腳本主要是將制定目錄中得文件，單個壓縮為zip格式的文件，需要的朋友可以參考下2012-01-01
vbs中Empty和Null的區(qū)別...2007-03-03