Note: The other languages of the website are Google-translated. Back to English

Wie kann ich Anhänge automatisch aus Outlook in einen bestimmten Ordner herunterladen / speichern?

Im Allgemeinen können Sie alle Anhänge einer E-Mail mit einem Klick speichern aaaZubehör > Alle Anhänge speichern im Outlook. Aber wenn Sie alle Anhänge aller empfangenen E-Mails und empfangenen E-Mails speichern müssen, haben Sie irgendwelche Ideen? In diesem Artikel werden zwei Lösungen zum automatischen Herunterladen von Anhängen aus Outlook in einen bestimmten Ordner vorgestellt.


Laden Sie Outlook-Anhänge automatisch in einen Ordner mit VBA und Regel herunter

Diese Methode führt ein VBA-Skript ein und führt dieses Skript mit einer Regel aus, mit der Outlook-Anhänge automatisch heruntergeladen und in einem bestimmten Ordner gespeichert werden. Bitte gehen Sie wie folgt vor:

1. Drücken Sie Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.

2. Klicken Sie Insert > Modulund fügen Sie dann das folgende VBA-Skript in das neu öffnende Modulfenster ein.

VBA: Outlook-Anhänge automatisch in einem bestimmten Ordner speichern

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "C:\Users\DT168\Documents\outlook-attachments\"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next
End Sub

Hinweis: Bitte finden Sie es heraus sSaveFolder = "C: \ Benutzer \ DT168 \ Dokumente \ Outlook-Anhänge \"und ersetzen Sie den Pfad des Zielordners nach Bedarf.

3. Speichern Sie das VBA-Skript und schließen Sie das Fenster Microsoft Visual Basic für Applikationen.

4. Geh zum Mail anzeigen und klicken Home > Regeln > Regeln und Warnungen verwalten. Siehe Screenshot:

5. Klicken Sie im sich öffnenden Dialogfeld Regeln und Warnungen auf Neue Regel Taste auf der E-Mail-Regeln Tab. Siehe Screenshot:

6. Klicken Sie nun im Dialogfeld Regel-Assistent auf, um die auszuwählen Übernehmen Sie Regeln für Nachrichten, die ich erhalte Option und klicken Sie auf Nächste Seite .

7. Deaktivieren Sie im Dialogfeld Regelassistent (welche Bedingung (en) möchten Sie überprüfen?) Alle Optionen und klicken Sie auf Nächste Seite Taste. Und dann klicken Sie auf Ja Schaltfläche im eingeblendeten Microsoft Outlook-Dialogfeld. Siehe Screenshot:

8. Im Dialogfeld Regelassistent (was möchten Sie mit der Nachricht tun?) Gehen Sie nun wie folgt vor: (1) Prüfen Sie die Führen Sie ein Skript aus Option; (2) Klicken Sie auf den Text von ein Skript Um das Dialogfeld Skript auswählen zu öffnen, wählen Sie das in Schritt 2 hinzugefügte Skript aus und klicken Sie auf OK Taste; (3) Klicken Sie auf die Nächste Seite .

9. Klicken Sie im Dialogfeld Regelassistent (Gibt es Ausnahmen?) Auf Nächste Seite Taste direkt.

10. Benennen Sie nun im letzten Dialogfeld des Regelassistenten die Regel im Schritte Aktivieren Sie das Kontrollkästchen Optionen nach Bedarf in der Schritte Abschnitt und klicken Sie auf Veredelung .

11. Schließen Sie das Dialogfeld Regeln und Warnungen.

Und jetzt werden alle Anhänge von Ihrem E-Mail-Konto heruntergeladen und im angegebenen Zielordner gespeichert. Alle Anhänge eingehender E-Mails werden automatisch heruntergeladen und auch im angegebenen Ordner gespeichert.


Laden Sie Outlook-Anhänge mit Kutools for Outlook automatisch in einen Ordner herunter

Wenn Sie Kutools for Outlook installiert haben, können Sie es anwenden Automatische Trennung Option zum automatischen Herunterladen aller Outlook-Anhänge und zum einfachen Speichern in einem bestimmten Ordner.

Kutools for Outlook: Fügen Sie mehr als 100 praktische Tools für Outlook hinzu, die Sie innerhalb von 60 Tagen ohne Einschränkung testen können. Mehr erfahren      Kostenlose Testversion

1. Klicken Sie Kutoolen > Automatische Trennung > Ermöglichen um die Auto Detach-Funktion zu aktivieren.

2. Klicken Sie weiter Kutoolen > Automatische Trennung > Auto-Trenn-Manager.

