創(chuàng)建一個腳本文件,名字隨意,擴展名vbs
成都創(chuàng)新互聯(lián)主營迎江網(wǎng)站建設(shè)的網(wǎng)絡(luò)公司,主營網(wǎng)站建設(shè)方案,app軟件開發(fā),迎江h(huán)5微信小程序開發(fā)搭建,迎江網(wǎng)站營銷推廣歡迎迎江等地區(qū)企業(yè)咨詢
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
啟動腳本,傳入?yún)?shù):
cscript //Nologo SendMail3.vbs subject-%time% content111
網(wǎng)頁名稱:Windows下通過腳本自動發(fā)郵件
標題網(wǎng)址:http://bm7419.com/article42/jcsghc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)頁設(shè)計公司、動態(tài)網(wǎng)站、標簽優(yōu)化、響應(yīng)式網(wǎng)站、ChatGPT、手機網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)