Microsoft VBA Get Existing Outlook Instance

Sub Get_Existing_Outlook_Instance()
  Dim objOutlook As Outlook.Application
  ' Gets the existing instance (if Outlook is already open) regardless of early or late binding
  On Error Resume Next
  Set objOutlook = GetObject(, "Outlook.Application")
  If objOutlook Is Nothing Then
      Debug.Print "Outlook is not open, getting a new instance"
      Set objOutlook = New Outlook.Application
  End If
  Set objOutlook = Nothing
End Sub