The Data property sets or gets the content data.
Sets or returns a Variant of subtype String if the Content Type is text based (text/*) or a Variant of subtype Array of Byte if the data is binary.
The Data property cannot be set if the URL property is set.
Mail.Contents("Body").Type = "text/html"
Mail.Contents("Body").Data = "Hello<BR>What's the weather
like today?<BR>Regards,<BR>John<BR>"
Mail.Contents("Body").TransferEncoding = "quoted-printable"