[Resolvido]Envio de e-mail formato HTML

Pessoal,

Adaptei a minha necessidade este código de envio de e-mail. Está funcionando perfeitamente, só gostaria de uma ajuda para definir que a mensagem seja criada no formato HTML.

Código:

Private Sub btSend_Click()
Dim strDestinatarios
Dim strTitulo
Dim strMensagemCorpoDoEmail
  
   strDestinatarios = EMAIL
   strTitulo = "Atualização de Licença de Uso"
   strMensagemCorpoDoEmail = "Segue chave de liberação de sua Licença de Uso." & Chr(13) & Chr(13) & "Sistema: " & txtSistema & " - " & txtVersao & "" & Chr(13) & Chr(13) & "Chave de Liberação: " & LICATUAL & "" & Chr(13) & Chr(13) & "Validade: " & LICMES & "/" & Format((LICINI), "yyyy")
  
On Error Resume Next
   DoCmd.SendObject , , , strDestinatarios, _
   , , strTitulo, strMensagemCorpoDoEmail, True, False
  
rst.Close
End Sub

Agradeço desde já pela atenção.


Abraços,

Pessoal,

Resolvido. Adaptei um outro código do mestre JPaulo a minha necessidade.

Ficou assim:

Código:

On Error Resume Next
If IsNull(Me.EMAIL) Or Me.EMAIL = "" Then
MsgBox "Cliente não possui e-mail cadastrado, a chave de liberação deverá ser informada por telefone", vbInformation, "G9 v1.0"
DoCmd.CancelEvent
Else
Dim Origem As String, Caminho(4) As String, pula As String
    Origem = GetPathPart
    pula = Chr(10) & Chr(13)
    Call InitializeOutlook
    Set objNewMail = gOLApp.CreateItem(olMailItem)
With objNewMail
    .To = Me.EMAIL
    .HTMLBody = "<font size=3><font color=#0000FF><font face=tahoma>Caro Cliente: <b>" & Me.RAZ_SOCIAL & "</b><br><br>Segue chave de liberação de sua Licença de Uso.<br><br>Sistema: <b>" & txtSistema & " - " & txtVersao & "</b><br><br>Chave de Liberação: <b>" & LICATUAL & "</b><br><br>Validade: <b>" & LICMES & "/" & Format((LICINI), "yyyy") & "</b><br><br><br><br> Atenciosamente, <br><br><br><br> Suporte Infotec</font></font></font>"
    .Subject = "Atualização de Licença de Uso"
    .Send
End With
    MsgBox "enviado com sucesso.", vbInformation, "G9 v1.0"
End If

Abraços,