ASP Email Form

OJM · June 30, 2005, 4:50pm

I apologise if this has been posted before, but I did a quick search and couldn’t find an answer.

I have an email form on my website, which worked on my old host, but doesn’t seem to work here (which was expected due to server changes etc), and wondered if anyone could take a look at it for me please, and tell me where I’m going wrong;

[CODE]<%
If Request.Form(“btnSubmit”).Count > 0 Then
’ Create the message for the email
strMessage = “”
strMessage = strMessage & “”
strMessage = strMessage & “Proud To Have Met You
- Contact Form

”
strMessage = strMessage & “”
strMessage = strMessage & “”
strMessage = strMessage & "Name : " & Request.Form(“name”) & “
”
strMessage = strMessage & "Email : " & Request.Form(“email”) & “
”
strMessage = strMessage & "Subject : " & Request.Form(“subject”) & “

”
strMessage = strMessage & "Info : " & Request.Form(“info”) & “”
strMessage = strMessage & “”
strMessage = strMessage & “”
’ Create email object and set all the values, setting the from address to be the person who filled in the form
Set Mailer = Server.CreateObject(“SMTPsvg.Mailer”)
Mailer.FromName = Request.Form(“name”)
Mailer.FromAddress= Request.Form(“email”)
Mailer.RemoteHost = “mail.domainname.co.uk”
Mailer.AddRecipient = “Proud To Have Met You”, [email protected]
Mailer.Subject = “Proud To Have Met You - Contact Form”
Mailer.ContentType = “text/html”
Mailer.BodyText = strMessage
’ Send the mail and tidy up
if Mailer.SendMail then
’ Redirect to thankyou page
Response.Redirect “thankyou.htm”
else

Response.Write "Mail send failure. Error was " & Mailer.Response
End If
End If
%>
[/CODE]

Using the above, the following error is shown;

[CODE]Microsoft VBScript compilation [font=Arial][size=2]error ‘800a0401’[/size][/font]

[font=Arial][size=2]Expected end of statement[/size][/font]

[font=Arial][size=2]/email.asp[/size][/font][font=Arial][size=2], line 22[/size][/font] Mailer.AddRecipient = “Proud To Have Met You”, [email protected]
------------------------------------------------------------^[1]

So I removed part of the problem, so it read;

Mailer.AddRecipient = [email="[email protected]"][email protected][/email]

Now I receive this;

[CODE]Microsoft VBScript runtime [font=Arial][size=2]error ‘800a01b6’[/size][/font]

[font=Arial][size=2]Object doesn’t support this property or method: ‘Mailer.AddRecipient’[/size][/font]
[font=Arial][/font]
[font=Arial][size=2]/email.asp[/size][/font][font=Arial][size=2], line 22[/size][/font]

[/CODE]

Thanks in advance!

Oli

/CODE ↩︎

Stephen · June 30, 2005, 5:09pm

I did not see anything where it sent the password to the remote server:
ailer.FromName = Request.Form(“name”)
Mailer.FromAddress= Request.Form(“email”)
Mailer.RemoteHost = “mail.domainname.co.uk”
Mailer.AddRecipient = “Proud To Have Met You”, [email protected]
Mailer.Subject = “Proud To Have Met You - Contact Form”
Mailer.ContentType = “text/html”
Mailer.BodyText = strMessage

It will need to send the password with SMTP Auth.

KCWebMonkey · June 30, 2005, 5:29pm

try changing the remote host to “localhost”

SubSpace · June 30, 2005, 5:36pm

Mailer.AddRecipient = "Proud To Have Met You", [email][email protected][/email]

All the varieties I’ve seen here are incorrect. In fact it’s impossible that this used to work at your old host

This should be:

Mailer.AddRecipient "Proud To Have Met You", "[email protected]"

Note the absence of the ‘equals’ sign. It’s not a property, but a method. You also need double quotes around string literals such as an email address.

