Outlook Mail öffnen

Forumthread: Outlook Mail öffnen

Outlook Mail öffnen

12.01.2023 11:41:33

Peter

Hallo miteinander
Habe in Outlook ein VBA geschrieben, dass alle Offerten automatisch auch auf dem C:\.... Laufwerk zur späteren Analyse speichert.
Bei diesem Download werden auch die Namen der *msg Dateien automatisch umbenannt und u.a. auch mit der Offertnummer versehen.
So sieht z.B. ein Dateiname aus: "SPOT_148596699_CHE123456789_ExpDE_1Pal.msg"
Über Powerquery werden diese Dateinamen dann ins Excel hochgeladen und in Spalten unterteilt.
Ich möchte jetzt, dass in Excel mittels Doppelklick auf die gesuchte Offertnummer (in obigem Beispiel 148596699) sich das Mail in Outlook öffnet.
Also der gleiche Effekt als wenn man im Explorer mit Doppelklick auf der entsprechende Datei in Outlook die Datei angezeigt bekommt.
Leider blieben alle meine Bemühungen erfolglos: Hier ein Beispiel einer meiner vielen Ansätze:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Offertnummer As String
Dim Pfad As String
Dim Dateiname As String
Offertnummer = Target.Value
Pfad = "XXX\"
'Dateiname = Dir(Pfad & "*" & Offertnummer & "*.msg")
'If Dateiname "" Then
Application.Workbooks.Open Pfad & Dateiname ' geht logischerweise nicht!!!
' Application.GetOpenFilename Pfad & Dateiname ' geht nicht'
End if
Währe froh, wenn mir da jemand "auf die Sprünge" helfen könnte.
Vielen Dank Peter

Nach dem Upload der Dateinamen in Excel

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Outlook Mail öffnen

12.01.2023 14:16:11

ChrisL
AW: Outlook Mail öffnen

08.02.2023 14:26:06

Peter

AW: Outlook Mail öffnen

12.01.2023 14:16:11

ChrisL


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveWorkbook.FollowHyperlink ("C:\Pfad\SPOT_" & Target.Text & "_CHE123456789_ExpDE_1Pal.msg")
Cancel = True
End Sub

cu
Chris

AW: Outlook Mail öffnen

08.02.2023 14:26:06

Peter

Hallo Chris
Lieber spät als gar nicht:
Vielen Dank für Deine Hilfe: es hat einwandfrei funktioniert! :-)
Gruss Peter

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.
Modul hinzufügen: Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

Code einfügen: Füge den folgenden VBA-Code ein, um eine .msg Datei zu öffnen, wenn auf die Offertnummer doppelt geklickt wird:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim Offertnummer As String
   Dim Pfad As String
   Dim Dateiname As String

   Offertnummer = Target.Value
   Pfad = "C:\Pfad\"  ' Ändere den Pfad nach Bedarf

   ' Konstruiere den Dateinamen
   Dateiname = "SPOT_" & Offertnummer & "_CHE123456789_ExpDE_1Pal.msg"

   ' Öffne die .msg Datei
   ActiveWorkbook.FollowHyperlink (Pfad & Dateiname)
   Cancel = True
End Sub

Excel Tabelle vorbereiten: Stelle sicher, dass die Offertnummern in einer Spalte deiner Excel-Tabelle stehen.
Testen: Klicke doppelt auf eine Offertnummer, um die entsprechende E-Mail in Outlook zu öffnen.

Häufige Fehler und Lösungen

Fehler beim Öffnen der Datei: Stelle sicher, dass der Pfad zur .msg Datei korrekt ist. Überprüfe, ob die Datei tatsächlich existiert.
Excel kann die Datei nicht finden: Vergewissere dich, dass die Offertnummer korrekt eingegeben wurde und dass sie im Dateinamen enthalten ist.
VBA-Sicherheitseinstellungen: Wenn der Code nicht ausgeführt wird, könnten die Makros in Excel deaktiviert sein. Aktiviere die Makros unter Datei > Optionen > Sicherheitscenter.

Alternative Methoden

MSG-Datei in Excel einfügen: Du kannst auch die msg Datei in ein Excel-Tabellenblatt einfügen, indem du den Inhalt der E-Mail kopierst und in eine Zelle einfügst.
Outlook E-Mail öffnen ohne Outlook: Es gibt Tools von Drittanbietern, die es ermöglichen, .msg Dateien ohne Outlook zu öffnen, aber diese bieten möglicherweise nicht die gleiche Funktionalität.

Praktische Beispiele

Wenn du mehrere Offertnummern in Excel hast, kannst du den oben genannten VBA-Code in jedem Tabellenblatt verwenden, um die E-Mails mit nur einem Doppelklick zu öffnen.
Nutze Power Query, um die Dateinamen automatisch in Excel hochzuladen und sie in einer übersichtlichen Tabelle darzustellen.

Tipps für Profis

Automatisierung: Überlege dir, ob du die Funktionalität erweitern möchtest, um mehrere .msg Dateien gleichzeitig zu öffnen.
Datenschutz: Achte darauf, dass die gespeicherten .msg Dateien keine sensiblen Daten enthalten, wenn du sie in einem gemeinsamen Netzwerk speicherst.
Fehlerbehandlung: Implementiere eine Fehlerbehandlung im VBA-Code, um sicherzustellen, dass der Code auch bei Problemen nicht abstürzt.

FAQ: Häufige Fragen

1. Wie kann ich eine .msg Datei öffnen, ohne Outlook zu verwenden?
Es gibt Softwarelösungen von Drittanbietern, die .msg Dateien öffnen können, ohne dass Outlook installiert ist.

2. Kann ich E-Mails automatisch aus Excel versenden?
Ja, indem du die Funktion Excel Tabellenblatt per Mail versenden nutzt und VBA einsetzt, um E-Mails direkt aus Excel zu versenden.

3. Wie importiere ich Geburtstage aus Excel in den Outlook-Kalender?
Das kann in der Regel durch Exportieren der Daten als CSV-Datei aus Excel und Importieren in Outlook erfolgen.

4. Was ist der richtige Dateipfad für meine .msg Dateien?
Der Dateipfad sollte den Speicherort deiner .msg Dateien auf deinem Computer oder Server widerspiegeln.

Beliebteste Forumthreads (12 Monate)