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!

Register Log in
  • Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

sending HTML mail with CDONTS 2

Status
Not open for further replies.
cantona

cantona

Technical User
May 20, 2001
121
GB
Can anyone help!

I am trying to send the contents of an access database table in the body of an email using CDONTS. However, when the email is sent only the first row of the db table is displayed. how do i move to the next record? so the table contains all the relevant records?

this is what i have been trying;


sqlString = "SELECT order_id, FROM etc...

emailRS.Open sqlString


%>
<%
Dim sMailBody

Set NewMailObj = CreateObject (&quot;CDONTS.NewMail&quot;)
NewMailObj.From = &quot;blah blah.com&quot;
NewMailObj.To = &quot;anyone&quot;
NewMailObj.Subject = &quot;New Order Received!&quot;
NewMailObj.BodyFormat = CdoBodyFormatHTML
NewMailObj.MailFormat = CdoMailFormatMime
sMailBody = sMailBody & &quot;<HTML><HEAD><TITLE>New order</TITLE></HEAD>&quot;
sMailBody = sMailBody & &quot;<BODY><TABLE width=&quot;&quot;600&quot;&quot; border=&quot;&quot;1&quot;&quot; cellpadding=&quot;&quot;4&quot;&quot; cellspacing=&quot;&quot;0&quot;&quot;>&quot;
sMailBody = sMailBody & &quot;<TR><TH>Product</TH><TH>Description</TH><TH>Quantity</TH><TH>Price</TH><TH>Order Date</TH></TR>&quot;
sMailBody = sMailBody & &quot;<tr><td>&quot; & emailRS(&quot;product_partnumber&quot;) & &quot;</td>&quot;
sMailBody = sMailBody & &quot;<td>&quot; & emailRS(&quot;product_briefdesc&quot;) & &quot;</td>&quot;
sMailBody = sMailBody & &quot;<td>&quot; & emailRS(&quot;order_quantity&quot;) & &quot;</td>&quot;
sMailBody = sMailBody & &quot;<td>&quot; & emailRS(&quot;product_price&quot;) & &quot;</td>&quot;
sMailBody = sMailBody & &quot;<td>&quot; & emailRS(&quot;order_entrydate&quot;) & &quot;</td>&quot;
sMailBody = sMailBody & &quot;</table>&quot;
NewMailObj.Body = sMailBody
NewMailObj.Send

When this is run, the email is delivered oK, but only contains the first row of products. if more than one product has been ordered, they are missing.

hope someone can help!!
 
Sort by date Sort by votes
sMailBody = sMailBody & &quot;<TR><TH>Product</TH><TH>Description</TH><TH>Quantity</TH><TH>Price</TH><TH>Order Date</TH></TR>&quot;

while not emailRS.eof
sMailBody = sMailBody & &quot;<tr><td>&quot; & emailRS(&quot;product_partnumber&quot;) & &quot;</td>&quot;
sMailBody = sMailBody & &quot;<td>&quot; & emailRS(&quot;product_briefdesc&quot;) & &quot;</td>&quot;
sMailBody = sMailBody & &quot;<td>&quot; & emailRS(&quot;order_quantity&quot;) & &quot;</td>&quot;
sMailBody = sMailBody & &quot;<td>&quot; & emailRS(&quot;product_price&quot;) & &quot;</td>&quot;
sMailBody = sMailBody & &quot;<td>&quot; & emailRS(&quot;order_entrydate&quot;) & &quot;</td></tr>&quot;
emailRS.movenext
wend

sMailBody = sMailBody & &quot;</table>&quot;
NewMailObj.Body = sMailBody
NewMailObj.Send


something along those lines.

:)
Paul Prewett
 
Upvote 0 Downvote
If you had more than one record in your recordset, wouldn't you loop through your recordset like this?

<%
sMailBody = sMailBody & &quot;<HTML><HEAD><TITLE>New order</TITLE></HEAD>&quot;
sMailBody = sMailBody & &quot;<BODY><TABLE width=&quot;&quot;600&quot;&quot; border=&quot;&quot;1&quot;&quot; cellpadding=&quot;&quot;4&quot;&quot; cellspacing=&quot;&quot;0&quot;&quot;>&quot;
sMailBody = sMailBody & &quot;<TR><TH>Product</TH><TH>Description</TH><TH>Quantity</TH><TH>Price</TH><TH>Order Date</TH></TR>&quot;
do while not emailRS.EOF
sMailBody = sMailBody & &quot;<tr><td>&quot; & emailRS(&quot;product_partnumber&quot;) & &quot;</td>&quot;
sMailBody = sMailBody & &quot;<td>&quot; & emailRS(&quot;product_briefdesc&quot;) & &quot;</td>&quot;
sMailBody = sMailBody & &quot;<td>&quot; & emailRS(&quot;order_quantity&quot;) & &quot;</td>&quot;
sMailBody = sMailBody & &quot;<td>&quot; & emailRS(&quot;product_price&quot;) & &quot;</td>&quot;
sMailBody = sMailBody & &quot;<td>&quot; & emailRS(&quot;order_entrydate&quot;) & &quot;</td>&quot;
sMailBody = sMailBody & &quot;</tr>&quot;
emailRS.MoveNext
loop
sMailBody = sMailBody & &quot;</table>&quot;
%>
 
Upvote 0 Downvote
Thank you for your help Link9 & Gamera99,

Both offerings, work perfectly well

easy when you know how eh!!

regards,

Cantona
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

leifoet
  • Locked
  • Question
How to send HTML emails with ASP classic?
Replies
0
Views
451
leifoet
leifoet
penguinspeaks
  • Locked
  • Question
write HTML code within ASP line
Replies
1
Views
466
xwb
xwb
JScannell
  • Locked
  • Question
Border issue with Google Chrome on an Android phone
Replies
0
Views
350
JScannell
JScannell
leifoet
  • Locked
  • Question
First execute an input command and only then proceed with displaying the next record of the table
Replies
0
Views
296
leifoet
leifoet
Papa Bear
  • Locked
  • Question
Sending emails using CDOSYS
Replies
0
Views
147
Papa Bear
Papa Bear

Part and Inventory Search

Sponsor

Back
Top