Not new to programming but new to ASP. The uplink provider decided in their infinite wisdom to block port 25 for everyone and require people to use an alternate port with authentication. Unfortunately I don't know enough to be able to see what is happening to know why this isn't working. Is there a debugging mode I can turn on to step through a script to see the malfunction? Can anyone offer a suggestion as to why this portion of the script isn't working??
Any help is GREATLY appreciated.
Ben
P.S. I didn't write this code, just trying to debug it.
- 'CDO send method
-
objMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
-
-
'Out going SMTP server this can be on any machine
-
objMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.myhost.com"
-
-
'SMTP port
-
objMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 26
-
-
'Timeout
-
objMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
-
-
'SMTP server authentication
-
objMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
-
objMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USERNAME@DOMAIN.COM"
-
objMailConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORD"
-
-
'Update the CDOSYS Configuration
-
objMailConf.Fields.Update
-
-
Set objNewMail.Configuration = objMailConf
-
-
'Set key properties
-
objNewMail.From = "BibleStudent@tftw.org"
-
objNewMail.ReplyTo = "BibleStudent@tftw.org"
-
objNewMail.To = sendtoemail
-
-
If bccemail <> sendtoemail Then
-
objNewMail.Cc = bccemail
-
End If
-
-
objNewMail.Subject= emsubj
-
objNewMail.HTMLBody = embody
-
-
'Send the email
-
objNewMail.Send
-
-
-
Set objMailConf = Nothing
-
Set objNewMail = Nothing
