Office: (Office 2010) Prüfen, ob Outlook geöffnet ist, sonst öffnen

BIGinner · 14. April 2015

Aloha,

mein Wunsch ist es, zu überprüfen, ob Outlook geöffnet ist.

Wenn das nicht der Fall ist, soll Outlook geöffnet werden.

Ich habe schon folgenden Code, der aber nicht funktioniert, aber vielleicht im Ansatz korrekt ist:

Code:

Sub test()
Dim oApp As Outlook.Application

Set oApp = GetObject(, "Outlook.Application")

If Err.Number = 0 Then
MsgBox "Outlook ist offen"
Else
Set oApp = New Outlook.Application
End If

'Set oApp = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dieser Code funktioniert, solange Outlook offen ist *confused.gif*

Outlook soll danach auf jeden Fall offen bleiben, daher bin ich mir nicht sicher, ob ich "set oApp = Nothing" wieder einkommentieren sollte.

Danke für Eure Hilfe.
Gruß
René

:)

EarlFred · 16. April 2015

Hallo René,

Ich habe schon folgenden Code, der aber nicht funktioniert
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kann man das genauer formulieren?

Zeigt sich das "Nichtfunktionieren" etwa durch die Fehlermeldung
"Fehler 429: Objekterstellung durch ActiveX-Komponente nicht möglich"?
beim Durchlaufen dieser Zeile
Set oApp = GetObject(, "Outlook.Application")?

Code:

Option Explicit
Sub test()
Dim oApp As Outlook.Application

On Error Resume Next
Set oApp = GetObject(, "Outlook.Application")

If Err.Number = 0 Then
MsgBox "Outlook ist offen"
Else
Set oApp = New Outlook.Application
End If
On Error GoTo 0

Set oApp = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

Kimba06 · 16. April 2015

Hallo Rene,
versuch mal folgendes Code:

Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.To = strEMailAdresse
'Betreff
.Subject = Betreff
'Nachricht
.Body = Body
'Lesebestätigung aus
.ReadReceiptRequested = True
'Dateianhang
.Attachments.Add Pfad'"Y:\Uli\AvisE-Mail\" & Name & ".pdf"
.display
End With
Set olApp = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Öffnet Dir Outlook und kreiert eine neue Mail
Gruß Achim

Kimba06 · 16. April 2015

Hallo Rene,
versuch mal folgendes Code:

Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.To = strEMailAdresse
'Betreff
.Subject = Betreff
'Nachricht
.Body = Body
'Lesebestätigung aus
.ReadReceiptRequested = True
'Dateianhang
.Attachments.Add Pfad'"Y:Pfad".pdf"
.display
End With
Set olApp = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Öffnet Dir Outlook und kreiert eine neue Mail
Gruß Achim

Kimba06 · 16. April 2015

Sorry für den Doppeleintrag.
Wollte eigentlich nur etwas ändern!

BIGinner · 16. April 2015

Vielen Dank Kimba. Das ist mir jedoch schon zu viel. Diesen Code nutze ich an anderer Stelle. Er funktioniert auch auf meinem Rechner einwandfrei. Ich bekomme ihn nur nicht in einer Terminalsitzung zum laufen. Daher muss ich zuerst fragen, ob Outlook offen ist.

Hallo EarlFred,

wenn Outlook nicht geöffnet ist, erhalte ich den von Dir beschriebenen Fehler an der von Dir genannten Stelle. Ich freue mich schon über eine weitere Antwort von Dir *Smilie

Gruß René

EarlFred · 16. April 2015

Hallo René,

Ich freue mich schon über eine weitere Antwort von Dir
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Antwort auf welche Frage denn?

Dein Problem dürfte ja wohl mit meinem vorstehenden Vorschlag vom Tisch sein.

Grüße
EarlFred

haklesoft · 16. April 2015

Hallo René,

probier es mal so: Code:

Option Explicit

Sub test()
Dim oApp As Object '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

BIGinner · 16. April 2015

Danke Euch für die schnellen Antworten.

Sorry EarlFred, hab die Lösung nicht direkt als solche wahrgenommen. Funktioniert ausgezeichnet.

Gruß René

Office: (Office 2010) Prüfen, ob Outlook geöffnet ist, sonst öffnen

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

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

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

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

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

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

Wartungstermine prüfen und ausgeben

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 installiert ist