?
Solved

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

Posted on 2008-10-12
2
Medium Priority
?
1,217 Views
Last Modified: 2013-12-14
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

0
Comment
Question by:padlake
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 71

Expert Comment

by:Chris Dent
ID: 22701415

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
 

Accepted Solution

by:
padlake earned 0 total points
ID: 22706632
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

Featured Post

Portable, direct connect server access

The ATEN CV211 connects a laptop directly to any server allowing you instant access to perform data maintenance and local operations, for quick troubleshooting, updating, service and repair.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article is a collection of issues that people face from time to time and possible solutions to those issues. I hope you enjoy reading it.
This program is used to assist in finding and resolving common problems with wireless connections.
After creating this article (http://www.experts-exchange.com/articles/23699/Setup-Mikrotik-routers-with-OSPF.html), I decided to make a video (no audio) to show you how to configure the routers and run some trace routes and pings between the 7 sites…
After creating this article (http://www.experts-exchange.com/articles/23699/Setup-Mikrotik-routers-with-OSPF.html), I decided to make a video (no audio) to show you how to configure the routers and run some trace routes and pings between the 7 sites…
Suggested Courses
Course of the Month11 days, 15 hours left to enroll

752 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question