3

メッセージの機密性を変更するコードがあります。動作しますが、フォントサイズが変わります。コードに何か問題がありますか？

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
4

1 に答える 1

4

.HTMLBodyの代わりにプロパティを使用することをお勧めします.Body。

また、VBA の連結文字は&ではなく +です。

を使用する場合は、改行を作成するため.Bodyに を使用する必要があります。vbNewLine使用する場合は、スペースを作成する.HTMLBodyなどの HTML/CSS 構文を使用する必要があります。<p></p>

于 2012-07-05T20:27:15.237 に答える