cdosys autoresponder

[marqwest]

asp newbie ..

I need to set up an autoresponder when a user fills out my web form. 1 email going to user with thank you information and the other sent to me with the form fields information. This is my existing code..

<%
'Dimension variables
Dim objCDOSYSCon


'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")


'Out going SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.clovertech.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update

'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon


objCDOSYSMail.From = request("email")
objCDOSYSMail.To = "info@clovertech.com"
objCDOSYSMail.Subject = "Clover Tech Web Form Submission"
objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody &"<br>Business Name: " & request("Business")
objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody &"<br>Name: " & request("Name")
objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody &"<br>Email: " & request("email")
objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody &"<br>Title: " & request("Title")
objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody &"<br>Address: " & request("Address")
objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody &"<br>City: " & request("City")
objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody &"<br>State: " & request("State")
objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody &"<br>Zip: " & request("postCode")
objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody &"<br>Business Phone: " & request("tel")
objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody &"<br>Will you purchase compatible cartridges for:" & request("check1")
objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody &"<br>Have you purchased compatible products in the past? " & request("check2")
objCDOSYSMail.HTMLBody = objCDOSYSMail.HTMLBody &"<br>Comments: " & request("comments")

objCDOSYSMail.Send


'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>

[administrator]

Welcome to our forums

Your code looks good, the only thing I would change is the from line:

objCDOSYSMail.From = request("email")

Instead of request("email") use "info@clovertech.com".
The reason for this is because some email servers don't allow sending an email from a different domain than the one that your application is running from.

As for the second "thank you" email sent to the user, just create a new CDOSYS object and use it to send whatever you want to the user...

Let me know if you have any questions.



Thanks,
_________________
Peter
ASP & ASP.NET Articles and Tutorials

[jadranko]

I am thinking of using some code found on http://www.toddwoolums.com/asplogin.asp

that uses objCDOSYSMail for mailing users to activate their accounts. My question would be: how secure is is this method for emailing? In particular I am concerned with hackers being able to impersonate the sender for mass mailings.

Thanks in advance for any help you could give me. The code to be used is below:

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = vEmailServer
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = vSiteEmail
objCDOSYSMail.To = strEmail
objCDOSYSMail.Subject = "New Account"
objCDOSYSMail.HTMLBody = htmlBody
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

[administrator]

You can make it secure, by adding a password to your ASP page that sends the email. If this is a new user registration/activation, just send the password along with the form information to the page that sends the email. In the beginning of the ASP page that sends the email, check if the password has been submitted, and if not send a error message to the browser and don't send the email.

Let me know if you have any questions.


Cheers,
_________________
Peter
ASP & ASP.NET Articles and Tutorials