HELP!! Problems sending email from ASP form

Diamondgirl44 · March 23rd, 2005, 02:15 PM

I have a form that displays several records that include email addresses. I would like to send to each email address the corresponding data but its not working. All the information is put in one email. How can I get it to send out one email with that reocrds' information? Below is the code for sending out the email.

<%

Dim strBody
Dim newMail
Dim oldMail

strBODY = strBODY & " Chargebacks List" & vbCrLf & vbCrLf

'================================================= ====================================
' Body of message

            strBODY = strBODY & "Item Number: " & Request.form("itemID") & vbCrLf
     strBODY = strBODY & "NAME: " & Request.form("GivenName") & vbCrLf
     strBODY = strBODY & "DATE: " & Request.form("date") & vbCrLf
            strBODY = strBODY & "Description: " & Request.form("Description") & vbCrLf
     strBODY = strBODY & "Budget#: " & Request.form("budget")& vbCrLf
     strBODY = strBODY & "Hours: " & Request.form("Hours") & vbCrLf
     strBODY = strBODY & "TOTAL DOLLARS: " & Request.form("TotalDollars") & vbCrLf
         strBODY = strBODY & "UNIT MANAGER: "& Request.form("ReportTo") & vbCrLf
         strBODY = strBODY & "UNIT MANAGER EMAIL: " & Request.form("ReportToemail") & vbCrLf

%>

<%

Dim myMail
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Chargeback Notification"
myMail.From="[email protected]"
myMail.To= Request.Form("ReportToemail")
myMail.TextBody=strBODY
myMail.Send

%>

<HTML>

<head>
<style>a {color:blue;}</style>
</head>

<table align="center" border="1" width="53%" cellspacing="0" cellpadding="0" height="52">
    <tr>
     <td width="100%" bgcolor="#FFC68C" height="10" valign="middle" align="center"><b>Confirmation</b></td>
    </tr>
    <tr>
     <td width="100%" height="40" valign="middle" align="center">Email sent successfully</td>
    </tr>
    <tr>

</tr>
<tr>
     <td width="100%" height="2" valign="middle" align="center" bgcolor="#FFC68C">
     <a href="chargeback_menu.htm">Return to menu</a></td>
    </tr>
</table>
</HTML>

om_prakash · March 24th, 2005, 01:04 AM

Looking at the code, it will send one email.
do you want to send all email address that appear in a single email?

If you want to send single mail to each email id, then u need to write a loop, which will pick data and send email.

Om Prakash

Diamondgirl44 · March 28th, 2005, 05:36 PM

Quote:

quote:Originally posted by om_prakash
Looking at the code, it will send one email.
do you want to send all email address that appear in a single email?

If you want to send single mail to each email id, then u need to write a loop, which will pick data and send email.

Om Prakash

I having a problem with creating the loop. The person to recieve the email may have more than one record of data. But for now I would be happy if the person recieved one email with one record.
Can you provide an example.

sherief · May 30th, 2005, 06:14 PM

try using split to get the loop.

example:
'using commas to separate each email address
email_address = Request.Form("ReportToemail")

'then you can use:
arrEmail = split(email_address, ",")
countEmail = cdbl(ubound(arrEmail))

Dim myMail
'the loop:

for i = 1 to countEmail
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Chargeback Notification"
myMail.From="[email protected]"
myMail.To = arrEmail(i-1)
myMail.TextBody=strBODY
myMail.Send
set myMail = nothing
next

-----
Regards,
Sherief C. Mursyidi
http://www.sherief.net - Portal of IT pros