macro VBA para abrir a mensagem do Outlook 2016 como “editável”

Question

Gostaria de poder clicar em um atalho do QAT para executar uma macro que abre a mensagem atual do Outlook no modo editável. E insere o texto "[Editado]" para que eu possa ver que foi.

Eu tive uma solução para o Outlook 2013 (ou possivelmente 2010) que não funciona mais:

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

A solução de Sue Mosher no link também parece uma lacuna (para mim). Isso pode ser devido a alterações no CommandBars.

Alguma idéia?

    

Answer 1

Você pode usar isso no Outlook 2010-2016:

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