Windows下通过脚本自动发邮件-创新互联
创建一个脚本文件,名字随意,扩展名vbs
成都创新互联从2013年成立,是专业互联网技术服务公司,拥有项目成都做网站、网站制作、成都外贸网站建设网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元九原做网站,已为上家服务,为九原各地企业和个人服务,联系电话:18982081108subject=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:" sh.SendKeys("{Enter}") WScript.Sleep 500 sh.SendKeys "rcpt to: " sh.SendKeys("{Enter}") WScript.Sleep 100 sh.SendKeys "rcpt to: " 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下通过脚本自动发邮件-创新互联
文章地址:http://cdiso.cn/article/cdeoep.html