創建一個腳本文件,名字隨意,擴展名vbs

成都創新互聯主營迎江網站建設的網絡公司,主營網站建設方案,app軟件開發,迎江h5微信小程序開發搭建,迎江網站營銷推廣歡迎迎江等地區企業咨詢
subject=WScript.Arguments(0)
content=WScript.Arguments(1)
set sh=WScript.CreateObject("WScript.Shell")
host=WScript.FullName
If LCase(Right(host,11))="wscript.exe" Then
sh.run "cscript //nologo """ & WScript.ScriptFullName & Chr(34), 0
WSCript.Quit
End If
sh.Run "cmd.exe"
WScript.Sleep 1000
sh.SendKeys "telnet"
sh.SendKeys("{Enter}")
WScript.Sleep 1000
sh.SendKeys "open smtp.somesome.com 25"
sh.SendKeys("{Enter}")
WScript.Sleep 1000
sh.SendKeys "helo somesome.com"
sh.SendKeys("{Enter}")
WScript.Sleep 500
sh.SendKeys "auth login"
sh.SendKeys("{Enter}")
WScript.Sleep 500
sh.SendKeys "xxxxxxx"
sh.SendKeys("{Enter}")
WScript.Sleep 100
sh.SendKeys "xxxxxxx"
sh.SendKeys("{Enter}")
WScript.Sleep 100
sh.SendKeys "mail from:<test1@somesome.com>"
sh.SendKeys("{Enter}")
WScript.Sleep 500
sh.SendKeys "rcpt to:<test1@somesome.com>"
sh.SendKeys("{Enter}")
WScript.Sleep 100
sh.SendKeys "rcpt to:<test2@qq.com>"
sh.SendKeys("{Enter}")
WScript.Sleep 100
sh.SendKeys "data"
sh.SendKeys("{Enter}")
WScript.Sleep 100
sh.SendKeys "from:test1"
sh.SendKeys("{Enter}")
WScript.Sleep 100
sh.SendKeys "to:test2"
sh.SendKeys("{Enter}")
WScript.Sleep 100
sh.SendKeys "subject:" & subject
sh.SendKeys("{Enter}")
WScript.Sleep 100
sh.SendKeys ""
sh.SendKeys("{Enter}")
WScript.Sleep 100
sh.SendKeys content
sh.SendKeys("{Enter}")
WScript.Sleep 100
sh.SendKeys ""
sh.SendKeys("{Enter}")
WScript.Sleep 100
sh.SendKeys "."
sh.SendKeys("{Enter}")
WScript.Sleep 100
sh.SendKeys("{Enter}")
WScript.Sleep 1000
sh.SendKeys "quit"
sh.SendKeys("{Enter}")
WScript.Sleep 5000
sh.SendKeys("{Enter}")
WScript.Sleep 2000
sh.SendKeys "quit"
sh.SendKeys("{Enter}")
WScript.Sleep 100
sh.SendKeys("exit{Enter}")
WScript.Quit啟動腳本,傳入參數:
cscript //Nologo SendMail3.vbs subject-%time% content111
網頁名稱:Windows下通過腳本自動發郵件
標題網址:http://www.yijiale78.com/article42/jcsghc.html
成都網站建設公司_創新互聯,為您提供網頁設計公司、動態網站、標簽優化、響應式網站、ChatGPT、手機網站建設
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