Outlook VBA 更改邮件字体大小

【问题标题】：Outlook VBA changes message font sizeOutlook VBA 更改邮件字体大小
【发布时间】：2015-05-10 01:25:26
【问题描述】：

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

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

【问题讨论】：

邮件是什么格式的（plain/RTF/HTML）？
谢谢JP。但我还有一个问题。出于某种原因，当脚本运行时，电子邮件字体大小会发生变化。这是因为剧本吗？
@SiddharthRout 我将删除评论并重新发布作为答案。
这就是Tim 的意思。如果您使用.Body 并且邮件是 HTML，它将重新格式化邮件正文。

标签： vba outlook

【解决方案1】：

您可能希望使用.HTMLBody 属性而不是.Body。

另外，VBA 中的连接字符是&、not+。

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

【讨论】：

+ 1 是的，用纯文本和 HTML 重新测试了它，它工作正常 :)
谢谢！使用 'objMail.HTMLBody' 后，它停止了更改消息文本的问题
@user1504833 很高兴听到这个消息！
现在是代码。 info = "
自动文本：此消息已被标记为“机密”，请照此处理 html>"