vbs sendmail發(fā)郵件帶附件方法
更新時(shí)間：2008年06月19日 12:33:31 作者：
vbs下實(shí)現(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
相關(guān)文章
VBS腳本病毒原理分析與防范...2007-02-02
用vbs實(shí)現(xiàn)重新啟動(dòng) Internet Explorer
用vbs實(shí)現(xiàn)重新啟動(dòng) Internet Explorer...2007-03-03
VBS教程：函數(shù)-Date 函數(shù)...2006-11-11
用vbscript實(shí)現(xiàn)將腳本的輸出復(fù)制到剪貼板
用vbscript實(shí)現(xiàn)將腳本的輸出復(fù)制到剪貼板...2007-04-04
VBS教程：方法-FolderExists 方法...2006-11-11
用vbs實(shí)現(xiàn)的瞬間關(guān)閉多個(gè)系統(tǒng)進(jìn)程的腳本
程序利用 vbs 的wmi 、scripting.filesystemobject、shell.application、scripting.dictionary、wscript.shell的相關(guān)功能功能實(shí)現(xiàn)將當(dāng)前進(jìn)程列表顯示在一個(gè)文本文件中，通過(guò)用戶界面的選擇，確定需要瞬間中斷的進(jìn)程列表，然后中斷之。2008-06-06
VBS教程：運(yùn)算符-除運(yùn)算符 (/)...2006-11-11
vbs實(shí)現(xiàn)右鍵菜單中添加CMD HERE
cmdhere安裝，使你在任何目錄下直接進(jìn)入改目錄的CMD狀態(tài),需要的朋友可以參考下2008-05-05
用VBScript實(shí)現(xiàn)壓縮目錄中的所有文件(Zip)
下面的腳本主要是將制定目錄中得文件，單個(gè)壓縮為zip格式的文件，需要的朋友可以參考下2012-01-01
vbs中Empty和Null的區(qū)別...2007-03-03