Sleeper: Markieren Sie mehrere E-Mails gleichzeitig und speichern Sie sie in 1 Ordner

Hallo Zusammen

Vielleicht kann mir jemand helfen. Ich habe hier einen sehr schönen Code zusammengestellt. Funktioniert aber nur für 1 Email - ich möchte aber 10 Emails gleichzeitig anklicken und in einem Ordner speichern. Ich komme nicht weiter. Hat vielleicht jemand eine Idee was ich hier dazu schreiben könnte?

1000 - Dank in Voraus.
Anna

Code:

---

Sub MailAnhängeSpeichern()
'Variablen dimensionieren
Dim Mail As MailItem
Dim Pfad As String
Dim Att As Attachment
Dim objEmail As Object
'Mail auslesen
Set Mail = ActiveExplorer.Selection.item(1)
'Pfad definieren
Pfad = "R:\MyEmails & Format(Date, "YYYYMMDD") & "_" & Mail.SenderEmailAddress & Format(Time, "HHMMSS") & "_" & 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
For Each objEmail In objSourceFolder.Items
'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

---