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

 1224722 visiteurs

 4 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 : - Outlook
Page lue 6472 fois
Vous êtes ici :   Accueil » Est ouvert ?