Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Outlook per Makro öffnen

Outlook per Makro öffnen
Dieter
Hallo Forum,
aus einer Tabelle "Kundenkontakt" heraus soll über einen Commandbutton Outlook geöffnet werden. Eine spezielle Aktion ist zunächst nicht, aber möglicherweise später, vorgesehen, d.h. Outlook soll nur als Programm geöffnet zur Verfügung stehen und nach noch nicht definierten Aktionen wieder geschlossen werden. Ich habe dazu folgenden Code gefunden:
Sub Outl_open ()
Dim olkApp As Outlook.Application
Set olkApp = CreateObject("Outlook.Application")
End Sub

Das Makro wird auch ausgeführt, jedenfalls kommt keine Fehlermeldung, Outlook wird allerdings nicht geöffnet. (In den Verweisen des VBA-Editors ist die Outlook-Objekt-Library aktiviert.) Ich habe also irgendwas falsch gemacht oder übersehen. Kann mir jemand helfen?
Gruß Dieter
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Outlook per Makro öffnen
10.08.2009 11:49:57
mumpel
Hallo!
Mit diesem Code kannst Du Outlook nur starten, aber keine Parameter übergeben. Den Pfad zu Outlook musst Du noch anpassen.
Gruß, René
AW: Outlook per Makro öffnen
10.08.2009 12:10:35
Dieter
Hallo René,
Dankeschön für die schnelle Antwort. So funktioniert es ordentlich. Als Zusatzfrage hätte ich noch gern gewusst, wie Outlook dann sofort im Vordergrund steht?
Gruss Dieter
Anzeige
AW: Outlook per Makro öffnen
10.08.2009 12:22:49
Tino
Hallo,
versuche es mal so
Shell "OUTLOOK.EXE", vbMaximizedFocus
Gruß Tino
AW: Outlook per Makro öffnen
10.08.2009 12:41:41
Dieter
Hallo Tino,
genau das war es. Vielen Dank, ich bin richtig erleichtert.
Gruss Dieter
;
Anzeige
Anzeige

Infobox / Tutorial

Outlook per Makro öffnen


Schritt-für-Schritt-Anleitung

Um Outlook per Makro zu öffnen, kannst Du den folgenden VBA-Code verwenden. Dieser öffnet die Outlook-Anwendung, ohne dass spezifische Parameter übergeben werden:

Sub Outl_open()
    Dim olkApp As Outlook.Application
    Set olkApp = CreateObject("Outlook.Application")
End Sub
  1. VBA-Editor öffnen: Drücke ALT + F11 in Excel.
  2. Ein neues Modul erstellen: Rechtsklicke auf "VBAProject (DeinDokumentname)" und wähle "Einfügen" > "Modul".
  3. Code einfügen: Kopiere den oben genannten Code in das Modul.
  4. Makro ausführen: Drücke F5 oder gehe im Menü zu "Run" > "Run Sub/UserForm".

Falls Outlook nicht geöffnet wird, stelle sicher, dass die Outlook-Objektbibliothek in den Verweisen aktiviert ist.


Häufige Fehler und Lösungen

Fehler 1: Outlook öffnet sich nicht.

  • Lösung: Überprüfe, ob die Outlook-Objektbibliothek in den Verweisen des VBA-Editors aktiviert ist.

Fehler 2: Outlook wird nicht im Vordergrund geöffnet.

  • Lösung: Verwende den folgenden Code, um Outlook maximiert im Vordergrund zu starten:
Shell "OUTLOOK.EXE", vbMaximizedFocus

Alternative Methoden

Eine weitere Möglichkeit, Outlook zu öffnen, ist die Verwendung des Shell-Befehls:

Sub Outl_open_alternative()
    Shell "OUTLOOK.EXE", vbNormalFocus
End Sub

Dieser Befehl öffnet Outlook im normalen Fokus, ohne es maximiert anzuzeigen.


Praktische Beispiele

Hier ist ein Beispiel, wie Du einen CommandButton in einem Excel-Arbeitsblatt erstellen kannst, um Outlook zu öffnen:

  1. Füge einen CommandButton hinzu: Gehe zu "Entwicklertools" > "Einfügen" und ziehe einen CommandButton in die Arbeitsmappe.
  2. Code für den Button: Doppelklicke auf den Button und füge den folgenden Code ein:
Private Sub CommandButton1_Click()
    Shell "OUTLOOK.EXE", vbMaximizedFocus
End Sub

Wenn Du nun auf den Button klickst, öffnet sich Outlook maximiert.


Tipps für Profis

  • Parameter übergeben: Um Outlook mit bestimmten Parametern zu starten, kannst Du den Befehl Shell anpassen, um z.B. neue E-Mails oder bestimmte Ordner zu öffnen.
  • Fehlerbehandlung: Implementiere Fehlerbehandlung in Deinem VBA-Code, um mögliche Probleme beim Öffnen von Outlook zu erfassen.
On Error Resume Next
Shell "OUTLOOK.EXE", vbMaximizedFocus
If Err.Number <> 0 Then
    MsgBox "Fehler beim Öffnen von Outlook: " & Err.Description
End If

FAQ: Häufige Fragen

1. Wie kann ich Outlook mit einem bestimmten Ordner öffnen?
Du kannst den Pfad zum Ordner in den Shell-Befehl einfügen, z.B. Shell "OUTLOOK.EXE /select ""outlook:MeinOrdner""", vbNormalFocus.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der VBA-Code sollte in den meisten aktuellen Excel-Versionen funktionieren, solange Outlook installiert ist. Achte darauf, dass die entsprechenden Verweise gesetzt sind.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige