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.
Any help is GREATLY appreciated.
Ben
P.S. I didn't write this code, just trying to debug it.
Code:
'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
Comment