Ordner auswählen und Email exportieren

[ellzzett]

Hallo,

ich möchte eine selektierte Email exportieren, zuvor den Ordner über den Explorer auswählen.

Die Auswahl des Pfades funktioniert, allerdings wird die Mail dann eine Ebene über dem ausgewählten Ordner abgelegt und als Präfix erscheint der Name des gewählten Ordners. Ich werde nicht schlau daraus.
Bitte um sachdienliche Hinweise, danke!

Code:

Sub Save_Mail_with_Date()

Dim sFolder
Dim Text As String
Dim Pfad As String
Dim xlObj
Dim xlsFolder

    Set xlObj = CreateObject("Excel.Application")
    Set xlsFolder = xlObj.FileDialog(msoFileDialogFolderPicker)
        If xlsFolder.Show = -1 Then
            sFolder = xlsFolder.SelectedItems(1)
        End If
    xlObj.Quit
    Set xlObj = Nothing
    If sFolder <> "" Then
       MsgBox sFolder
    End If

  Pfad = sFolder

  If TypeOf Application.ActiveWindow Is Outlook.Explorer Then
  Set obj = Application.ActiveWindow
  Set obj = obj.Selection(1)
 
  Else

   Set objInspector = ActiveInspector
   objInspector.Activate

      If objInspector.IsWordMail Then
         Set obj = Application.ActiveInspector.CurrentItem
      End If

  End If
 
With obj
    Text = Replace(.Subject, "/", "_")
    Text = Replace(Text, "!", "")
    Text = Replace(Text, ".", "_")
    Text = Replace(Text, "\", "_")
    Text = Replace(Text, ":", "_")
    Text = Replace(Text, "(", "")
    Text = Replace(Text, ")", "")
    Text = Replace(Text, """", "")
   
    .SaveAs Pfad & Format(.ReceivedTime, "YYYY-MM-DD_hh-mm") & "_" & Text & ".msg", olMSG
End With
End Sub

[schauan]

Hallöchen,

da fehlt wohl am Ende des Pfades der "\"