求教：把微软CDO VBA发邮件改为易语言的，无法写入属性

wzysoft

1. Dim CDOMail As Variant
   
2. On Error Resume Next '出错后继续执行
   
3. Application.DisplayAlerts = False '禁用系统提示
   
4. ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly '将工作簿设置为只读模式
   
5. Set CDOMail = CreateObject("CDO.Message") '创建对象
   
6. CDOMail.From = "12345@qq.com" '设置发信人的邮箱
   
7. CDOMail.To = "12345@qq.com" '设置收信人的邮箱
   
8. CDOMail.Subject = "主题:用CDO发送邮件试验" '设定邮件的主题
   
9. 'CDOMail.TextBody = "文本内容" '使用文本格式发送邮件
   
10. CDOMail.HtmlBody = "当您看到此封邮件，表明CDO设置正确" '使用Html格式发送邮件
    
11. CDOMail.AddAttachment ThisWorkbook.FullName '发送本工作簿为附件
    
12. STUl = "http://schemas.microsoft.com/cdo/configuration/" '微软服务器网址
    
13. With CDOMail.Configuration.Fields
    
14. .Item(STUl & "smtpserver") = "smtp.qq.com" 'SMTP服务器地址
    
15. .Item(STUl & "smtpserverport") = 25 'SMTP服务器端口
    
16. .Item(STUl & "sendusing") = 2 '发送端口
    
17. .Item(STUl & "smtpauthenticate") = 1 '远程服务器需要验证
    
18. .Item(STUl & "sendusername") = "12345" '发送方邮箱名称
    
19. .Item(STUl & "sendpassword") = "password" '发送方邮箱密码
    
20. .Item(STUl & "smtpconnectiontimeout") = 60 '连接超时（秒）
    
21. .Update
    
22. End With
    
23. CDOMail.Send '执行发送

复制代码

上面一段文字是vba调用cdo发邮件的例子，我现在想把它改成易语言的，前面部分都没问题：

  

微软服务器网址 ＝ “http://schemas.microsoft.com/cdo/configuration/”
Mail.创建 (“CDO.Message”, )
Mail.查看 ()
Mail.写属性 (“From”, “12345@163.com”))
Mail.写属性 (“To”, “12345@163.com”))
Mail.写属性 (“Subject”, “This is an email message.”))
Mail.写属性 (“TextBody”, “text”))
Mail.写属性 (“HtmlBody”, “HtmlBody”))
Mail.写属性 (“AddAttachment”, “c:\aa.txt”))

.版本 2<br /> <br /> 微软服务器网址 ＝ “http://schemas.microsoft.com/cdo/configuration/”<br /> Mail.创建 (“CDO.Message”, )<br /> Mail.查看 ()<br /> Mail.写属性 (“From”, “<a href="mailto:12345@163.com" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow">12345@163.com</a>”))<br /> Mail.写属性 (“To”, “<a href="mailto:12345@163.com" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow">12345@163.com</a>”))<br /> Mail.写属性 (“Subject”, “This is an email message.”))<br /> Mail.写属性 (“TextBody”, “text”))<br /> Mail.写属性 (“HtmlBody”, “HtmlBody”))<br /> Mail.写属性 (“AddAttachment”, “c:\aa.txt”))

但是对这一部分

With CDOMail.Configuration.Fields
.Item(STUl & "smtpserver") = "smtp.qq.com" 'SMTP服务器地址
.Item(STUl & "smtpserverport") = 25 'SMTP服务器端口
.Item(STUl & "sendusing") = 2 '发送端口
.Item(STUl & "smtpauthenticate") = 1 '远程服务器需要验证
.Item(STUl & "sendusername") = "12345" '发送方邮箱名称
.Item(STUl & "sendpassword") = "password" '发送方邮箱密码
.Item(STUl & "smtpconnectiontimeout") = 60 '连接超时（秒）
.Update



怎么写都不对，不能写入属性,在VBA中的属性是：CDOMail.Configuration.Fields.Item，如下是我写的：
Mail.读对象型属性 (“Configuration”, ).读对象型属性 (“Fields”, ).写属性 (“Item”,微软服务器网址+ “sendusing”, 2))
Mail.读对象型属性 (“Configuration”, ).读对象型属性 (“Fields”, ).写属性 (“Item”,微软服务器网址+ “sendusing=2”))


调试输出总是找不到对象属性，求大佬指教。

wzysoft

自己已经解决了

小牛大大

请大神指点一下哪里错误了