|
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.
|