Макрос VBA, чтобы открыть сообщение Outlook 2016 Как " редактируемые"

Я хотел бы быть в состоянии нажать ярлык QAT для запуска макроса, который открывает текущее сообщение Outlook в редактируемом режиме. И вставляет текст "[Edited]", чтобы я мог видеть, что это было.

У меня было решение для Outlook 2013 (или, возможно, 2010), которое больше не работает:

Sub OpenForEditing()
    Dim olkMessage As Outlook.MailItem, _
        ofcCB As Object, _
        ofcCBB As Object, _
        olkInsp As Outlook.Inspector
    Set olkMessage = Application.ActiveExplorer.Selection(1)
    olkMessage.Display
    Set olkInsp = Application.ActiveInspector
    Set ofcCB = olkInsp.CommandBars("Edit")
    Set ofcCBB = ofcCB.Controls("Edit Message")
    ofcCBB.Execute
    Set ofcCBB = Nothing
    Set ofcCB = Nothing
    Set olkMessage = Nothing
End Sub

решение Сью Мошер вhttp://www.outlookcode.com/threads.aspx?forumid=3&messageid=31310 также кажется капут (для меня). Это может быть из-за CommandBars изменения.

какие идеи?