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:"
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