Windows下通过脚本自动发邮件
创建一个脚本文件,名字随意,扩展名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:" 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
本文题目:Windows下通过脚本自动发邮件
路径分享:http://myzitong.com/article/jcsghc.html