Est ouvert ?

Vérifier si Outlook est ouvert

Cocher la Référence Microsoft Outlook x.x Object Librairy

Function fIsOutlookRunning() As Boolean
    On Error Resume Next
    Dim Ol_App As Outlook.Application

    Set Ol_App = GetObject(, "Outlook.Application")
    If Ol_App Is Nothing Then
        fIsOutlookRunning = False
    Else
        fIsOutlookRunning = True
    End If
    Set Ol_App = Nothing

End Function