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

Question

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

У меня было решение для 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.

Есть идеи?

Answer 1

Вы можете использовать это в Outlook 2010-2016:

Sub OpenForEditing()
    ActiveExplorer.Selection(1).Display
    ActiveInspector.CommandBars.ExecuteMso "EditMessage"
End Sub