Событие клика по значку макроса Outlook - PullRequest
Новая
       34

Событие клика по значку макроса Outlook

0 голосов
/ 06 декабря 2018

Мне назначена подпрограмма для кнопки на ленте.Все, что он делает, это показывает форму, которую я использую, чтобы упростить некоторую обработку электронной почты, которую мне нужно сделать.Это постоянная работа в процессе, поэтому я добавил окно сообщения в инициализацию формы, спрашивая, является ли это живой или нет.Это меняет цвета и некоторые функциональные возможности, чтобы помочь моему тестированию.

Я не хочу отвечать на это окно сообщения каждый раз, когда я его использую (иногда 30 или 40 раз в день), но я все еще хочу чистый способ войти в мой режим тестирования.Я бы хотел щелкнуть по Shift или Ctrl, щелкнув значок ленты или что-то в этом роде, чтобы запустить мой режим тестирования.

Публичный сабвуфер находится в модуле, который просто показывает форму. 

Public Sub RunAutoReply()
    frmAutoReply.Show
End Sub

Есть ли способ сделать это?Я нахожусь на MS Office Pro Plus 2016.

1 Ответ

0 голосов
/ 07 декабря 2018

Я знал, что спросили, пока не прочитал комментарии к вопросу.

Это могло бы продемонстрировать концепцию. 

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
...