Olá, Wanderley.
Eu tenho um fonte para envio de relatórios que utiliza a classe TMailMessage. Neste fonte, a formatação do corpo da mensagem é feita com CSS declarado no Head do HTML. Veja o trecho abaixo:
// Corpo do e-mail
cHtml += '<html xmlns="http://www.w3.org/1999/xhtml">'
cHtml += '<head><title></title><meta charset="iso-8859-1">'
/*** CSS ***/
cHtml += '<style type="text/css"> '
cHtml += ' p { '
cHtml += ' font-family: "Lucida Sans Unicode", "Lucida Grande", Sans-Serif; '
cHtml += ' font-size: 18px; '
cHtml += ' text-align: left; } '
cHtml += '</style> '
cHtml += '</head>'
cHtml += '<body>'
cHtml += '<p>Relatório '+cRptName+' enviado em '+dToC(Date())+'.</p>'
cHtml += '</body></html>'
cCorpo := cHtml
//Instância a classe apra criar uma nova mensagem
oMessage := TMailMessage():New()
oMessage:Clear()
//Define os atributos da classe TMailMessage
oMessage:cFrom := cConta
oMessage:cTo := cPara
oMessage:cCc := ""
oMessage:cBcc := ""
oMessage:cSubject := cAssunto
--> oMessage:cBody := cCorpo
oMessage:MsgBodyType( "text/html" )
Eu já utilizei esse fonte com os serviços de e-mail da Office365 e Gmail. Ambos funcionaram corretamente.
Eis um exemplo do e-mail gerado:
Espero que essa contribuição tenha sido útil.
att,
Maicon Macedo