我在ThisOutlookSession模块中有一个事件:
Public Sub Application_Quit()
Dim fso As Object
Dim rootFolder As String
Dim oFolder As Object
Dim oFile As Object
Dim filename As String
Dim fullpath As String
...Procedure...
End Sub
当触发时,它可以正常工作。但是,除非我在会话期间打开了VBE编辑器,否则不会触发Quit事件。例如,如果我打开Outlook并立即将其关闭,则_Quit事件将不会触发。如果再次打开Outlook,打开编辑器,然后关闭Outlook,则_Quit事件将按预期触发。
请参阅here,以解决类似问题-尽管我尝试了此处列出的所有内容,但均未成功。更改事件的私人/公共状态,重新启动PC,这些似乎没有任何效果。我添加了一个空白的Public _Startup事件,该事件也没有任何作用。
_ Quit事件中的特定过程是无关紧要的,我已经尝试过在其中具有一个简单的Msgbox,并且观察到相同的行为。
我在Windows 10 Enterprise的Outlook 2013中,在信任中心启用所有宏。
任何想法都将不胜感激。
Application.Quit
将不会触发。最好的办法是在最后一个可见的Explorer.Close
对象上使用Explorer
。