3. Aktivieren Sie im Dialogfeld "Anhänge automatisch trennen" die Option Alle empfangenen Anhänge automatisch trennen Option, und konfigurieren Sie dann wie folgt:
(1) Klicken Sie auf die Schaltfläche Durchsuchen  Angeben des Zielordners zum Speichern automatisch getrennter Anhänge;
(2) Die Überprüfung ist optional die Unterordner erstellen im folgenden Stil Option und wählen Sie dann einen Unterordnerstil aus der Dropdown-Liste aus.
(3) Die Überprüfung ist optional Die Nur Anhänge mit folgender Erweiterung abnehmen Option, und geben Sie dann die Dateierweiterungen für Anhänge in das folgende Feld ein.
(4) Die Überprüfung ist optional Das Anhangssymbol bleibt weiterhin in den E-Mails erhalten Optionen.

Hinweis: Wenn Sie Anhänge von Absendern automatisch trennen müssen, können Sie dies überprüfen Anhänge automatisch nach Regeln trennen Klicken Sie auf die Option Neu Klicken Sie auf die Schaltfläche, geben Sie die E-Mail-Adresse des Absenders ein und geben Sie im zweiten Dialogfeld "Anhänge automatisch trennen" den Zielordner an.

4. Drücke den Ok Schaltfläche, um die Einstellungen zu speichern.

Von nun an werden alle Anhänge (oder Anhänge mit angegebenen Dateierweiterungen oder Anhänge von bestimmten Absendern basierend auf Ihren Einstellungen) automatisch gespeichert.

Hinweis: Sie können Kutools für Outlooks anwenden Alle abnehmen (Anhänge) Funktion oder Rette alle Funktion (Anhänge) zum schnellen Herunterladen / Speichern aller Anhänge aus mehreren / allen empfangenen E-Mails in Outlook.


Demo: Laden Sie Outlook-Anhänge mit Kutools for Outlook automatisch in einen Ordner herunter


Tipp: In diesem Video, Kutoolen Registerkarte wird hinzugefügt von Kutools for Outlook. Wenn Sie es brauchen, klicken Sie bitte eine 60-tägige kostenlose Testversion ohne Einschränkung zu haben!


In Verbindung stehende Artikel:


Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!

  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
  • Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählenrealisieren kannst...
  • Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakterealisieren kannst... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 1180x121
 
Kommentare (104)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo zusammen. Das Skript funktioniert bei mir nicht. Ich muss noch etwas tun. Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\MHO-ITD-SM\Users\smutharaju\Desktop\Ranjith\Outlook Attachments" For Each oAttachment In MITem.Attachments oAttachment .SaveAsFile sSaveFolder & oAttachment.DisplayName Next End Sub
Srinivas
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo SRINIVAS, ich glaube, Sie müssen den Laufwerksbuchstaben am Anfang Ihres Links hinzufügen. dh C:\users\test\etc Hoffentlich hilft das! Andreas
Andrew
Dieser Kommentar wurde vom Moderator auf der Website minimiert
In VBA müssen Sie außerdem am Ende Ihres Dateipfads einen abschließenden Backslash hinzufügen. Wie folgt. "D:\OutlookAttachments\„Ich hoffe, das behebt alle Probleme. Matt
Matt
Dieser Kommentar wurde vom Moderator auf der Website minimiert
HI

das VBA-Skript hat bei mir super funktioniert ... einmal - nie wieder.

Ich habe sogar die Dateien im Ordner gelöscht und erneut ausgeführt und nichts.

