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