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

使用遠程頁面然后將網頁內容發送到郵箱，這網頁會實時顯示。 代碼如下僅僅需要更改配置文件。

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



總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。