Gegevens van een Blad wordt niet volledig doorgemaild.

[dorlando]

Om mijn sheet "melding " via outlook te laten verzenden ,gebruikt ik de volgende marco ,alleen ik krijgt niet de volledige gegevens verstuurd.
Hoe krijgt ik de formules,waarders,enz,....... meegestuurd?


Sub werkblad_waarden_in_email()
c01 = "<table border=1 bgcolor=#FFFFF0#>"

sn = Sheets("melding").UsedRange
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>"

With CreateObject("outlook.application").CreateItem(0)
.To = "EMailadres"
.Subject = "melding"
.HTMLBody = c01
.Send
End With
End Sub