E-Mail Anhänge automatisiert speichern
- Mit offener Outlook Instanz arbeiten
- Mit ausgewählter Mail arbeiten
- Pfad einlesen
- Stringverknüpfungen
- Ordner erstellen
- Mail speichern
- For Each Schleife
- Anhänge speichern
- Messagebox
- Makro Schnellzugriffleiste in Outlook zuweisen
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