|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Outlook Attachments aus mehreren Emails speichern |
11.02.2020 15:53:10 |
Dirk |
|
|
|
12.02.2020 07:38:27 |
Torsten |
|
|
|
05.08.2023 22:46:25 |
FurysAssassin |
|
|
|
08.08.2023 15:48:16 |
Gast95954 |
|
|
|
08.08.2023 20:37:23 |
Gast76593 |
|
|
|
12.02.2020 07:53:28 |
Torsten |
|
|
|
17.02.2020 13:42:50 |
René Wiesenhöfer |
|
|
|
17.02.2020 14:04:35 |
Torsten |
|
|
|
17.02.2020 14:21:58 |
René |
|
|
|
17.02.2020 14:26:28 |
Torsten |
|
|
|
18.02.2020 08:08:02 |
Torsten |
|
|
|
18.02.2020 08:15:09 |
René |
|
|
Von:
Dirk |
Datum:
11.02.2020 15:53:10 |
Views:
2149 |
Rating:
|
Antwort:
|
Thema:
Outlook Attachments aus mehreren Emails speichern |
|
Hallo,
ich habe einen Lieferanten der mir automatisierte Emails mit PDF Attachements sendet. Ich habe ein Outlook Makro welches mir aus mehreren markierten Emails die Anhänge speichert, aber das funktioniert nur, wenn die Attachements unterschiedliche Namen haben. Die Attachments meines Lieferanten haben aber leider alle den gleichen Namen, so dass das Makro bis zum letzten Attachment überschreibt.
Leider habe ich keine fundierten Kenntnisse, um das Makro anzupassen, so dass ich beim Speichern einen Namen vergeben kann.
Hier das Makro, wie es derzeit ist:
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&
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
Next
Next
End Sub
In der letzten Schleife bräuchte ich jetzt eine Modifizierung, die mich individuell benennen lässt.
Optimal wäre, wenn ich den Email Header als Name des PDF nehmen könnte.
Alternativ würde es reichen, wenn die Attachments nummeriert werden (zb. Dateiname.pdf, dateiname1.pdf, dateiname2.pdf, etc.).
Kann mir bitte jemand helfen?
Danke im Voraus.
Dirk
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Outlook Attachments aus mehreren Emails speichern |
11.02.2020 15:53:10 |
Dirk |
|
|
|
12.02.2020 07:38:27 |
Torsten |
|
|
|
05.08.2023 22:46:25 |
FurysAssassin |
|
|
|
08.08.2023 15:48:16 |
Gast95954 |
|
|
|
08.08.2023 20:37:23 |
Gast76593 |
|
|
|
12.02.2020 07:53:28 |
Torsten |
|
|
|
17.02.2020 13:42:50 |
René Wiesenhöfer |
|
|
|
17.02.2020 14:04:35 |
Torsten |
|
|
|
17.02.2020 14:21:58 |
René |
|
|
|
17.02.2020 14:26:28 |
Torsten |
|
|
|
18.02.2020 08:08:02 |
Torsten |
|
|
|
18.02.2020 08:15:09 |
René |
|
|