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:info@mySite.com - info@mySite.com"
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.
Topic Options
Post Options
Thanks(0)
