[问题求助] vbs读取日志文件并发送邮件

uranus12

如何在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!"
复制代码