Dim Outl As Object
On Error Resume Next
Set Outl = GetObject("Outlook.Application.9")
 
If Err.Number > 0 Then
  Err.Clear 
  Set Outl = CreateObject("Outlook.Application.9")
  If Err.Number > 0 Then
    MsgBox "Outlook nicht gefunden!"
    Exit Sub
  End If
End If