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

成都創新互聯從2013年成立，是專業互聯網技術服務公司，擁有項目成都做網站、網站制作、成都外貿網站建設網站策劃，項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元九原做網站,已為上家服務,為九原各地企業和個人服務,聯系電話:18982081108

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

另外有需要云服務器可以了解下創新互聯scvps.cn，海內外云服務器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務器、裸金屬服務器、高防服務器、香港服務器、美國服務器、虛擬主機、免備案服務器”等云主機租用服務以及企業上云的綜合解決方案，具有“安全穩定、簡單易用、服務可用性高、性價比高”等特點與優勢，專為企業上云打造定制，能夠滿足用戶豐富、多元化的應用場景需求。

網站欄目：Windows下通過腳本自動發郵件-創新互聯
分享URL：http://vcdvsql.cn/article48/cdeoep.html

成都網站建設公司_創新互聯，為您提供營銷型網站建設、電子商務、服務器托管、搜索引擎優化、Google、域名注冊

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