Makro zur Outlookprüfung funktioniert nicht
Holger
Unten stehendes Makro benutze ich, um zu überprüfen ob Outlook offen ist.
Anscheinend überprüft es aber nur, ob Outlook installiert, nicht ob es auch
tatsächlich geöffnet ist. Denn wenn ich Outlook schliesse und das makro laufen lasse,
liefert es TRUE zurück.
Wo liegt der Fehler?
Function CheckOutApp() As Boolean
Dim OutApp As Object
On Error Resume Next
Set OutApp = GetObject(, "Outlook.Application")
If OutApp Is Nothing Then
Set OutApp = CreateObject("Outlook.Application")
End If
On Error GoTo 0
If OutApp Is Nothing Then
CheckOutApp = False
Else
CheckOutApp = True
End If
End Function
Anzeige