Vbscript 最近更改了邮件格式'；outlook中的s邮箱

我用vbscript编写了一些代码，可以使用outlook自动向最近的用户发送邮件，一切正常，但我只有一个问题，我为邮件正文选择的格式在收件人的邮箱中发生了更改。我使用了

字体颜色-蓝色和font-face-calibri，但它被更改为没有任何颜色的Times new roman

有解决办法吗

Set MyApp = CreateObject("Outlook.Application")
    Set MyItem = MyApp.CreateItem(0) 'olMailItem
    With MyItem
            .To = "abc@com"
            .Subject = ""
            .ReadReceiptRequested = False

            .HTMLBody = "<font size='3' face='Calibri' color='#151B54'>Hi,Whatever written here got changed into plain text.<font>"




            .Attachments.Add "C:\Excels\"& objFso.GetFileName(objFile.path)
    End With
    MyItem.Display
    End if

Set MyApp=CreateObject（“Outlook.Application”）
设置MyItem=MyApp.CreateItem（0）'olMailItem
使用MyItem
.To=”abc@com"
.Subject=“”
.ReadReceiptRequested=False
.HTMLBody=“嗨，这里写的东西都变成了纯文本。”
.Attachments.Add“C:\Excels\”和objFso.GetFileName（objFile.path）
以
MyItem.Display
如果结束

---

或者，对于已发送的邮件，outlook中是否有任何设置需要更改？

这对我来说非常合适：

MailItem sendMail = Globals.ThisAddIn.Application.CreateItem(OlItemType.olMailItem);
        sendMail.Subject = "test";
        sendMail.To = SenderName; //or email
        sendMail.HTMLBody = "<font size='50' face='Verdana' color='#ff0000'>Hi,Whatever written here got changed into plain text.<font>";
        sendMail.Send();

MailItem sendMail=Globals.ThisAddIn.Application.CreateItem（OlItemType.olMailItem）；
sendMail.Subject=“test”；
sendMail.To=SenderName//或电子邮件
sendMail.HTMLBody=“嗨，这里写的东西都变成了纯文本。”；
sendMail.Send（）；

当我把这封信寄给我自己时，我收到了一封用verdana写的红色大短信

请注意，这是c#，因此我不确定它是否对您有帮助

编辑：

还有一件事：font size='3'对我也不起作用。因为它太小了，不能很好地展示