Les mémos
Je débute...
Visites

 987941 visiteurs

 3 visiteurs en ligne

Recherche
 
Fermer

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


Catégorie : Les mémos - Outlook
Page lue 5185 fois