Outlook VBA更改邮件字体大小

我有改变邮件敏感性的代码。它确实有效，但字体大小发生了变化。代码有问题吗？Outlook VBA更改邮件字体大小

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

来源

2012-07-05 Rsmithy

（plain/RTF/HTML）中的消息格式是什么？ – 2012-07-05 18:27:40

谢谢JP。但我还有一个问题。出于某种原因，当脚本运行电子邮件字体大小更改时。这是因为剧本吗？ – Rsmithy 2012-07-05 19:34:42

@SiddharthRout我将删除评论并重新发布为答案。 – JimmyPena 2012-07-05 20:27:05

你可能想使用的，而不是.Body的.HTMLBody财产。

而且，VBA中的级联字符是&，not+。

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

来源

2012-07-05 20:27:15 JimmyPena

+ 1是用纯文本和HTML重新测试它，它工作正常:) – 2012-07-05 20:35:24

谢谢！使用'objMail.HTMLBody'后，它停止了改变消息文本 – Rsmithy 2012-07-08 11:07:49

@ user1504833的问题，很高兴听到它！现在的代码是 – JimmyPena 2012-07-09 11:04:12

Outlook VBA更改邮件字体大小

回答

相关问题