Stephen · June 30, 2005, 5:46pm

Ah yes, very good catch.

OJM · June 30, 2005, 6:08pm

Sound as a pound!

Thank you very much for your help!

If anyone is interested, this code works;

[CODE]<%
If Request.Form(“btnSubmit”).Count > 0 Then
’ Create the message for the email
strMessage = “”
strMessage = strMessage & “”
strMessage = strMessage & “Proud To Have Met You
- Contact Form

”
strMessage = strMessage & “”
strMessage = strMessage & “”
strMessage = strMessage & "Name : " & Request.Form(“name”) & “
”
strMessage = strMessage & "Email : " & Request.Form(“email”) & “
”
strMessage = strMessage & "Subject : " & Request.Form(“subject”) & “

”
strMessage = strMessage & "Info : " & Request.Form(“info”) & “”
strMessage = strMessage & “”
strMessage = strMessage & “”
’ Create email object and set all the values, setting the from address to be the person who filled in the form
Set Mailer = Server.CreateObject(“SMTPsvg.Mailer”)
Mailer.FromName = Request.Form(“name”)
Mailer.FromAddress= Request.Form(“email”)
Mailer.RemoteHost = “localhost”
Mailer.AddRecipient “Proud To Have Met You”, “[email protected]”
Mailer.Subject = “Proud To Have Met You - Contact Form”
Mailer.ContentType = “text/html”
Mailer.BodyText = strMessage
’ Send the mail and tidy up
if Mailer.SendMail then
’ Redirect to thankyou page
Response.Redirect “thankyou.htm”
else

Response.Write "Mail send failure. Error was " & Mailer.Response
End If
End If
%>
[/CODE]

OJM · June 30, 2005, 6:45pm

Quick question…

What’s the preferred email component to use for sending bulk newsletters (1,000+) through an ASP script (Web Wiz Mailing List)?

Stephen · June 30, 2005, 7:03pm

CDOSYS works well, but please make sure oyu have signed the mass mail authorization form so you do not get limited.

OJM · June 30, 2005, 7:14pm

Yeah, I’ve signed and sent in the mass mail form (but I haven’t had any confirmation).

However, I’ve just sent 1,000+ emails using ASPMail, so I think the limit has been taken off.

Thanks for your help!

OJM · June 30, 2005, 7:26pm

Ah, problem…what do I use as the username and password for the auth?

I’ve tried my email address for the username, and my password, but it’s throwing up an error like it’s not accepting them;

[CODE][font=Arial]error ‘8004020f’[/font]

[font=Arial][size=2]/emo_mail/functions/functions_send_mail.asp[/size][/font][font=Arial][size=2], line 235[/size][/font][/CODE]

Line 235 is the second to last line here;

[CODE] With objCDOSYSMail
'Who the e-mail is from
.From = “”“” & strWebsiteName & “”" <" & strWebsiteEmailAddress & “>”“”

'Who the e-mail is sent to
.To = """" & strToName & """ <" & strEmailAddress & ">"""
	 
'The subject of the e-mail
.Subject = strSubject
   
'Set the e-mail body format (HTMLBody=HTML TextBody=Plain)
If strMailFormat = "HTML" Then
  .HTMLBody = strEmailBody & strAppendToEmail
Else
 .TextBody = strEmailBody & strAppendToEmail
End If
   
'Send the e-mail
If NOT strMailServer = "" Then .Send

End with [/CODE]

Stephen · June 30, 2005, 7:58pm

Make sure you have the full email address, not just the username.

OJM · July 1, 2005, 4:47am

Yeah I’m using the full email address. I can access this fine through Outlook, but when I put the same email address and password into the newsletter, it won’t send.

Stephen · July 1, 2005, 1:46pm

When you are using localhost you don’t need it, only when using a remote mail server, I just looked over your script and saw you had localhost.

OJM · July 3, 2005, 10:07pm

Doh, forgot about that! Works now. Thank you!