Send to a friend with multiple email addresses

aamaker · Oct 26, 2003

Im trying to figure out a way to develop a send to a friend page that will allow the user to enter (into separate input fields) up to 10 email addresses of their friends, then send an email message (using CDONTS) with a pre-defined message to each of the recipient addresses (with each being addressed individually to that user).

What would the asp for that need to look like...specifically, the idea of somehow looping through for each address entered.

Im trying to learn asp and this one has me stumped.

Can someone show me some rough example of this in ASP?

-- Thanks for any light you can shed on this for me

DrDecoy · Oct 26, 2003

Ok, here is an already done tell a friend, you can make the present message as the text box just turn its type into a "hidden" and it won't show so they can't edit it, and i would loop it like your saying. If you need more help with it i can try making it for you.

http://www.asp101.com/samples/tell_a_friend.asp

aamaker · Oct 26, 2003

I have the form submitting up to 10 text input fields (named FriendAddress_1 through FriendAddress_10)...

Im using an incremental integer to move from address to address... kind of like this:
while...
email_i=1
while email_i <=10

...wend

... then Im trying to say

if EMAILADDRESSVAR & email_i <> "" Then

<<CDONTS code to send email message here >>

End If

Somethings not working though... can you show me how you'd handle the loopint element? Thanks for your help!

Kendel · Oct 27, 2003

You can name 10 textbox with samename, different id.
Then you go through the loop and assign each strTo with an address, then call the Send Mail function. Something like:

For i = 0 to 9
strTo = txtTo(i)
Call SendEmail(strTo,strSubject,strBody)
Next

aamaker · Oct 27, 2003

I think I see what you mean, can you take your example a step further - the mailing routine, I have - dont worry about that, but the idea of same field names with diff variables and then looping through - can you illustrate that using the method you mention in your post?

Thanks for your help.

Kendel · Oct 27, 2003

Ok, here you go:

'name the textbox like this:
<% For i = 0 to 2 %>
<tr>
<td>To:  </td>
<td><input type="text" name="strTo<%=i%>"></td>
</tr>
<%Next%>

