如何從 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以確保您不會殺死用戶正在使用的實例。