首页 > 代码库 > Windows下通过脚本自动发邮件
Windows下通过脚本自动发邮件
创建一个脚本文件，名字随意，扩展名vbs
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
本文出自 “zl1030的记录” 博客，请务必保留此出处http://zl1030.blog.51cto.com/274507/1926402
Windows下通过脚本自动发邮件
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。