Hoe kan ik afzonderlijke excelregels in één mailbestand versturen met vba?

[vvanasperen]

Hallo mensen,

De uitdaging is de volgende...
Ik wil in één mailbericht elke excelregel afzonderlijk onder elkaar versturen. Bijvoorbeeld van
het onderstaande excelbestand...

Wil ik het onderstaande emailbericht maken...

In principe weet ik wel hoe je een compleet excelbestand met behulp van VBA via een e-mail
kan versturen. Het gaat dus om het afzonderlijk onder elkaar zetten van de excelregels in een mailbericht...

Ik kom er zelf niet uit en kan heb het tot op heden ook nog nergens kunnen vinden, dus ik ben
érg benieuwd of één van jullie me verder kan helpen? Alvast bedankt!

Met vriendelijke groet,

Vincent

 

[snb]

sq=sheets(1).range("A1:D4")
for j= 1 to ubound(sq)
  for jj=1 to ubound(sq,2)
    c0=c0 & sq(j,jj) & vbcr
  next
  c0=c0 & vbcr
next

with createobject("outlook.application").createitem(0)
  .body =c0
end with

de finetuning laat ik aan jou over.

 

[vvanasperen]

Bedankt voor je reactie snb... Ben er nog niet helemaal uit, qua finetuning, maar
begrijp de achterliggende gedachte nu iig wel... Kom er dus uiteindelijk wel uit...

Nogmaals bedankt! :thumb:

Met vriendelijke groet,

Vincent