Board logo

标题: [问题求助] vbs读取日志文件并发送邮件 [打印本页]

作者: uranus12    时间: 2021-9-12 16:21     标题: vbs读取日志文件并发送邮件

如何在content链接多个文件读取并发送到邮箱呢?加&和,都没有效果,谢谢
  1. content= "C:\Users\Admin\AppData\Roaming\test1.log"
  2. set fso=createobject("scripting.filesystemobject")
  3. if fso.fileexists(content) then
  4. set fil=fso.getfile(content)
  5. filename=fil.name
  6. if lcase(right(filename,4))=".log" then
  7. set txt=fso.opentextfile(content,1)
  8. code=txt.readall
  9. txt.close
  10. end if
  11. end if
  12. nr=code
  13. Const Email_From = ""
  14. Const Password = ""
  15. Const Email_To = ""
  16. Set CDO = CreateObject("CDO.Message") '创建CDO.Message对象
  17. CDO.Subject = "test1.log" '邮件主题
  18. CDO.From = Email_From '发件人地址
  19. CDO.To = Email_To '收件人地址
  20. CDO.TextBody = nr '邮件正文
  21. 'cdo.AddAttachment = "C:\Users\Admin\AppData\Roaming\test1.log" '邮件附件文件路径
  22. Const schema = "http://schemas.microsoft.com/cdo/configuration/"
  23. With CDO.Configuration.Fields '用with关键字减少代码输入
  24. .Item(schema & "sendusing") = 2 '使用网络上的SMTP服务器而不是本地的SMTP服务器
  25. .Item(schema & "smtpserver") = "smtp.exmail.qq.com" 'SMTP服务器地址
  26. .Item(schema & "smtpauthenticate") = 1 '服务器认证方式
  27. .Item(schema & "sendusername") = Email_From '发件人邮箱
  28. .Item(schema & "sendpassword") = Password '发件人邮箱密码
  29. .Item(schema & "smtpserverport") = 465 'SMTP服务器端口
  30. .Item(schema & "smtpusessl") = True '是否使用SSL
  31. .Item(schema & "smtpconnectiontimeout") = 60 '连接服务器的超时时间
  32. .Update '更新设置
  33. End With
  34. CDO.Send '发送邮件
  35. msgbox "Email sent!"
复制代码





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2