Was mache ich falsch ? - Die Regel wird ausgeführt, da ich gleichzeitig eine Warnung anzeigen kann
David Brammer
Dieser Kommentar wurde vom Moderator auf der Website minimiert
[quote]Hallo zusammen. Das Skript funktioniert bei mir nicht. Ich muss noch etwas tun. Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\MHO-ITD-SM\Users\smutharaju\Desktop\Ranjith\Outlook Attachments" For Each oAttachment In MITem.Attachments oAttachment .SaveAsFile sSaveFolder & oAttachment.DisplayName Next End SubVon Srinivas[/quote] Auch hier habe ich alle Optionen ausprobiert. Ich habe das Gefühl, dass das Skript ausgeführt wird, aber ich sehe immer noch keine Dateien, die in den auf meinem Computer angegebenen Pfad geladen werden. Kann mir jemand helfen, der mir sehr geschätzt wird?
Kalyan
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Skript scheint auch nicht zu funktionieren, alles ist gut programmiert, der Code usw. und es werden keine Anhänge durchgezogen, wenn ich die Regel ausführe? Läuft auf Office 2007? irgendwelche ideen warum??
Danny
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe die Option 1 (Outlook-Anhänge automatisch mit VBA und Regel in Ordner herunterladen) ausprobiert und es funktioniert perfekt. Ich habe folgende zwei Fragen: i) Gibt es eine Möglichkeit, denselben Anhang auf mehreren Freigabepfaden herunterzuladen, wobei die Datei erweitert wird? ii) Es speichert auch den Anhang mit dem Cursor auf A1 in jedem Blatt und Blatt1 sollte ausgewählt werden. Wenn Sie also die Datei aus dem Pfad öffnen, sollte das Blatt mit dem Cursor auf A1 geöffnet sein. Vielen Dank im Voraus!! Grüße, Bhavesh Luhana
Bhavesh Luhana
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Kann diese Regel oder ähnliches auf eine Webmail-Version von Outlook angewendet werden?
Eugene
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe versucht, die Schritte wie angegeben zu befolgen. aber ich bekomme die Option "Skript ausführen" nach dem Speichern des Makros nicht. Ich habe die Makros aktiviert, Outlook mehrmals neu gestartet. aber es funktioniert immer noch die Option immer noch nicht. Bitte helfen Sie. Vielen Dank!
Avnika Rastogi
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich stimme AVNIKA zu. Ich habe das gleiche Problem :-|
Dinusche
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe versucht, die Schritte wie angegeben zu befolgen. Ich habe alle oben genannten Optionen ausgewählt, aber nachdem ich die Option "Skript ausführen" und den Link "Skript" ausgewählt habe, erhalte ich das Skript nicht in diesem Dialogfeld. Bitte helfen Sie so schnell wie möglich. Vielen Dank!
Harsha
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich hatte das gleiche Problem. Hier habe ich eine Auflösung gefunden: https://answers.microsoft.com/en-us/msoffice/forum/msoffice_outlook-mso_win10/the-option-to-run-a-scritp-has-disappeared-from/d289e698-47fa-497a-80fa-633067a0de37#ThreadAnswers<br /> Nachdem ich meine Registrierung mit dem Schlüssel aktualisiert hatte, fing es wieder an zu funktionieren, wie es sollte. Probieren Sie es aus und sehen Sie, ob es für Sie funktioniert.
Dekan
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank für die so klar erwähnten Schritte.... Diese haben mir sehr geholfen und meine Arbeit sehr erleichtert... DANKE.....!!
Harsha
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das funktioniert wirklich gut für mich Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem) Dim oAttachment As Outlook.Attachment Dim sSaveFolder As String sSaveFolder = "\\Dck-server-02\g\00 Uploads\" For Each oAttachment In MItem.Attachments oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName Next End Sub Wie Sie sehen können, habe ich den Dateinamen, der der Anhang ist, beim Kopieren auf das Netzlaufwerk unverändert gelassen. Wenn jedoch mehrere E-Mails mit demselben Dateinamen für den Anhang eingehen, lässt das Skript zu, dass der neueste Anhang den vorherigen Anhang im Netzwerkordner überschreibt. Gibt es eine Bearbeitung, die ich in das Skript eingeben kann, die ein "-1", "-2", "-3" usw. an das Ende des Dateinamens des Anhangs anhängt? Also zum Beispiel, wenn der Anhang "Inspektion" heißt und ich mehrere bekomme, die durchkommen, kann ich sie in "Inspektion-1" "Inspektion-2" "Inspektion-3" umbenennen lassen. Jede Hilfe wäre SO VIEL geschätzt! Danke.
Janayah
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Jayayah. Versuchen Sie, die Datei vor dem Speichern zu überprüfen. Dim filepath As String filepath = Dir(sSaveFolder & oAttachment.DisplayName) If filepath = "" Then oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName Else oAttachment.SaveAsFile sSaveFolder & "1-" & oAttachment.DisplayName End if und so weiter... spielen Sie mit dem Code herum und lassen Sie mich wissen, wie Sie vorankommen.
Bobs
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Gibt es eine Möglichkeit, dies so zu ändern, dass nur Dateien kopiert werden, die bestimmte Wörter in ihrem Namen haben?
Fabian
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Kann Kutools so eingerichtet werden, dass nur Anhänge von bestimmten E-Mails basierend auf dem Betreff gespeichert werden? Und kann dieselbe Datei aus einer einzigen E-Mail in mehreren Verzeichnissen gespeichert werden? Wir möchten dies für die Berichtsverteilung anstelle von E-Mail verwenden.
Jess
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, vielen Dank, diese Arbeit, aber nur einmal, beim nächsten Mal wird die Datei nicht auf der Festplatte gespeichert :( Ich weiß nicht warum, hast du eine Idee? Danke
Mark
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe das gleiche Problem (es funktioniert nur einmal). Konntest du das Problem lösen?
Bence
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Bitte überprüfen Sie, ob der Zielordner Outlook-Anhänge vorhanden ist oder nicht. Weitere Informationen zu diesem Problem sind hilfreich. Vielen Dank!
Technischer Support
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich muss sagen, sein hervorragendes Skript hat 80 % meiner Arbeit gelöst, aber ich habe immer noch ein Problem. Die Anhänge, die ich erhalte, haben täglich einen neuen Datums- und Zeitstempel, und ich möchte diese Anhänge automatisch speichern, aber indem ich den Datums- / Zeitstempel entferne, damit er beim nächsten Mal ersetzt / überschrieben und eine neue Kopie mit demselben Namen gespeichert wird Ich möchte nicht, dass jeden Tag Anhänge mit neuem Datum gespeichert werden. stattdessen muss dieselbe Datei an derselben Stelle ersetzt werden. Können Sie bitte helfen.
vandy
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo zusammen, wie kann ich das so einrichten, dass ich ein anderes Skript habe, um Dateien an verschiedene Ordner zu senden? Vielen Dank für jede angebotene Hilfe im Voraus!
Nathan
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich richte das Skript ein, das Sie oben auf der Seite haben, und es funktioniert OK, aber ich möchte den zu speichernden Anhang so benennen, dass er den alten überschreibt. Was müsste ich hinzufügen, damit dies geschieht? Danke David
David
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo an alle Experten, ich bemühe mich, den automatischen Download wie oben beschrieben mit einem VBA-Skript einzurichten, aber es wurde nichts im Zielordner gespeichert. Ich habe dies in Outlook 2007 und Outlook 2010 ausprobiert und auch sichergestellt, dass der Ordner über alle erforderlichen Berechtigungen verfügt. Aber es wurde immer noch kein einziger Anhang gespeichert. Kann mir jemand dabei helfen? Gruß Stanley
Stanley
Dieser Kommentar wurde vom Moderator auf der Website minimiert
In Outlook 2013 ist die Option "Skript ausführen" nicht verfügbar. Kann ich etwas anderes tun, um Anhänge aus einer E-Mail zu speichern, ohne Kutools zu verwenden
Ndesouza
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wenn die Option "Skript ausführen" fehlt, liegt das daran, dass sie seit einem Sicherheitsupdate vor einigen Monaten standardmäßig blockiert ist. Weitere Informationen finden Sie hier: https://www.slipstick.com/outlook/rules/outlook-2016-run-a-script-rules/
WarrenDB
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, das Skript funktioniert gut ... aber ich möchte die PDFs aus einem Unterordner extrahieren, nicht aus dem Haupteingang. Gibt es eine Möglichkeit das Skript zu ändern?
Vielen Dank im Voraus !
Erich VT
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Eric,
Das folgende VBA-Skript speichert alle PDF-Anhänge aus E-Mail-Ordnern. Zum Speichern aus einem bestimmten Ordner können Sie den Ordner angeben, wenn Sie die Regel manuell ausführen.


Public Sub SaveAttachmentsToDisk (E-Mail-Element als Outlook.MailItem)
Dim xAttachment As Outlook.Attachment
Dim xDotPos als ganze Zahl
Dim xSavePath als String, xFileType als String
xSavePath = "C:\Benutzer\DT168\Dokumente\Outlook-Anhänge\"
Für jedes xAttachment in EmailItem.Attachments
xDotPos = InStrRev(xAttachment.DisplayName, ".")
xFileType = Mid(xAttachment.DisplayName, xDotPos, Länge(xAttachment.DisplayName) - xDotPos + 1)
Wenn xFileType = ".pdf" Dann
xAttachment.SaveAsFile xSavePath &amp; xAttachment.DisplayName
End If
Nächste Seite
End Sub
Technischer Support
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, gibt es ein VBA-Skript für den CSV-Anhang. Ich habe derzeit Berichtsaufträge, die automatisch in benannte Ordner in Outlook verschoben werden. Ich möchte jetzt für diese Dateien die Ordner selbst extrahieren und in die entsprechenden Ordner auf meinem Desktop verschieben. Hoffe das macht Sinn. Bitte helfen Sie! Ich bin sehr neu in VBA.
Raynardo Pardo
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe alle Skripte erstellt, um die Anhänge von Outlook-Mail herunterzuladen, und mein Skript funktioniert einwandfrei, wenn ich es manuell ausführe. Ich möchte den Prozess mit der Regeloption automatisieren. Aber ich konnte mein Makro nicht im Fenster des Regelassistenten sehen. Ich habe die folgende Option auch in der Registrierung aktiviert
HKEY_CURRENT_USER \ Software \ Microsoft \ Office \ 16.0 \ Outlook \ Sicherheit
DWORD: EnableUnsafeClientMailRules
Wert: 1

Aber ich konnte mein Makro immer noch nicht in der Liste des Regelassistenten sehen. Die Liste meines Regelassistenten ist leer, aber ich habe das Makro bereits erstellt und es funktioniert manuell einwandfrei. Ich muss das Makro in meinen Regelassistenten bringen, um den Prozess zu automatisieren. Bitte helfen Sie mir, wenn Sie irgendwelche Ideen haben!
Dinesh
Es sind noch keine Kommentare vorhanden
Mehr laden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0  Figuren
Vorgeschlagene Standorte