[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[原创] 用批处理+vbs做的邮件群发工具(高手请回毕)

批处理+VBS实现的邮件群发器
1.批处理+VBS实现+文本内容实现邮件群发。
  1. @echo off
  2. title 刚做好的邮箱群发工具&color da
  3. ::这里用到了G_getrows 还显视文本总行kk在把变量符应用到下面中去了,
  4. set l=1
  5. for /f %%u in (内容.txt) do set nl=%%u &&for /f %%j in (标题.txt) do set bt=%%j
  6. setlocal Enabledelayedexpansion
  7. call :G_getrows 账号.txt kk
  8. set ii=%kk%
  9. :in
  10. if %l% gtr %ii% exit
  11. for %%a in (%l%) do (
  12. call :lp %%a
  13. )
  14. :lp
  15. for /f "tokens=1,* delims=:." %%i in ('findstr/n .* 账号.txt') do (
  16. if %%i equ %1 set i=%%j)
  17. echo NameSpace = "http://schemas.microsoft.com/cdo/configuration/" >>a.vbs
  18. echo Set Email = CreateObject("CDO.Message") >>a.vbs
  19. echo Email.From = "%账号全名%"    >>a.vbs ||::发送邮件全名
  20. echo Email.To = "%i%"   >>a.vbs
  21. echo Email.Subject = "%bt%"  >>a.vbs  ||::这里是标题
  22. echo Email.Htmlbody = "%nl%"  >>a.vbs  ||::这里是内容
  23. echo With Email.Configuration.Fields  >>a.vbs
  24. echo .Item(NameSpace^&"sendusing") = 2  >>a.vbs
  25. echo .Item(NameSpace^&"smtpserver") = "%邮箱类型%"   >>a.vbs
  26. echo .Item(NameSpace^&"smtpserverport") = 25 >>a.vbs
  27. echo .Item(NameSpace^&"smtpauthenticate") = 1 >>a.vbs
  28. echo .Item(NameSpace^&"sendusername") = "%账号名%"   >>a.vbs
  29. echo .Item(NameSpace^&"sendpassword") = "%密码%"  >>a.vbs
  30. echo .update >>a.vbs
  31. echo End With >>a.vbs
  32. echo Email.Send  >>a.vbs
  33. a.vbs
  34. ping 127.1 -n 2 >nul
  35. del a.vbs
  36. set/a l+=1
  37. goto in
  38. :G_getrows
  39. set %2=0
  40. for /f %%i in ('findstr /n .* %1') do (set /a %2=%2+1)
复制代码
账号文本文件里面放你的收信邮箱一个一行。
1

评分人数

    • Batcher: 请编辑自己的帖子,把代码放到code标签里面 ...PB -2

后面在加点东西算了要实现取文本总行数如下
setlocal Enabledelayedexpansion
call :G_getrows 账号.txt kk
echo %kk%
用这个方法可以代替上面的2

TOP

为什么不直接用VBS

TOP

我的VBS不是很好

TOP

返回列表