Sending a personalised email (ASP)

Jeremy74 · Sep 12, 2002

I have a form on my site where users can join my site and receive newsletters etc, this is attached to an access database. What I want to do is automatically send them a personalised email that includes their name (ie Dear John) and password. It also has to send a copy to me. I have a good host with ASPmail, CDO and auto responders. What’s the easiest way to do this? I was looking at using the CDO extension by Ray West but can’t find a tutorial on this. Can someone point me in the right direction with some good advice or Tutorials?

Cheers

Jeremy

TonyU · Sep 12, 2002

[tt]
Here's the way I do it:

When my user(s) want to email anyone I have them fill this html form already populated by the database then posting it to my email processing page but passing the user(s) database ID field as shown below:

then on my email page, I create a recordset requesting all members with the ID in the URL (the one I'm passing) to get the perfect match. Then I simply customize the email as I please.

<%@LANGUAGE="VBSCRIPT"%>
<%
dim mystring
mystring = "

http://mysite/default.asp"

%>

<%
Dim rsEmail__MMColParam
rsEmail__MMColParam = "1"
if (Request.QueryString("id&quot

<> "&quot

then rsEmail__MMColParam = Request.QueryString("id&quot

%>
<%
set rsEmail = Server.CreateObject("ADODB.Recordset&quot

rsEmail.ActiveConnection = MM_Mentor_STRING
rsEmail.Source = "SELECT * FROM Users WHERE id = " + Replace(rsEmail__MMColParam, "'", "''&quot

+ ""
rsEmail.CursorType = 0
rsEmail.CursorLocation = 2
rsEmail.LockType = 3
rsEmail.Open()
rsEmail_numRows = 0
%>
<HTML>
<HEAD>
<TITLE>My Company's automated email system</TITLE>
</HEAD>
<BODY>
<%
Dim objMsg, strFrom, strTo, strSubject, strBody, lngImportance, objMail, htmlText
strFrom = request.form("email&quot

("supervisor&quot

& ";" & request.form("management&quot

& ";" & request.form("name&quot

& "me@myisp.com"

strTo = "me@myisp.com"

strSubject = "Hello " & RsEmail("User&quot

& " Thank you for joining my site"
strBody = " blah, blah blah blah"

Set objMsg = Server.CreateObject("CDONTS.NewMail&quot

objMsg.From = strFrom
objMsg.To = strTo
objMsg.Subject = strSubject
objMsg.Body = strBody
objMsg.Send
Set objMsg = Nothing
%>

<HR>
<script language="JavaScript">
ovhref.click()
</script>
<%
rsEmail.Close()
%>

Hope it helps...

[tt]"A Successful man is one who can build
a firm foundation with the bricks
that others throw at him"
[/tt]

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Sending a personalised email (ASP)

Jeremy74

IS-IT--Management

TonyU

Technical User

Similar threads

Part and Inventory Search

Sponsor