Thread: CDO and SMTP Servers
View Single Post
  #3  
Old June 15th 06, 08:39 PM posted to microsoft.public.outlook.program_vba
[email protected]
external usenet poster
  
Posts: 3
Default CDO and SMTP Servers
And, obviously, I want to be able to do this without relaying. Thanks.

-Vincent


wrote:
I am working on an application where I want to allow a user to send a
message to multiple customers at once. I stumbled across CDO and have
some questions regarding how it works. I found the following code on
Microsoft's web site:

'************************************************* ************************************************** ********
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

' Set the CDOSYS configuration fields to use port 25 on the SMTP
server.

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =
cdoSendUsingPort
'ToDo: Enter name or IP address of remote SMTP server.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
= "remote SMTP server"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 10
.Update
End With
'************************************************* ************************************************** ********

You can specify a SMTP server in the code. My questions is, does this
SMTP server have to be the SMTP server that the recipient uses to
retrieve his or her e-mail or can this be the SMTP server through which
I wish to send the e-mail? My initial testing seems to suggest the
former. Is the latter possible? If so, how do you authenticate
yourself to the SMTP server through which you are sending the e-mail?
Thanks for any and all help.

-Vincent
Ads