Hallo
Ik heb een macro om vanuit excel een mail te sturen ( onderstaand is de code om een range in de body van de mail te plaatsen ).
Werkt perfect.
Maar ik heb enkele problemen met de "layout" in de mail.
Cijfers zijn links gealinieerd en ik zou deze graag rechts hebben.
De kolombreedte wordt ook gewijzigd.
Kan mij iemand de VBA code geven om de "formatering" zoals deze in het werkblad is gemaakt, mee in de mail te plaatsen ?
'
c01 = "<table border=1 bgcolor=#FFFFF0#>"
sn = Sheets("Blad1").Range(B10, E25)
For j = 1 To UBound(sn)
c01 = c01 & "<tr><td>" & Join(Application.Index(sn, j), "</td><td>") & "</td></tr>"
Next
c01 = c01 & "</table><P></P><P></P>"
.HTMLBody = “Begin” & c01 & “Einde”
.Display
End With
Ik heb een macro om vanuit excel een mail te sturen ( onderstaand is de code om een range in de body van de mail te plaatsen ).
Werkt perfect.
Maar ik heb enkele problemen met de "layout" in de mail.
Cijfers zijn links gealinieerd en ik zou deze graag rechts hebben.
De kolombreedte wordt ook gewijzigd.
Kan mij iemand de VBA code geven om de "formatering" zoals deze in het werkblad is gemaakt, mee in de mail te plaatsen ?
'
c01 = "<table border=1 bgcolor=#FFFFF0#>"
sn = Sheets("Blad1").Range(B10, E25)
For j = 1 To UBound(sn)
c01 = c01 & "<tr><td>" & Join(Application.Index(sn, j), "</td><td>") & "</td></tr>"
Next
c01 = c01 & "</table><P></P><P></P>"
.HTMLBody = “Begin” & c01 & “Einde”
.Display
End With