vba - Outlook VBA 更改邮件字体大小

Question

我有改变消息敏感度的代码。它确实有效，但字体大小发生了变化。代码有问题吗？

Public Sub MakeThisConfidential()
    Application.ActiveInspector.CurrentItem.Sensitivity = olConfidential
    Application.ActiveInspector.CurrentItem.Save
    Set MsgSub = Outlook.Application.ActiveInspector.CurrentItem
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Subject = MsgSub.Subject
    MsgSub.Subject = Subject & " - [CONFIDENTIAL]"
    email = objMail.Body
    info = vbNewLine & "AUTO TEXT: This message has been marked as 'CONFIDENTIAL' please treat it as such"
    objMail.Body = email & info
End Sub

Answer 1

您可能想使用该.HTMLBody属性而不是.Body.

此外，VBA 中的连接字符是&，而不是 +。

如果使用.Body，您将需要使用vbNewLine来创建换行符。如果使用.HTMLBody，您将需要使用 HTML/CSS 语法，例如<p></p>创建空间。