Hi,
I have some CDONTS code that worked up until recently and it has stopped working.
I have the Default SMTP virtual server running with IP address set to (All assigned). All other settings are the default values but when I try to send the email, it appears in the mailroot/queue folder.
We have a separate exchange server and I am wondering if this might be having any effect on the IIS server.
I am using IIS 5 on Windows 2000 server (CDONTS 1.2) and the code I use is at the bottom.
Any help would be very helpful,
Thanks
Si Fitz
'=========================================================
Const TEST_RECIPIENT = <email address>
Const SENDER = <email address>
Sub SendEmail (address, subject, body, showDetails)
Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail"
objNewMail.From = SENDER
objNewMail.To = address
objNewMail.Bcc = TEST_RECIPIENT
objNewMail.Subject = subject
objNewMail.Body = body
objNewMail.Send
Set objNewMail = Nothing
End Sub
'=========================================================![[afro] [afro] [afro]](/data/assets/smilies/afro.gif)
I have some CDONTS code that worked up until recently and it has stopped working.
I have the Default SMTP virtual server running with IP address set to (All assigned). All other settings are the default values but when I try to send the email, it appears in the mailroot/queue folder.
We have a separate exchange server and I am wondering if this might be having any effect on the IIS server.
I am using IIS 5 on Windows 2000 server (CDONTS 1.2) and the code I use is at the bottom.
Any help would be very helpful,
Thanks
Si Fitz
'=========================================================
Const TEST_RECIPIENT = <email address>
Const SENDER = <email address>
Sub SendEmail (address, subject, body, showDetails)
Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail"
objNewMail.From = SENDER
objNewMail.To = address
objNewMail.Bcc = TEST_RECIPIENT
objNewMail.Subject = subject
objNewMail.Body = body
objNewMail.Send
Set objNewMail = Nothing
End Sub
'=========================================================
![[afro] [afro] [afro]](/data/assets/smilies/afro.gif)