En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1218319 visiteurs

 10 visiteurs en ligne

Nous contacter

Contact

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


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

Vous êtes ici :   Accueil » Est ouvert ?