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 中的连接字符是 & , not + .

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