Send email to exchange versus SMTP

  • Thread starter Thread starter dbguru316
  • Start date Start date
D

dbguru316

I have two separate scripts that run depending on if the e-mail is going to a
SMTP server, or through an exchange server. The below SMTP script works
perfect using authentication an SSL:

Set objCDOConfig = CreateObject("CDO.Configuration")
With objCDOConfig.Fields
.Item(strSch & "sendusing") = cdoSendUsingPort
.Item(strSch & "smtpserver") = varsmtpserver
.Item(strSch & "smtpauthenticate") = cdoBasic
.Item(strSch & "smtpserverport") = varsmtpserverport
.Item(strSch & "sendusername") = varfromusernamesmptauth
.Item(strSch & "sendpassword") = varsendpassword
.Item(strSch & "smtpusessl") = True
.Update
End With
End If

Now I need to set up a similar one for exchange 2007. I am using one that
was taken from a Microsoft technet:

Set objCDOConfig = CreateObject("CDO.Configuration")
With objCDOConfig.Fields
.Item(strSch & "sendusing") = cdoSendUsingExchange
.Item(strSch & "mailboxurl")=
"file://./backofficestorage/subdomain.example.com/mbx/user/"
.Update

I received a message Field Update Failed. Check status of indivial fields....

Is this not the correct code for exchange 2007?
 
Back
Top