C'est bon j'ai trouvé...
Code :
- Function OutlookOuvert() As Boolean
- Dim oOL As Object
- On Error Resume Next
- Set oOL = GetObject(, "Outlook.Application" )
- On Error GoTo 0
- OutlookOuvert = Not (oOL Is Nothing)
- Set oOL = Nothing
- End Function
|
Source : Developpez.com
A+
Message édité par galopin01 le 18-01-2011 à 02:31:41