'and then send email like this:
<%
For i = 0 to 2
strTo = Request("strTo"&i&"&quot

Call SendMessage(strFrom, strTo, strSubject, strBody)
Next
%>

aamaker · Oct 27, 2003

Im going mad trying to figure this out...

here is the code for the page im working on... can you use this to show me how/where the loop/sub elements go...

-- Thanks

<html>
<body>

<%
If request.querystring("state&quot

= "" Then
%>
<form action="sendtofriends.asp?state=send" method="post">
<TABLE width="516" border=0 cellPadding=2 cellSpacing=3>
<TR>
<TD width="26%"><FONT face="Arial, Helvetica, sans-serif" size=2>Your
First Name* </FONT></TD>
<TD width="74%" vAlign=top><INPUT name=FIRST_NAME size="30">
</TD>
</TR>
<TR>
<TD><FONT face="Arial, Helvetica, sans-serif" size=2>Your
Last Name*</FONT></TD>
<TD><INPUT name=LAST_NAME size="30"> </TD>
</TR>
<TR>
<TD><FONT face="Arial, Helvetica, sans-serif" size=2>Your
eMail Address*</FONT></TD>
<TD><INPUT name=EMAIL_ADDRESS size="30"> </TD>
</TR>
<TR>
<TD colSpan=2><BR> <B><FONT face="Arial, Helvetica, sans-serif" size=3>eMail
To: </FONT></B><FONT face="Arial, Helvetica, sans-serif" size=2><I>(Fill
in your friends' eMail addresses below.)</I></FONT></TD>
</TR>
<TR>
<TD colSpan=2>

<% For i = 0 to 9 %>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<br />
<TR>
<TD width="16" class="reflabel"><div align="right">1</div></TD>
<TD width="192"> <INPUT size=30 name="FRIEND_EMAIL" id="1">
</TD>
<TD width="16" class="reflabel"><div align="right">6</div></TD>
<TD width="181"> <DIV align=right>
<INPUT size=30 name="FRIEND_EMAIL" id="6">
</DIV></TD>
</TR>
<TR>
<TD class="reflabel"><div align="right">2</div></TD>
<TD> <INPUT size=30 name="FRIEND_EMAIL" id="2"> </TD>
<TD class="reflabel"><div align="right">7</div></TD>
<TD> <DIV align=right>
<INPUT size=30 name="FRIEND_EMAIL" id="7">
</DIV></TD>
</TR>
<TR>
<TD class="reflabel"><div align="right">3</div></TD>
<TD> <INPUT size=30 name="FRIEND_EMAIL" id="3"> </TD>
<TD class="reflabel"><div align="right">8</div></TD>
<TD> <DIV align=right>
<INPUT size=30 name="FRIEND_EMAIL" id="8">
</DIV></TD>
</TR>
<TR>
<TD class="reflabel"><div align="right">4</div></TD>
<TD> <INPUT size=30 name="FRIEND_EMAIL" id="4"> </TD>
<TD class="reflabel"><div align="right">9</div></TD>
<TD> <DIV align=right>
<INPUT size=30 name="FRIEND_EMAIL" id="9">
</DIV></TD>
</TR>
<TR>
<TD class="reflabel"><div align="right">5</div></TD>
<TD> <INPUT size=30 name="FRIEND_EMAIL" id="5"> </TD>
<TD class="reflabel"><div align="right">10</div></TD>
<TD> <DIV align=right>

<INPUT size=30 name="FRIEND_EMAIL" id="10">
</DIV></TD>
</TR>
</TABLE>

<%Next%>

</TD>
</TR>
<TR>
<TD></TD>
<TD><input type="submit" name="Sendtofriend" value="Send This Message >>"></TD>
</TR>
</TABLE>

</form>
<% End If %>

<%
If request.querystring("state&quot

= "send" Then

Dim sendername, senderemail, theToAddress, sendermessage

sendername = request.form("First_Name&quot

& request.form("Last_Name&quot

senderemail = request.form("Email_Address&quot

theToAddress = request.form("Friend_Email&quot

sendermessage = senderemail & " enjoyed reading about Our Latest Projects,and thought you would like to receive a copy as well." &vbcrlf & vbcrlf & "If you would like to continue to receive copies of our enewsletter, click the subscribe link below and you will receive these directly in your email box in the future!"

Dim MyBody
Dim MyCDONTSMail

Set MyCDONTSMail = CreateObject("CDONTS.NewMail&quot

MyCDONTSMail.From= "" & senderemail
MyCDONTSMail.Subject= "Thought you'd find this E-Newsletter Interesting! From " & senderemail
MyBody = sendermessage & vbCrLf & vbCrLf
MyBody = MyBody & "_______________________________________________________________" & vbcrlf
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
Response.write("All done now!&quot

End If %>

</body>
</html>

Kendel · Oct 27, 2003

Hey aamaker,

When I said "same name, different id" I didn't mean:

<INPUT size=30 name="FRIEND_EMAIL" id="1">

What I meant was :
<INPUT size=30 name="FRIEND_EMAIL"&i&"">

Sorry if I confused you. You need to put the email part in a function then call this function with theToAddress parameter.

Anyways, here is the code you need. I just tested it myself. It works great. Let me know how it work.

Good luck.

<%
If request.querystring("state&quot

= "" Then
%>
<form action="emailafriend.asp" method="post">
<TABLE width="516" border=0 cellPadding=2 cellSpacing=3>
<TR>
<TD width="26%"><FONT face="Arial, Helvetica, sans-serif" size=2>Your
First Name* </FONT></TD>
<TD width="74%" vAlign=top><INPUT name=FIRST_NAME size="30">
</TD>
</TR>
<TR>
<TD><FONT face="Arial, Helvetica, sans-serif" size=2>Your
Last Name*</FONT></TD>
<TD><INPUT name=LAST_NAME size="30"> </TD>
</TR>
<TR>
<TD><FONT face="Arial, Helvetica, sans-serif" size=2>Your
eMail Address*</FONT></TD>
<TD><INPUT name=EMAIL_ADDRESS size="30"> </TD>
</TR>
<TR>
<TD colSpan=2><BR> <B><FONT face="Arial, Helvetica, sans-serif" size=3>eMail
To: </FONT></B><FONT face="Arial, Helvetica, sans-serif" size=2><I>(Fill
in your friends' eMail addresses below.)</I></FONT></TD>
</TR>
<TR>
<TD colSpan=2>

<TABLE cellSpacing=0 cellPadding=0 border=0>
<br />
<% For i = 1 to 5 %>
<TR>
<TD width="16" class="reflabel"><div align="right"><%=i%></div></TD>
<TD width="192"> <INPUT size=30 name="FRIEND_EMAIL<%=i%>">
</TD>
<% k = i + 5 %>
<TD width="16" class="reflabel"><div align="right"><%=k%></div></TD>
<TD width="181"> <DIV align=right>
<INPUT size=30 name="FRIEND_EMAIL<%=k%>">
</DIV></TD>
</TR>
<%Next%>
</TABLE>

</TD>
</TR>
<TR>
<TD></TD>
<TD><input type="submit" name="Sendtofriend" value="Send This Message >>"></TD>
</TR>
</TABLE>

</form>
<% End If %>

<%
If request.querystring("state&quot

= "send" Then

Dim theToAddress
For i = 1 to 10
theToAddress = request.form("Friend_Email"&i&"&quot

Call SendEmail(sendername, senderemail, theToAddress, sendermessage)
Next

Function SendEmail(sendername, senderemail, theToAddress, sendermessage)
Dim MyBody
Dim MyCDONTSMail
sendername = request.form("First_Name&quot

& request.form("Last_Name&quot

senderemail = request.form("Email_Address&quot

sendermessage = senderemail & " enjoyed reading about Our Latest Projects,and thought you would like to receive a copy as well." &vbcrlf & vbcrlf & "If you would like to continue to receive copies of our enewsletter, click the subscribe link below and you will receive these directly in your email box in the future!"

Set MyCDONTSMail = CreateObject("CDONTS.NewMail&quot

MyCDONTSMail.From= senderemail
MyCDONTSMail.To = theToAddress
MyCDONTSMail.Subject= "Thought you'd find this E-Newsletter Interesting! From " & senderemail
MyBody = sendermessage & vbCrLf & vbCrLf
MyBody = MyBody & "_______________________________________________________________" & vbcrlf
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
'Response.Write senderemail
'Response.Write sendername
'Response.Write sendermessage
Response.Write theToAddress
%><BR><%
End Function

aamaker · Oct 27, 2003

Thanks... Now I see what you meant...

Quick question... while you were working on that I WAS able to get something to work on my end. Its nothing like the solution you put together (which I think is more solid)...

Can you take a look at the following and point out to me where, if any, any flaws exist that would make my version not the optimal solution?

...(I have the input fields named Friend_Email1 through Friend_Email10)...

And the routine like this:

<%
If request.querystring("state&quot

= "send" Then
Dim sendername, senderemail, theToAddress, sendermessage

sendername = request.form("First_Name&quot

&" "& request.form("Last_Name&quot

senderemail = request.form("Email_Address&quot

sendermessage = senderemail & " enjoyed reading about Our Latest Projects,and thought you would like to receive a copy as well." &vbcrlf & vbcrlf & "If you would like to continue to receive copies of our enewsletter, click the subscribe link below and you will receive these directly in your email box in the future!"

For i = 0 to 9

if request.form("Friend_Email"&(i)) <> "" Then
theToAddress = request.form("Friend_Email"&(i))
call TheMailer
End If
Next

Response.end

Sub THEMAILER
' Dim MyBody
'Dim MyCDONTSMail

Set MyCDONTSMail = CreateObject("CDONTS.NewMail&quot

MyCDONTSMail.From= "" & senderemail
MyCDONTSMail.To= theToAddress
MyCDONTSMail.Subject= "Thought you'd find this E-Newsletter Interesting! From " & senderemail
MyBody = sendermessage
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
Response.write("sent &quot

& theToAddress & "<br>"
End Sub

End If %>

Kendel · Oct 27, 2003

Well, yours is just fine. Using the loop to create the email textboxes will make your code shorter & easier to read. Oh, I didn't check if the email address is empty or not. Yourloop should go from 1 to 10 because you name ur controls from 1 to 10.

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!

Send to a friend with multiple email addresses

aamaker

Programmer

DrDecoy

Programmer

aamaker

Programmer

Kendel

Programmer

aamaker

Programmer

Kendel

Programmer

aamaker

Programmer

Kendel

Programmer

aamaker

Programmer

Kendel

Programmer

Similar threads

Part and Inventory Search

Sponsor