Mexa em torno da propriedade HTMLBody
. Você quer uma regra que execute um script para fazer algo como:
Public Sub RemoveFont (email as MailItem)
email.HTMLBody = Replace (email.HTMLBody, "Comic Sans MS", "Calibri")
End Sub
Isso pode ser um pouco simplista, dependendo da complexidade dos e-mails, mas a essência geral está certa, eu acho.