At least one recipient is required....error

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

Hello 
I am getting the following server error message:

CDO.Message.1
 error '8004020c' 
At least one recipient is required, but none were 
found. 
/tell_a_friend.asp, 
line 67 
Line 67 in the code below refers to this: ObjSendMail.Send

Is this problem related to the ASP file referred to here, since I don't know what that is:

<form method="post" action="sendtellafriend.asp"><br>

<html>
<head>
<title>Tell a Friend</title>
</head>
<body>

<table border="0" align="center"><tr><td align="left"><br>
<form method="post" action="sendtellafriend.asp"><br>
Your Name: <input type="text" name="fromname" size="20"><br>
Friend's name: <input type="text" name="friendname" size="20"><br>
Friend's Email: <input type="text" name="friendemail" size="30"><br>
<br>
<input type="submit" value="Tell a Friend about this website"><br>
</form> </td></tr></table>
</body>
</html>

<% fromname = Request("fromname")
friendname = Request("friendname")
friendemail = Request("friendemail")
msgBody = "Hello" & friendname & vbcrlf &"I have found a quality Web site and thought you may find it useful:  http://www.mySite.com - http://www.mySite.com"& vbcrlf &vbcrlf & fromname
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server. 
ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/sendusing - http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). 

'ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtp - http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.smtp.mySite.com" 
ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtp - http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.mySite.com" 

ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtp - http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpusessl - http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) 
ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout - http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
' If server requires outgoing authentication uncomment lines below

ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate - http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication 
ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/sendusername - http://schemas.microsoft.com/cdo/configuration/sendusername") =" mailto:[email protected] - [email protected]" 
ObjSendMail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/send - http://schemas.microsoft.com/cdo/configuration/sendpassword") ="mySite" 
ObjSendMail.Configuration.Fields.Update 
'End remote SMTP server configuration section 
ObjSendMail.To = friendemail
ObjSendMail.Subject = friendname & ", check this out."
ObjSendMail.From = fromname & "@mySite.com"

ObjSendMail.TextBody= msgBody
ObjSendMail.Send

Set ObjSendMail = Nothing
Response.Redirect " http://www.mySite.com - www.mySite.com"
%>

Thanks for any help.