H
Hugh Welford
Hi,
I am modifying my CDONTS code to use CDO.message. This works fine except
that it wont seem to let me send a copy of the e-mail to my-self. With
CDONTS i had no problems with this. Can anyone help with this? Thanks in
advance, Hugh
The code I am using is as follows:-
Set cdoConfig = Server.CreateObject("CDO.Configuration")
With cdoConfig.Fields
..Item(cdoSendUsingMethod) = cdoSendUsingPort
..Item(cdoSMTPServer) = "pegasus.intonet.co.uk"
..Update
End With
Set cdoMessage = Server.CreateObject("CDO.Message")
With cdoMessage
Set.Configuration = cdoConfig
..From = "(e-mail address removed)"
..To = objrec("email")
..cc = "(e-mail address removed)"
..Subject = "Welcome to The Andropause Society"
..HTMLBody = thetext
..Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
I am modifying my CDONTS code to use CDO.message. This works fine except
that it wont seem to let me send a copy of the e-mail to my-self. With
CDONTS i had no problems with this. Can anyone help with this? Thanks in
advance, Hugh
The code I am using is as follows:-
Set cdoConfig = Server.CreateObject("CDO.Configuration")
With cdoConfig.Fields
..Item(cdoSendUsingMethod) = cdoSendUsingPort
..Item(cdoSMTPServer) = "pegasus.intonet.co.uk"
..Update
End With
Set cdoMessage = Server.CreateObject("CDO.Message")
With cdoMessage
Set.Configuration = cdoConfig
..From = "(e-mail address removed)"
..To = objrec("email")
..cc = "(e-mail address removed)"
..Subject = "Welcome to The Andropause Society"
..HTMLBody = thetext
..Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing