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
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
