Trying CDO.Message with Windows Hosted Network Solutions, no error, no e-mail is sent?

I have used CDO.Message many times with providers (1 and 1, ReadyHosting), but have never had this experience.

I have a "tell a friend" script I am using, but for some reason, I don't get an error but the e-mail is not sent.

Code attached.
Set Mail = Server.CreateObject("CDO.Message")
		Set objConfig = Server.CreateObject("CDO.Configuration") 
		
		'Configuration:
		objConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
		objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtpserver -- verified"
		objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
		objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1 
		objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user@domain"
		objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
		objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
		'Update configuration 
		objConfig.Fields.Update 
		Set Mail.Configuration = objConfig
 
		Mail.From = "valid and verified e-mail address"
		Mail.To = strEmail
		Mail.Subject = strSubject
		strBody = "A message from: " & strSenderEmail & "<br><br>I am sending this to you because I believe this is a website you should check out!<br><br>"
		Mail.HTMLBody = strBody
		On Error Resume Next
		Mail.Send
		If Err.Number <> 0 Then
			Response.Write "An error encountered: " & Err.Description & "<br>"
		Else %>
			&nbsp;&nbsp;Thank you for your help in getting our message out!<br><br>&nbsp;&nbsp;Click Back on your browser or <a href="tell_a_friend.asp">click here to send another e-mail.</a>
		<% End If

Open in new window

padlakeAsked:
Who is Participating?
 
padlakeConnect With a Mentor Author Commented:
Network Solutions CDOSYS does not require authentication to send e-mail, therefore this question is resolved.
Set myEmail = Server.CreateObject("CDO.Message")
		schemasURL = "http://schemas.microsoft.com/cdo/configuration/"
		With myEmail.Configuration.Fields
		.Item(schemasURL & "sendusing") = 2
		.Item(schemasURL & "smtpserver") = "localhost"
		.Item(schemasURL & "smtpconnectiontimeout") = 10
		.Item(schemasURL & "smtpserverport") = 25
		.Item (schemasURL & "smtpusessl") = False
		.Item (schemasURL & "smtpconnectiontimeout") = 60
		.Update
		End With
		
		myEmail.From = "email@domain.com"
		myEmail.To = strEmail
		myEmail.BCC = "email@domain.com"
		myEmail.Subject = strSubject
		strBody = "A message from: " & strSenderEmail & "<br><br>I am sending this to you because I believe this is a website you should check out!<br><br>"
		strBody = strBody & "I just found <br><br>website domain.com"
		myEmail.HTMLBody = strBody
		On Error Resume Next
		myEmail.Send
		If Err.Number <> 0 Then
			Response.Write "An error encountered: " & Err.Description & "<br>"
		Else %>
			&nbsp;&nbsp;Thank you for your help in getting our message out!<br><br>&nbsp;&nbsp;Click Back on your browser or <a href="tell_a_friend.asp">click here to send another e-mail.</a>
		<% End If
		Set myEmail = Nothing

Open in new window

0
 
Chris DentPowerShell DeveloperCommented:

If it seems to be successfully delivering to an SMTP server we will need to check the SMTP logs to determine what happened to the message.

Chris
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.