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
相關文章
目前各類萬能驅動程序包在網(wǎng)絡上屢見發(fā)布，在使用這些程序包的同時，我們不僅會問：為什么這些程序包中的驅動程序可以在安裝新硬件之后自動安裝呢？2008-07-07
把txt文件托放到這個vbs上試一下，它會自動生成一個htm文件。需要修的地方說一下。2011-01-01
VBS教程：函數(shù)-Array 函數(shù)...2006-11-11
VBS教程：運算符-除運算符 (/)...2006-11-11
變量是一種使用方便的占位符，用于引用計算機內(nèi)存地址，該地址可以存儲腳本運行時可更改的程序信息2006-11-11
有時候我們需要監(jiān)控一些進程，防止一些進程的開啟，發(fā)現(xiàn)指定進程運行就關閉它，那么就可以參考下面的代碼2013-09-09
已經(jīng)第二次了，上班后沒把電話解除，總記不起這件事。做了個備忘錄，放在啟動項里，每次啟動系統(tǒng)后都會執(zhí)行，彈出相關事項，即便自己沒有記住也可以給個提醒了2008-06-06
對于想結合OWC的朋友，可以參考下。2009-05-05
用vbs腳本實現(xiàn)運行DOS批處理不再出現(xiàn)黑屏cmd窗口
用vbs腳本實現(xiàn)運行DOS批處理不再出現(xiàn)黑屏cmd窗口...2007-02-02
幾個超據(jù)學習價值的VBS腳本用法：將exe格式的flash拖放在此vbs文件上，即可生成swf文件2008-05-05