最近公司需要個自動發(fā)送腳本，條件是需要網(wǎng)頁中報表。查閱了一些資料終于完成，但是說的太籠統(tǒng)了。所以自己來測試后確認(rèn)可以成功發(fā)送。

使用遠(yuǎn)程頁面然后將網(wǎng)頁內(nèi)容發(fā)送到郵箱，這網(wǎng)頁會實時顯示。 代碼如下僅僅需要更改配置文件。

wscript.echo "sending mail!"
??????? NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
??????? Set objMessage = CreateObject("CDO.Message")
?smtp=""
??????? u=""
??????? p=""
??????? objMessage.Subject = "This is report"
??????? objMessage.From = ""
??????? objMessage.To = ""
??????? objMessage.Bcc = ""
??????? objMessage.Cc = ""
?objMessage.BodyPart.Charset = "UTF-8"
?objMessage.HTMLBody = "<h1>This is some sample message html.</h1>"
???? ?objMessage.CreateMHTMLBody "D:\ProductionReport\total\total.html"
?objMessage.CreateMHTMLBody "file://D|/ProductionReport/total/totalASM.html"
????? With objMessage.Configuration.Fields
?????? .Item(NameSpace&"sendusing") = 2
?????? .Item(NameSpace&"smtpserver") = smtp
?????? .Item(NameSpace&"smtpserverport") = 25
?????? .Item(NameSpace&"smtpauthenticate") = 1
?????? .Item(NameSpace&"sendusername") = u
?????? .Item(NameSpace&"sendpassword") = p
?????? .update
?????? End With

objMessage.Send

Set objMessage = Nothing



總結(jié)

以上是生活随笔為你收集整理的自动发送邮件脚本的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。