-----------------------------------------------------------

New Message on MumbaiUserGroup

-----------------------------------------------------------
From: niyati
Message 1 in Discussion

Hi,   I am accepting multiple email addresses from the user. And these email addresses 
I have stored in an Array. Using for next loop I tried sending this mails.   The 
problem I am facing is, it is sending one mail to the first user(this is what I want), 
two mails to the second user(which is incorrect)and so on.....   Below is my code:     
<% dim i   for i=0 to 5 
        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]

Reply via email to