I have been trying to set up my email notification settings for a weeks, and I'm stumped.
I even found a solution that helped me before.. but now I can't seem to get this right.
I'm trying to use CDOSYS, as I did in the past.
Here's the code I replaced in the inc_mail.asp file:
CODE
case "cdosys"
Set objNewMail = Server.CreateObject("CDO.message")
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "sendmail2.brinkster.com"
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="2boobs@davemadethis.com"
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="XXXX"
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objNewMail.Configuration.Fields.Update
'Format and send message
Err.Clear
objNewMail.To = strRecipients
objNewMail.From = strSender
objNewMail.Subject = strSubject
objNewMail.TextBody = strMessage
On Error Resume Next
objNewMail.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "Your request was not sent due to the following error: " & Err.Description & ""
End if
Set objNewMail = Server.CreateObject("CDO.message")
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "sendmail2.brinkster.com"
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="2boobs@davemadethis.com"
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="XXXX"
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objNewMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objNewMail.Configuration.Fields.Update
'Format and send message
Err.Clear
objNewMail.To = strRecipients
objNewMail.From = strSender
objNewMail.Subject = strSubject
objNewMail.TextBody = strMessage
On Error Resume Next
objNewMail.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "Your request was not sent due to the following error: " & Err.Description & ""
End if
10x

