vbs读取日志文件并发送邮件

uranus12

如何在content链接多个文件读取并发送到邮箱呢？加&和,都没有效果，谢谢

1. content= "C:\Users\Admin\AppData\Roaming\test1.log"
   
2. 
   
3. set fso=createobject("scripting.filesystemobject")
   
4. 
   
5. if fso.fileexists(content) then
   
6. 
   
7. set fil=fso.getfile(content)
   
8. 
   
9. filename=fil.name
   
10. 
    
11. if lcase(right(filename,4))=".log" then
    
12. 
    
13. set txt=fso.opentextfile(content,1)
    
14. 
    
15. code=txt.readall
    
16. 
    
17. txt.close
    
18. 
    
19. end if
    
20. 
    
21. end if
    
22. 
    
23. nr=code
    
24. 
    
25. Const Email_From = ""
    
26. 
    
27. Const Password = ""
    
28. 
    
29. Const Email_To = ""
    
30. 
    
31. Set CDO = CreateObject("CDO.Message") '创建CDO.Message对象
    
32. 
    
33. CDO.Subject = "test1.log" '邮件主题
    
34. 
    
35. CDO.From = Email_From '发件人地址
    
36. 
    
37. CDO.To = Email_To '收件人地址
    
38. 
    
39. CDO.TextBody = nr '邮件正文
    
40. 
    
41. 'cdo.AddAttachment = "C:\Users\Admin\AppData\Roaming\test1.log" '邮件附件文件路径
    
42. 
    
43. Const schema = "http://schemas.microsoft.com/cdo/configuration/"
    
44. 
    
45. With CDO.Configuration.Fields '用with关键字减少代码输入
    
46. 
    
47. .Item(schema & "sendusing") = 2 '使用网络上的SMTP服务器而不是本地的SMTP服务器
    
48. 
    
49. .Item(schema & "smtpserver") = "smtp.exmail.qq.com" 'SMTP服务器地址
    
50. 
    
51. .Item(schema & "smtpauthenticate") = 1 '服务器认证方式
    
52. 
    
53. .Item(schema & "sendusername") = Email_From '发件人邮箱
    
54. 
    
55. .Item(schema & "sendpassword") = Password '发件人邮箱密码
    
56. 
    
57. .Item(schema & "smtpserverport") = 465 'SMTP服务器端口
    
58. 
    
59. .Item(schema & "smtpusessl") = True '是否使用SSL
    
60. 
    
61. .Item(schema & "smtpconnectiontimeout") = 60 '连接服务器的超时时间
    
62. 
    
63. .Update '更新设置
    
64. 
    
65. End With
    
66. 
    
67. CDO.Send '发送邮件
    
68. 
    
69. msgbox "Email sent!"

复制代码