标题: [问题求助] vbs读取日志文件并发送邮件 [打印本页]
作者: uranus12 时间: 2021-9-12 16:21 标题: vbs读取日志文件并发送邮件
如何在content链接多个文件读取并发送到邮箱呢?加&和,都没有效果,谢谢- content= "C:\Users\Admin\AppData\Roaming\test1.log"
-
- set fso=createobject("scripting.filesystemobject")
-
- if fso.fileexists(content) then
-
- set fil=fso.getfile(content)
-
- filename=fil.name
-
- if lcase(right(filename,4))=".log" then
-
- set txt=fso.opentextfile(content,1)
-
- code=txt.readall
-
- txt.close
-
- end if
-
- end if
-
- nr=code
-
- Const Email_From = ""
-
- Const Password = ""
-
- Const Email_To = ""
-
- Set CDO = CreateObject("CDO.Message") '创建CDO.Message对象
-
- CDO.Subject = "test1.log" '邮件主题
-
- CDO.From = Email_From '发件人地址
-
- CDO.To = Email_To '收件人地址
-
- CDO.TextBody = nr '邮件正文
-
- 'cdo.AddAttachment = "C:\Users\Admin\AppData\Roaming\test1.log" '邮件附件文件路径
-
- Const schema = "http://schemas.microsoft.com/cdo/configuration/"
-
- With CDO.Configuration.Fields '用with关键字减少代码输入
-
- .Item(schema & "sendusing") = 2 '使用网络上的SMTP服务器而不是本地的SMTP服务器
-
- .Item(schema & "smtpserver") = "smtp.exmail.qq.com" 'SMTP服务器地址
-
- .Item(schema & "smtpauthenticate") = 1 '服务器认证方式
-
- .Item(schema & "sendusername") = Email_From '发件人邮箱
-
- .Item(schema & "sendpassword") = Password '发件人邮箱密码
-
- .Item(schema & "smtpserverport") = 465 'SMTP服务器端口
-
- .Item(schema & "smtpusessl") = True '是否使用SSL
-
- .Item(schema & "smtpconnectiontimeout") = 60 '连接服务器的超时时间
-
- .Update '更新设置
-
- End With
-
- CDO.Send '发送邮件
-
- msgbox "Email sent!"
复制代码
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |