vbs+批处理发送邮件

使用方法：以下内容复制到新建的文本文件中，把自己的邮箱（试验用的是163）用户名（@.163不要）跟密码采用base64编码后替换掉 mail from:<test@163.com>(换成你的邮箱)。然后保存为mail.bat文件.再新建一个文本，里面写要发的内容，保存为mail.txt。打开命令行窗口，转换到文件所在目录，

执行命令：

                                   mail 目的邮箱[test@163.com] mail.txt

 

rem begin

rem wuliangyue7 2008-11-12

@echo off

if exist aa.bat del /s /q aa.bat

if exist aa.vbs del /s /q aa.vbs

echo set sh=WScript.CreateObject("WScript.Shell")>>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "open smtp.163.com 25">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo sh.SendKeys "ehlo aaa">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "auth login">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "username">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "password">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "mail from:<test@163.com>">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "rcpt to:<%1>">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "data">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "from:aa@163.com">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "to:bb@163.com">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "subject:subject">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo ^@echo off>>aa.bat

::echo @echo off>>aa.bat

echo for /f "delims=#" %%%%a in ('type %2') do (>>aa.bat

echo set /p a=^^^"sh.SendKeys ""^<nul>>aa.bat

echo set /p a=^^^"%%%%a^<nul>>aa.bat

::echo ^echo %%%%a>>aa.bat

echo ^echo ^^^{ENTER^^^}^^^")>>aa.bat

call aa.bat>>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys ".">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "quit">>aa.vbs

echo WScript.Sleep(100)>>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo WScript.Sleep(1000)>>aa.vbs

echo sh.SendKeys "quit">>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

echo sh.SendKeys "quit">>aa.vbs

echo sh.SendKeys "{ENTER}">>aa.vbs

start telnet.exe

aa.vbs

del /s /q aa.bat

del /s /q aa.vbs

rem end