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

[系统相关] 发邮件有问题

  1. //默认为当天日期。若要发送前1天数据则-1,前2天数据则-2,以此类推。
  2. set "rar=C:\Program Files\WinRAR\WinRAR.exe"
  3. echo wscript.echo dateadd("d",-3,date) >tmp.vbs
  4. for /f "tokens=1,2,3 delims=/" %%i in ('cscript /nologo tmp.vbs') do (
  5. set /a y=%%i
  6. set /a m=%%j
  7. set /a d=%%k
  8. )
  9. if %m% LEQ 9 set m=0%m%
  10. if %d% LEQ 9 set d=0%d%
  11. set date=%y%%m%%d%
  12. del /s /q tmp.vbs
  13. //【客户名称】
  14. set pname1=百年万能保险产品
  15. set pname2=-
  16. set dir2=D:\每日清算数据测试\%pname1%
  17. set address=fusc1@cmschina.com.cn
  18. set message=如有疑问,请致电招商证券沪世纪营业部021-68407557联系或邮件fusc1@cmschina.com.cn;
  19. cd .
  20. md %dir2%\%date%
  21. cd %dir2%\%date%
  22. D:
  23. echo open 172.21.2.6 9805>>ftp.txt
  24. echo sjdd21>>ftp.txt
  25. echo sjdd79*ty>>ftp.txt
  26. echo binary>>ftp.txt
  27. echo cd  %pname1%\%date%>>ftp.txt
  28. echo mget *>>ftp.txt
  29. echo bye>>ftp.txt
  30. ftp -i -s:ftp.txt
  31. del ftp.txt
  32. rar a  %pname1%%pname2%%date%.rar *.*
  33. copy %pname1%%pname2%%date%.rar ..\
  34. //【客户名称】
  35. echo receiptions = "%455545972@qq.com%" > Email_Auto_Send.vbs
  36. echo Subject = "%pname1%%pname2%%date%"  >> Email_Auto_Send.vbs
  37. echo Body = "附件是%pname1%%pname2%清算数据,请查收。%message%" >> Email_Auto_Send.vbs
  38. echo Attachments = Array("%dir2%\%pname1%%pname2%%date%.rar") >> Email_Auto_Send.vbs
  39. echo Dim xOutLook >> Email_Auto_Send.vbs
  40. echo Dim xMail >> Email_Auto_Send.vbs
  41. echo On Error Resume Next >> Email_Auto_Send.vbs
  42. echo Set xOutLook = GetObject(, "Outlook.Application") >> Email_Auto_Send.vbs
  43. echo If xOutLook Is Nothing Then >> Email_Auto_Send.vbs
  44. echo     Set xOutLook = CreateObject("Outlook.Application") >> Email_Auto_Send.vbs
  45. echo End If >> Email_Auto_Send.vbs
  46. echo Set xMail = xOutLook.CreateItem(olMailItem) >> Email_Auto_Send.vbs
  47. echo With xMail >> Email_Auto_Send.vbs
  48. echo     .Display >> Email_Auto_Send.vbs
  49. echo     Dim signature >> Email_Auto_Send.vbs
  50. echo     signature = .HTMLBody >> Email_Auto_Send.vbs
  51. echo     .To = receiptions >> Email_Auto_Send.vbs
  52. echo     .Subject = Subject >> Email_Auto_Send.vbs
  53. echo     .HTMLBody = Body >> Email_Auto_Send.vbs
  54. echo     .Importance = olImportanceNormal >> Email_Auto_Send.vbs
  55. echo     Dim xDoc >> Email_Auto_Send.vbs
  56. echo     Set xDoc = xMail.Application.ActiveInspector.WordEditor >> Email_Auto_Send.vbs
  57. echo     If IsArray(Attachments) Then >> Email_Auto_Send.vbs
  58. echo         Dim attachment >> Email_Auto_Send.vbs
  59. echo         For Each attachment In Attachments >> Email_Auto_Send.vbs
  60. echo             .Attachments.Add attachment >> Email_Auto_Send.vbs
  61. echo         Next >> Email_Auto_Send.vbs
  62. echo     End If >> Email_Auto_Send.vbs
  63. echo     .HTMLBody = .HTMLBody >> Email_Auto_Send.vbs
  64. echo     If true Then >> Email_Auto_Send.vbs
  65. echo         .Send >> Email_Auto_Send.vbs
  66. echo     Else >> Email_Auto_Send.vbs
  67. echo         .Display >> Email_Auto_Send.vbs
  68. echo     End If >> Email_Auto_Send.vbs
  69. echo End With >> Email_Auto_Send.vbs
  70. Email_Auto_Send.vbs
  71. del Email_Auto_Send.vbs
  72. //——————————
复制代码
上面是代码,发邮件报错
windows 无法访问指定设置路径 或者文件 报的是Email_Auto_Send.vbs 这个vbs这里,这会是啥问题,用的是outlook,有知道的吗,谢谢

回复 3# cmd1152


    第77行决有执行完吗

TOP

因为vbs没有执行完就被删除了,所以vbs报错
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

78行改成
  1. start /w Email_Auto_Send.vbs
复制代码
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

返回列表