如何从MS Access使用VBA关闭Outlook

Question

我想在创建约会之前关闭Outlook。只有在Outlook关闭时才能创建我的约会。因此，我想关闭/退出Outlook，以便用户不必这样做。如何使用MS Access中的VBA关闭Outlook？

Private Sub Command0_Click()

  Dim olApp As Outlook.Application
  Dim olApt As AppointmentItem

  Set olApp = New Outlook.Application
  Set olApt = olApp.CreateItem(olAppointmentItem)

    With olApt
    End With
   End If

  Set olApt = Nothing
  Set olApp = Nothing
ExitProc:
Exit Sub

Answer 1

调用olApt.Quit方法。

您可能要检查Application.Explorers.Count = 0和Application.Inspectors.Count = 0，以确保您不会杀死用户正在使用的实例。