AKU
02-02-2023, 08:09 AM
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 (http://www.vbatrainer.de)
End Sub
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 (http://www.vbatrainer.de)
End Sub