' Ist Outlook installiert?
' Mögliche Rückgabewerte:
'  - Versionsnummer
'  - Leerstring, falls Outlook nicht installiert ist
Public Function OutlookAvail() As String
  ' Fehlerbehandlung aktivieren
  On Error Goto ErrHandler
 
  Dim oOutlook As Object
  Set oOutlook = CreateObject("Outlook.Application")
  OutlookAvail = oOutlook.Version
  Set oOutlook = Nothing
  On Error GoTo 0
  Exit Function
 
ErrHandler:
  OutlookAvail = ""  
End Function