-----------------------------------------------------------
New Message on MumbaiUserGroup
-----------------------------------------------------------
From: niyati
Message 3 in Discussion
Hi, Below is the code which I have used for the same... Running this code resulted
in sending the proper mail to the first one, but to the second member it sends 2 mails
i.e of both the users. <% cusername = request.querystring("username")
cpassword = request.querystring("password") senderemail = Request.Form("fromemail")
Dim friend(1)
friend(0) = Request.Form("friend1")
friend(1) = Request.Form("friend2")
response.write(friend(0))
response.write(friend(1))
Dim email(2)
email(0) = request.form("email1")
email(1) = request.form("email2")
response.write(email(0))
response.write(email(1))
%> <%
dim i
for i=0 to 1 Set objEMail1 = Server.CreateObject("CDONTS.NewMail")
objEMail1.To = email(i)
objEMail1.From = senderemail
objEMail1.Subject = "Friend Referaal : Debt Free Card"
strBody = strBody &
"=============================================" & vbCrLf
strBody = strBody & "Dear " & friend(i) & vbCrLf
strBody = strBody & "=============================================" & vbCrLf &
vbCrLf strBody = strBody & "I found this site and thought it might interest
you." & vbCrLf
strBody = strBody & "They have a really good Debit Card." & vbCrLf
strBody = strBody & "When you apply for credit please Put my E-mail: " &
senderemail & vbCrLf
strBody = strBody & "in reffered by field." & vbCrLf
strBody = strBody & " get points towards free merchandise for every valid
application." & vbCrLf
strBody = strBody & "Regards" & vbCrLf
strBody = strBody & "=============================================" & vbCrLf
strBody = strBody & "Sender :" & senderusername & vbCrLf & vbCrLf
strBody = strBody & "=============================================" & vbCrLf
objEMail1.Body = strBody
response.write "mail sent to" & friend(i) & " at " & email(i) & "<br>"
objEMail1.Send()
Set objEMail1 = Nothing
next
%> Thanks, Niyati
-----------------------------------------------------------
To stop getting this e-mail, or change how often it arrives, go to your E-mail
Settings.
http://groups.msn.com/mumbaiusergroup/_emailsettings.msnw
Need help? If you've forgotten your password, please go to Passport Member Services.
http://groups.msn.com/_passportredir.msnw?ppmprop=help
For other questions or feedback, go to our Contact Us page.
http://groups.msn.com/contact
If you do not want to receive future e-mail from this MSN group, or if you received
this message by mistake, please click the "Remove" link below. On the pre-addressed
e-mail message that opens, simply click "Send". Your e-mail address will be deleted
from this group's mailing list.
mailto:[EMAIL PROTECTED]
