vbs脚本报错 - 编程论坛

wube2013-01-17 15:24

这是用VB6调试过的～应该是OK～对象内容都有出来～
只是没仔细看是在做什么用的～针对一些部分修正～

程序代码：

Private Sub Command1_Click()
Dim mailsend, fs, ts, readall, CDO

    Set fs = CreateObject("scripting.filesystemobject")
    Set ts = fs.opentextfile("C:\log\1.log", 1, True) ' 邮件内容存放的路径
    readall = ts.readall '读取mail.txt所有内容

    Const Email_From = "jk@"   '发件人邮箱
    Const Password = "yy!@#$"   '发件人邮箱密码
    Const Email_To = "123@"
    Set CDO = CreateObject("CDO.Message")   '创建CDO.Message对像

    CDO.Subject = "文件备份检查"   '邮件主题
    CDO.From = Email_From   '发件人地址
    CDO.To = Email_To   '收件人地址
    CDO.TextBody = readall   '邮件正文
    'CDO.AddAttachment "i:\check\newlogcheck.log" 邮件附件，已注释

    Const schema = "http://schemas."   '规定必须是这个，我也不知道为什么

    With CDO.Configuration.Fields   '用with关键字减少代码输入
        .Item(schema & "sendusing") = 2   '使用网络上的SMTP服务器而不是本地的SMTP服务器
        .Item(schema & "smtpserver") = "smtp."   'SMTP服务器地址
        .Item(schema & "smtpauthenticate") = 1   '服务器认证方式
        .Item(schema & "sendusername") = Email_From   '发件人邮箱
        .Item(schema & "sendpassword") = Password   '发件人邮箱密码
        .Item(schema & "smtpserverport") = 25   'SMTP服务器端口
        .Item(schema & "smtpusessl") = False   '是否使用SSL
        .Item(schema & "smtpconnectiontimeout") = 60   '连接服务器的超时时间
        .Update   '更新设置
    End With

    CDO.Send   '发送邮件

End Sub