Question

我为功能区上的按钮分配了一个子例程。它所做的只是显示一个表格，用于简化我需要做的电子邮件处理。这是一项持续不断的工作，因此我在表单的初始化中添加了一个消息框，询问此消息是否有效。这会更改颜色和某些功能以帮助我进行测试。

我不想每次使用该消息框时都会回答该消息框（一天有时30或40次），但我仍然希望有一种干净的方法进入测试模式。我想按住Shift键或Ctrl键单击功能区图标或类似的东西来触发我的测试模式。

公共子目录位于仅显示表单的模块中。

Public Sub RunAutoReply()
    frmAutoReply.Show
End Sub

有没有办法做到这一点？我正在使用MS Office Pro Plus 2016。

Answer 1

在我读完问题中的评论之前，我仍然知道要问什么。

这可以演示概念。

Option Explicit

' Choose a name almost impossible to be used elsewhere.
Public testMode_for_RunAutoReply_unique As Boolean
'

Public Sub toggle_testMode_for_RunAutoReply()

    testMode_for_RunAutoReply_unique = Not testMode_for_RunAutoReply_unique

    If testMode_for_RunAutoReply_unique = True Then
        Debug.Print "In test mode"

    Else
        Debug.Print "In live mode."

    End If

End Sub

Public Sub RunAutoReply()

    If testMode_for_RunAutoReply_unique = True Then
        Debug.Print "Safe to test."

    Else
        Debug.Print "Live!"

    End If

End Sub

Outlook宏图标单击事件

1 个答案: