EML- Dateien öffnen

Forumthread: EML- Dateien öffnen

EML- Dateien öffnen

26.02.2019 09:56:31

Tim

Guten Morgen,
ich habe ein Makro welches mir aus einem Pfad PDF & MSG Dateien öffnet.
Jetzt sind in diesem Ordner auch EML-Dateien die ich nicht geöffnet bekomme. Gibt es eine Möglichkeit auch EML-Datein zu öffnen?

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Long, strDatei As String, loLetzte As Long
Application.ScreenUpdating = False
With UserForm1.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
strDatei = .List(i, 0)
End If
Next i
End With
Select Case LCase(Right(strDatei, 3))
Case "pdf"
ActiveWorkbook.FollowHyperlink strDatei 'für PDF Datei
Case "msg"
'für .msg datein
Dim objApp As Object   'Outlook.Application
Dim objItem As Object  'Outlook.MailItem
Set objApp = CreateObject("Outlook.Application")
Set objItem = objApp.Session.OpenSharedItem(strDatei)
objItem.Display
Set objApp = Nothing
Set objItem = Nothing
End Select
Application.WindowState = xlMinimized
End Sub

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: EML- Dateien öffnen

26.02.2019 10:09:21

Klexy
AW: EML- Dateien öffnen

26.02.2019 10:39:00

Tim
AW: EML- Dateien öffnen

26.02.2019 11:05:43

Klexy
AW: EML- Dateien öffnen

26.02.2019 11:40:47

Tim
AW: EML- Dateien öffnen

26.02.2019 13:13:53

Nepumuk
AW: EML- Dateien öffnen

26.02.2019 14:19:37

Tim

AW: EML- Dateien öffnen

26.02.2019 10:09:21

Klexy

Eine eml-Datei öffnest du mit deinem Mail-Programm. Outlook oder so.

AW: EML- Dateien öffnen

26.02.2019 10:39:00

Tim

Hallo Klexy,
manuell lässt sich die EML-Datei öffnen, jedoch soll die über die Listbox ausgeführt werden und das funktioniert leider nicht.

AW: EML- Dateien öffnen

26.02.2019 11:05:43

Klexy

Vielleicht hilft das:
https://stackoverflow.com/questions/28587844/open-and-read-eml-files-with-vba
https://www.mrexcel.com/forum/excel-questions/756704-open-excel-2013-eml-file-vba.html

AW: EML- Dateien öffnen

26.02.2019 11:40:47

Tim

Habe ich mir angeschaut und grob verstanden, jedoch ist das vorgeschlagene Makro für eine 32 Bit Version und ich arbeite in einer 64er. Meine Kenntnisse reichen für eine Anpassung leider nicht aus.

AW: EML- Dateien öffnen

26.02.2019 13:13:53

Nepumuk

Hallo,
ein Beispiel für 64Bit:

Option Explicit

Private Declare PtrSafe Function ShellExecuteA Lib "shell32.dll" ( _
    ByVal hwnd As LongPtr, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As LongPtr

Private Const SW_SHOWNORMAL As Long = 1

Public Sub test()
    Call ShellExecuteA(Application.hwnd, "OPEN", "C:\Test.eml", vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub

Gruß
Nepumuk

AW: EML- Dateien öffnen

26.02.2019 14:19:37

Tim

Hi Nepumuk,
funktioniert perfekt, vielen Dank!

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um EML-Dateien in Excel zu öffnen, kannst du ein VBA-Makro verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
- Klicke auf Einfügen > Modul.

Kopiere den folgenden Code in das Modul:

Option Explicit

Private Declare PtrSafe Function ShellExecuteA Lib "shell32.dll" ( _
   ByVal hwnd As LongPtr, _
   ByVal lpOperation As String, _
   ByVal lpFile As String, _
   ByVal lpParameters As String, _
   ByVal lpDirectory As String, _
   ByVal nShowCmd As Long) As LongPtr

Private Const SW_SHOWNORMAL As Long = 1

Public Sub EMLDateiÖffnen(dateipfad As String)
   Call ShellExecuteA(Application.hwnd, "OPEN", dateipfad, vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub

Speichere das Modul und schließe den VBA-Editor.
Du kannst jetzt eine EML-Datei öffnen, indem du den Befehl EMLDateiÖffnen("C:\Pfad\zur\deiner\datei.eml") aufrufst.

Häufige Fehler und Lösungen

EML-Datei öffnet sich nicht: Stelle sicher, dass der Pfad zur EML-Datei korrekt ist und dass du die Datei mit einem Programm öffnen kannst, das EML-Dateien unterstützt.
Fehlermeldung bei der Ausführung: Überprüfe, ob die Deklarationen im VBA-Code korrekt sind und ob du die 64-Bit-Version von Excel verwendest, wenn du das passende Makro nutzt.

Alternative Methoden

Wenn du EML-Dateien nicht direkt in Excel öffnen kannst, gibt es alternative Methoden:

EML in PDF umwandeln: Du kannst die EML-Datei in PDF umwandeln, um sie einfacher anzuzeigen. Tools wie eml to pdf converter helfen dir dabei.
Online-Tools: Nutze Online-Dienste, um EML-Dateien anzuzeigen oder zu konvertieren. Websites wie eml online öffnen oder eml dateien anzeigen bieten solche Funktionen.

Praktische Beispiele

Hier sind einige praktische Beispiele zur Verwendung des Makros:

Um eine EML-Datei von einem bestimmten Pfad zu öffnen, kannst du die folgende Zeile in einem anderen Sub verwenden:
```
Sub Beispiel()
   EMLDateiÖffnen("C:\Test.eml")
End Sub
```

Möchtest du mehrere EML-Dateien in einer Schleife öffnen, könntest du dies tun:

Sub MehrereEMLÖffnen()
   Dim i As Integer
   For i = 1 To 5
       EMLDateiÖffnen("C:\Pfad\zur\deiner\datei" & i & ".eml")
   Next i
End Sub

Tipps für Profis

Verwende die Funktion FollowHyperlink: Diese Funktion kann ebenfalls Dateien öffnen, unterstütze allerdings nicht alle Dateitypen.
Dateipfade dynamisch gestalten: Anstatt fest kodierte Pfade zu verwenden, kannst du den Benutzer auffordern, einen Pfad auszuwählen, indem du Application.GetOpenFilename nutzt.
Fehlerbehandlung implementieren: Füge Error-Handling in dein Makro ein, um mögliche Probleme beim Öffnen der Dateien abzufangen.

FAQ: Häufige Fragen

1. Wie kann ich EML-Dateien ohne Outlook öffnen?
Du kannst VBA verwenden, um EML-Dateien über ShellExecute zu öffnen, ohne Outlook zu benötigen.

2. Gibt es eine Möglichkeit, EML-Dateien in Excel zu importieren?
Direktes Importieren ist nicht möglich, aber du kannst die EML-Datei in ein unterstütztes Format wie PDF umwandeln und dann in Excel verwenden.

3. Kann ich EML-Dateien in Excel anzeigen?
Ja, du kannst die EML-Dateien mit einer geeigneten Anwendung öffnen, aber die Anzeige in Excel selbst ist nicht möglich.

Beliebteste Forumthreads (12 Monate)

Forumthread: EML- Dateien öffnen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

EML-Dateien öffnen und in Excel nutzen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread