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