| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1013 人关注过本帖
标题:vbs脚本报错
只看楼主 加入收藏
zyj19871215
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2013-1-17
结帖率:0
收藏
已结贴  问题点数:20 回复次数:1 
vbs脚本报错
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   '发送邮件

求高手指点
搜索更多相关主题的帖子: friend course 
2013-01-17 10:05
wube
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:23
帖 子:1820
专家分:3681
注 册:2011-3-24
收藏
得分:20 
这是用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

不要選我當版主
2013-01-17 15:24
快速回复:vbs脚本报错
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.056010 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved