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
