Question

问题很简单，但由于某些原因我很难实现。当outlook 2007关闭时，我怎样才能解雇戒烟/关闭事件？

我想在VBA中显示Yes / No msgbox，它根据outlook关闭时选择的选项执行代码。

我以为我有使用的解决方案：

Dim WithEvents myOlApp As Outlook.Application

Sub Initialize_handler()
    Set myOlApp = CreateObject("Outlook.application")
End Sub

Private Sub myOlApp_Quit()
    MsgBox "TEST"
End Sub

首先我尝试将其插入到我的模块中，但这给了我Only valid in object modules错误。然后我创建了一个新的类模块并将代码粘贴到这里（没有给出任何错误），但事件仍然不会触发。出了什么问题以及如何解决？

Answer 1

设置myOlApp = CreateObject（“Outlook.application”）

无需创建新的Outlook实例。您应该使用Outlook VBA中可用的应用程序属性。

Private Sub Application_Quit() 
  MsgBox "Goodbye, " & Application.GetNamespace("MAPI").CurrentUser  
End Sub

查看MSDN中的Getting Started with VBA in Outlook 2010文章。

如何调用outlook 2007 VBA中的退出/关闭事件

1 个答案: