重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

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下通过脚本自动发邮件
链接URL:http://cqcxhl.com/article/jcsghc.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP