Code

Sub MailAnhängeSpeichern()

'Variablen dimensionieren
Dim Mail As MailItem
Dim Pfad As String
Dim Att As Attachment

'Mail auslesen
Set Mail = ActiveExplorer.Selection.item(1)

'Pfad definieren
Pfad = "C:\Users\kaiwe\OneDrive\Desktop\Mails\" & Format(Date, "YYYYMMDD") & "_" & Mail.SenderEmailAddress

'Ordner anlegen
MkDir Pfad

'Mail abspeichern
Mail.SaveAs Pfad & "\Mail.doc", olDoc

'Schleife über alle Anhänge der Mail
For Each Att In Mail.Attachments

    'Anhang speichern
    Att.SaveAsFile Pfad & "\" & Att.filename

Next Att

'Benutzer benachrichtigen
MsgBox "Die Mail und alle Anhänge wurden gespeichert unter " & Pfad

'Bereitgestellt von www.vbatrainer.de

End Sub