Consulting

Results 1 to 1 of 1

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

  1. #1
    VBAX Newbie
    Joined
    Feb 2023
    Posts
    1
    Location

    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

    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
    Last edited by Aussiebear; 02-02-2023 at 12:50 PM. Reason: Added code tags to supplied code

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •