vbs脚本报错，错误代码：80040213  源 ：CD0.Messege.1  行：28  字符：1
但是我脚本内容是：
dim mailsend,fs,ts
set fs = createobject ("scripting.filesystemobject")
set ts = fs.opentextfile("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   '发送邮件

求高手指点

这是用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