cdo收取邮件_利用CDO发邮件 报错怎么处理

import win.ui;

import com; //引用com库

/*DSG{{*/

mainForm = win.form(text="aardio工程11";right=959;bottom=591)

mainForm.add(

button={cls="button";text="button";left=69;top=138;right=244;bottom=178;z=1}

)

/*}}*/

mainForm.button.oncommand = function(id,event){

var CDOMail;

CDOMail = com.CreateObject("CDO.Message"); //创建对象

CDOMail.From = "shazhitime@163.com";//设置发信人的邮箱

CDOMail.To = "875300764@qq.com"; //设置收信人的邮箱

CDOMail.Subject = "主题:用CDO发送邮件试验"; //设定邮件的主题

CDOMail.TextBody = "文本内容";//使用文本格式发送邮件

CDOMail.HtmlBody = "当您看到此封邮件，表明CDO设置正确" //使用Html格式发送邮件

var STUl = "http://schemas.microsoft.com/cdo/configuration/" //微软服务器网址

with CDOMail.Configuration.Fields{

Item(STUl ++ "smtpserver") = "smtp.163.com"; //SMTP服务器地址

Item(STUl ++ "smtpserverport") = 25; //SMTP服务器端口

Item(STUl ++ "sendusing") = 2 ; //发送端口

Item(STUl ++ "smtpauthenticate") = 1 ;//远程服务器需要验证

Item(STUl ++ "sendusername") = "shazhitime@163.com" ;//发送方邮箱名称

Item(STUl ++ "sendpassword") = "****************" ;//发送方邮箱密码

Item(STUl ++ "smtpconnectiontimeout") = 60 ;//连接超时(秒)

Update();

}

CDOMail.Send //执行发送

}

mainForm.show();

return win.loopMessage();

Item(STUl ++ "smtpserver") = "smtp.163.com"; //SMTP服务器地址  这句开始报错！