Mudar Fonte Email Automático

Olá Galera!
Estou gerando alguns emails pelo progress automático, mas precisava alterar a fonte no corpo do email, alguém sabe como posso fazer isto?
Veja meu modelo abaixo, o p-text é o corpo do email que eu gostaria de mudar a fonte:

Código:

    DEF VAR p-subject as character no-undo. 
    DEF VAR p-text as character no-undo. 
    DEF VAR p-name as character no-undo. 
    DEF VAR p-anexo as character no-undo.  

     p-subject = "MARCAÇÕES PONTO " + 
                 STRING(TODAY - 1, '99/99/99'). 

     p-text = "MARCAÇÕES PONTO (SYSTRAC) PARA CONFRENCIA COM CARTÃO MANUAL" +
              STRING(TEXTO.texto1) +
              'Abaixo Marcações do dia ' + STRING(TODAY - 1, '99/99/99') + 
              ' 06:01 Até ' + STRING(TODAY, '99/99/99') + ' 06:00' + 
              STRING(TEXTO.texto1) +
              STRING(TEXTO.texto1) +
              i-marca +
              STRING(TEXTO.texto1) +
              STRING(TEXTO.texto1) +
              STRING(TEXTO.texto1) +
              'Atenciosamente,' +
              STRING(TEXTO.texto1) +
              STRING(TEXTO.texto1) +
              '___________________________________' + 
              STRING(TEXTO.texto1) +
              'Controle de Frotas On-Line' +
              STRING(TEXTO.texto1) +
              'DFResmer Sistemas'.
         
            p-name = 'dfresmersistemas@yahoo.com.br'. 
            RUN send-mail(p-subject,p-text, p-name,p-anexo). 
           
           p-text = ''.

PROCEDURE send-mail.
define input parameter p-subject as character no-undo. 
define input parameter p-text as character no-undo. 
define input parameter p-name as character no-undo. 
define input parameter p-anexo as character no-undo. 

define variable chNameSpace as com-handle no-undo. 
define variable chOutlook as com-handle no-undo. 
define variable chFolder as com-handle no-undo. 

create "Outlook.application" chOutlook. 

assign chNameSpace = chOutlook:GetNameSpace("MAPI":U) 
chFolder = chNameSpace:GetDefaultFolder(6). 

do: 
define variable v_chMailItem as com-handle no-undo. 
define variable v_chMailAttachments as com-handle no-undo. 

assign v_chMailItem = chFolder:Items:Add() 
v_chMailItem:To = p-name 
v_chMailItem:Subject = p-subject 
v_chMailItem:Body = p-text. 

/*assign v_chMailAttachments = v_chMailItem:Attachments:Add(p-anexo,1,1,"Mat0413.log":U). */

v_chMailItem:Send(). 
release object v_chMailItem no-error. 
release object v_chMailAttachments no-error. 
end. 

release object chFolder no-error. 
release object chNameSpace no-error. 
release object chOutlook no-error.
END PROCEDURE.

Se seu e-mail é em formato HTML, você pode montar o HTML do corpo do e-mail, exemplo:

Código:

p-text = "<p><span><font face=Calibri><b>MARCAÇÕES PONTO (SYSTRAC) PARA CONFRENCIA COM CARTÃO MANUAL</b></font></span></p>" +
"<p><span><font face=Calibri>" +
              STRING(TEXTO.texto1) +
              'Abaixo Marcações do dia ' + STRING(TODAY - 1, '99/99/99') +
              ' 06:01 Até ' + STRING(TODAY, '99/99/99') + ' 06:00' +
              STRING(TEXTO.texto1) +
              STRING(TEXTO.texto1) +
              i-marca +
              STRING(TEXTO.texto1) +
              STRING(TEXTO.texto1) +
              STRING(TEXTO.texto1) +
              'Atenciosamente,' +
              STRING(TEXTO.texto1) +
              STRING(TEXTO.texto1) +
              '___________________________________' +
              STRING(TEXTO.texto1) +
              'Controle de Frotas On-Line' +
              STRING(TEXTO.texto1) +
              'DFResmer Sistemas' +
"</font></span></p>".

Para enviar no formato HTML:

Código:

v_chMailItem:HTMLBody = p-text. 

valeu galera, deu certo.

Obrigado!