Thema Datum  Von Nutzer Rating
Antwort
11.02.2020 15:53:10 Dirk
NotSolved
Blau Outlook Attachments aus mehreren Emails speichern
 12.02.2020 07:38:27 Torsten
NotSolved
05.08.2023 22:46:25 FurysAssassin
NotSolved
08.08.2023 15:48:16 Gast95954
NotSolved
08.08.2023 20:37:23 Gast76593
NotSolved
12.02.2020 07:53:28 Torsten
*****
NotSolved
17.02.2020 13:42:50 René Wiesenhöfer
NotSolved
17.02.2020 14:04:35 Torsten
NotSolved
17.02.2020 14:21:58 René
NotSolved
17.02.2020 14:26:28 Torsten
NotSolved
18.02.2020 08:08:02 Torsten
*****
NotSolved
18.02.2020 08:15:09 René
NotSolved

Ansicht des Beitrags:
Von:
Torsten		 Datum:
12.02.2020 07:38:27		 Views:
1010		 Rating:
     
Antwort:
  Ja
Thema:
Outlook Attachments aus mehreren Emails speichern

Hallo Dirk,

versuchs mal so:

Public Sub SaveAttachments()

Dim coll As VBA.Collection
Dim obj As Object
Dim Att As Outlook.Attachment
Dim Sel As Outlook.Selection
Dim Path$
Dim i&
Dim Zaehler As Long
Zaehler = 1

Path = "C:\Users\DB\.1 L1\PL\"
Set coll = New VBA.Collection

If TypeOf Application.ActiveWindow Is Outlook.Inspector Then
    coll.Add Application.ActiveInspector.CurrentItem
Else
    Set Sel = Application.ActiveExplorer.Selection
    For i = 1 To Sel.Count
        coll.Add Sel(i)
    Next
End If

For Each obj In coll
    For Each Att In obj.Attachments
        Att.SaveAsFile Path & Att.Filename & Zaehler
    Next
    Zaehler = Zaehler + 1
Next

End Sub

Ich habe dir hier einen Zaehler eingebaut, der an das erste Attachment eine 1 anhaengt und dann immer hochzaehlt bis zum letzten Attachment. Also sollten die Dateien unterschiedlich benannt werden.

Gruss Torsten

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.02.2020 15:53:10 Dirk
NotSolved
Blau Outlook Attachments aus mehreren Emails speichern
 12.02.2020 07:38:27 Torsten
NotSolved
05.08.2023 22:46:25 FurysAssassin
NotSolved
08.08.2023 15:48:16 Gast95954
NotSolved
08.08.2023 20:37:23 Gast76593
NotSolved
12.02.2020 07:53:28 Torsten
*****
NotSolved
17.02.2020 13:42:50 René Wiesenhöfer
NotSolved
17.02.2020 14:04:35 Torsten
NotSolved
17.02.2020 14:21:58 René
NotSolved
17.02.2020 14:26:28 Torsten
NotSolved
18.02.2020 08:08:02 Torsten
*****
NotSolved
18.02.2020 08:15:09 René
NotSolved