VBA 宏将 Outlook 2016 消息打开为“可编辑”

VBA 宏将 Outlook 2016 消息打开为“可编辑”

我希望能够单击 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

Sue Mosher 的解决方案http://www.outlookcode.com/threads.aspx?forumid=3&messageid=31310对我来说似乎也完蛋了。这可能是因为 CommandBars 发生了变化。

有任何想法吗?

答案1

您可以在 Outlook 2010-2019/365 中使用它:

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

相关内容