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

 996164 visiteurs

 4 visiteurs en ligne

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 5265 fois