利用CDO发邮件 报错怎么处理

shacool

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服务器地址  这句开始报错！

JacenHe

报什么错都不说，
不会写就用现成的没必要去自己写，标准库里的com.smtp, inet.smtp都可以发邮件，遇到问题先看范例。

shacool

谢谢 我已经知道问题出在什么地方了，

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

要按 官方案例 Item(STUl ++ "smtpserver").value = "smtp.163.com"; //SMTP服务器地址  这句开始报错！

本地是用官方的案例，但是本地能发，腾讯云就不能发。

这个也找出问题是25端口被封了。