NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
qq="1029291429@qq.com"
Email.From = qq
pass="密码"
Email.To = "799196747@qq.com"
Email.Subject = "钟诗婷"
Email.Textbody = "哈哈!"
Email.AddAttachment "C:\Documents and Settings\Administrator\桌面\新建.vbs" <这个没问题,有相应文件>
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.qq.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = qq
.Item(NameSpace&"sendpassword") = pass
.Update
End With
Email.Send
为什么有些机器用时提示找不到文件CDO.Message 1(之类,相近)错误,是不是这个需要一个不是大部分机器装机就有的软件,还是什么原因?
Set Email = CreateObject("CDO.Message")
qq="1029291429@qq.com"
Email.From = qq
pass="密码"
Email.To = "799196747@qq.com"
Email.Subject = "钟诗婷"
Email.Textbody = "哈哈!"
Email.AddAttachment "C:\Documents and Settings\Administrator\桌面\新建.vbs" <这个没问题,有相应文件>
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.qq.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = qq
.Item(NameSpace&"sendpassword") = pass
.Update
End With
Email.Send
为什么有些机器用时提示找不到文件CDO.Message 1(之类,相近)错误,是不是这个需要一个不是大部分机器装机就有的软件,还是什么原因?


