Office: Prüfen, ob Outlook installiert ist

andrehamburg · 31. Juli 2008

Hallhallo Excelaner,
ich hätte da mal wieder was. Eine Arbeitsmappe mit einem "Mail-versende-Makro". Diese Mappe wird von unterschiedlichen Leuten, auf unterschiedlichen Rechnern, mit unterschiedlichen Mailprogrammen verwendet. Mein "Mail-versende-Makro" ist aber auf Outlook geeicht, somit haben manche Leute ein Problem. daher möchte ich prüfen, ob Outlook vorhanden ist, um dann in Abhängigkeit davon unterschiedliche "Mail-versende-Makros" auszuführen. Im Forum habe ich dazu nichts gefunden. Hoffe ihr könnt mir (mal wieder) helfen.

:)

mumpel · 2. August 2008

Hallo!

Sub OutlookInstalliert()
Dim olapp As Object
Set olapp = CreateObject("Outlook.Application")
If Not olapp Is Nothing Then
MsgBox "Outlook ist installiert", vbOKOnly + vbInformation, "Hinweis"
Else
MsgBox "Outlook ist nicht installiert", vbOKOnly + vbExclamation, "Achtung"
End If
Set olapp = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code eingefügt mit Hilfe zum Programm)

Gruß, René

andrehamburg · 2. August 2008

Kurz und knapp, funktioniert. Danke!

ransi · 3. August 2008

HAllo

Ich habe OutLook definitiv noch nie installiert gehabt.
Wenn ich den Code starte kommt Laufzeitfehler 429.

Das muss man nutzen.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Function OutlookInstalliert() As Boolean
Dim olapp As Object
On Error Resume Next
Set olapp = CreateObject("Outlook.Application")
OutlookInstalliert = Err = 0
Set olapp = Nothing
End Function

ransi

Backowe · 3. August 2008

Hi,

bei mir kommt der gleiche Fehler, ich habe Outlook auch nicht installiert!

mumpel · 3. August 2008

Bei mir funktioniert der Code problemlos. Der Code stammt im Übrigen von Melanie Breden, nicht von mir.

Steffen0815 · 3. August 2008

\@Mumpel,
der Code kann (ohne Outlook) nicht funktionieren, da die Fehlerbehandlung nicht deaktiviert wird.
Falsch abgeschrieben oder Melanie Breden hat 'nen Fehler gemacht *wink.gif*. Code:

Sub OutlookInstalliert()
Dim olapp As Object
On Error Resume Next
Set olapp = CreateObject("Outlook.Application")
On Error GoTo 0
If Not olapp Is Nothing Then
MsgBox "Outlook ist installiert", vbOKOnly + vbInformation, "Hinweis"
Else
MsgBox "Outlook ist nicht installiert", vbOKOnly + vbExclamation, "Achtung"
End If
Set olapp = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wobei dieser Code problematisch sein kann, wenn Outlook offen ist und eine 2. Instanz verhindert.

Besser: Code:

Sub OutlookInstalliert()
Dim olapp As Object
On Error Resume Next
Set olapp = GetObject(, "Outlook.Application")
If olapp Is Nothing Then _
Set olapp = CreateObject("Outlook.Application")
On Error GoTo 0

If Not olapp Is Nothing Then
MsgBox "Outlook ist installiert", vbOKOnly + vbInformation, "Hinweis"
Else
MsgBox "Outlook ist nicht installiert", vbOKOnly + vbExclamation, "Achtung"
End If
Set olapp = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mumpel · 3. August 2008

Danke! Dann muss ich Melanie mal bescheid sagen. Allerdings ist das VBA-Codebook schon geschrieben. Ein Abändern ist daher erst in der Neuauflage möglich.

Aber vielleicht muss man das auch umgekehrt schreiben. Vielleicht kann das mal einer probieren.

Sub OutlookInstalliert()
Dim olapp As Object
On Error Resume Next
Set olapp = CreateObject("Outlook.Application")
If olapp Is Nothing Then
MsgBox "Outlook ist nicht installiert", vbOKOnly + vbInformation, "Hinweis"
Else
MsgBox "Outlook ist installiert", vbOKOnly + vbExclamation, "Achtung"
End If
Set olapp = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code eingefügt mit Hilfe zum Programm)

andrehamburg · 5. August 2008

Ich habe nochmal getestet. Den oben erwähnten Laufzeitfehler bekomme ich auch wenn Outlook nicht installiert ist. Daraufhin habe ich die beiden letzten Makros von Mumpel und Steffen0815 getestet. Beide funktionieren. Getestet habe ich mit Vista Home Premium 32bit/Outlook 2007 und Windows XP Pro/ohne Outlook.

bst · 6. August 2008

Abend Steffen,

Wobei dieser Code problematisch sein kann, wenn Outlook offen ist und eine 2. Instanz verhindert.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie sollte Outlook das verhindern können?

cu, Bernd

Office: Prüfen, ob Outlook installiert ist

Prüfen, ob Outlook installiert ist

Prüfen, ob Outlook installiert ist

Prüfen, ob Outlook installiert ist

Prüfen, ob Outlook installiert ist

Prüfen, ob Outlook installiert ist - Similar Threads - Prüfen Outlook installiert

Formeltext auf Bezüge/Ausdrücke prüfen

Zelle per VBA auf ihren Inhalt prüfen und reagieren sowie bei Änderung

Prüfung unterschiedlicher Zellen auf Inhalt und Konsequenz

mit String aus Formular Übereinstimmung in Abfrage prüfen

Verwenden einer Sprachausgabe zum Prüfen von Rechtschreibung und Grammatik in Outlook

Verwenden einer Sprachausgabe zum Prüfen von Rechtschreibung und Grammatik in Outlook

Prüfen, ob Outlook geöffnet ist, sonst öffnen