如何将CDO与带vbscript的Exchange一起使用

我正在尝试使用exchange帐户设置电子邮件脚本。我想在vbscript中使用CDO（或等效工具）。目标是通过exchange帐户的“已发送”文件夹跟踪电子邮件通信。 我正在使用exchange 2007。

使用Microsoft NTLM（） 在CDO中，它是一个CDO协议验证枚举（）

Const cdosensingpickup=1'使用本地SMTP服务拾取目录发送邮件。
Const cdoSendUsingPort=2'使用网络发送邮件（通过网络发送SMTP）。
Const cdoAnonymous=0'不进行身份验证
常量cdoBasic=1'基本（明文）身份验证
常数cdoNTLM=2'NTLM
暗箱
Set objEmail=CreateObject（“CDO.Message”）
objEmail.Configuration.Fields.Item（“http://schemas.microsoft.com/cdo/configuration/sendusing“”=cdoSendUsingPort
'远程SMTP服务器的名称或IP
objEmail.Configuration.Fields.Item（“http://schemas.microsoft.com/cdo/configuration/smtpserver“”=“交易所”
'服务器端口
objEmail.Configuration.Fields.Item（“http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25 
objEmail.Configuration.Fields.Item（“http://schemas.microsoft.com/cdo/configuration/smtpAuthenticate“”=cdoNTLM
objEmail.Configuration.Fields.Item（“http://schemas.microsoft.com/cdo/configuration/NNTPAccountName“”=“用户名”
objEmail.Configuration.Fields.Item（“http://schemas.microsoft.com/cdo/configuration/SaveSentItems“”=真
objEmail.Configuration.Fields.Update
objEmail.From=“From”
objEmail.To=”TO@domain.com"
objEmail.Subject=“Subject”
objectjemail.Textbody=“BODY”
发送邮件

这是SMTP，不是exchange

Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. 
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). 

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

dim objEmail
    Set objEmail = CreateObject("CDO.Message") 
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing")= cdoSendUsingPort 
'Name or IP of remote SMTP server
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="exchange"
'Server port
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25 

objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpAuthenticate") = cdoNTLM 
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/NNTPAccountName") = "USERNAME"
 objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/SaveSentItems") = TRUE

objEmail.Configuration.Fields.Update
objEmail.From = "FROM <FROM@domain.com>"
    objEmail.To = "TO@domain.com"
    objEmail.Subject = "SUBJECT"
    objEmail.Textbody = "BODY " 
    objEmail.Send