Hvordan downloades / gemmes vedhæftede filer automatisk fra Outlook til en bestemt mappe?

Mens det er ligetil at gemme alle vedhæftede filer fra en enkelt e-mail i Outlook ved at bruge Vedhæftede filer > Gem alle vedhæftede filer mulighed, kan det være mere udfordrende at administrere vedhæftede filer fra flere e-mails, især i store mængder. Denne artikel introducerer to effektive løsninger til automatisk at downloade vedhæftede filer fra Outlook-e-mails til en bestemt mappe. Disse metoder er særligt nyttige, når du håndterer adskillige e-mails og vedhæftede filer, hvilket forenkler processen og sparer tid.

Download automatisk Outlook-vedhæftede filer til en mappe med VBA og regel (11 trin)
Download automatisk Outlook-vedhæftede filer til en mappe med Kutools til Outlook (2 trin)

Download automatisk Outlook-vedhæftede filer til en mappe med VBA og regel

Denne tilgang involverer brug af et VBA-script, som, når det udføres med en bestemt regel, automatisk vil downloade og gemme vedhæftede filer fra Outlook-e-mails til en udpeget mappe. Fortsæt venligst med følgende trin:

Presse Alt + F11 at åbne Microsoft Visual Basic til applikationer vindue.
Klik indsatte > Moduler, og indsæt derefter under VBA-scriptet i det nyåbnede Moduler vindue.
VBA: Gem automatisk Outlook-vedhæftede filer i en bestemt mappe
```
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
```
Bemærk: Find venligst linjen sSaveFolder = "C: \ Brugere \ DT168 \ Dokumenter \ Outlook-vedhæftede filer \", og erstat den med stien til din ønskede destinationsmappe.
Gem VBA-scriptet og luk Microsoft Visual Basic til applikationer vindue.
Gå til Post se, og klik Home > Regler > Administrer regler og advarsler.
I åbningen Regler og advarsler Klik på dialogboksen Ny regel knappen på E-mail-regler fane.
I Guiden til regler dialogboksen, der vises, vælg venligst Anvend regel på meddelelser, jeg modtager valgmulighed, og klik på knappen Næste .
I Regelguiden (hvilke betingelser vil du kontrollere?) dialogboksen, skal du klikke på knappen Næste knappen uden at vælge nogen muligheder. Og klik derefter på Ja knappen i pop op-vinduet Microsoft Outlook dialog boks.
I det følgende Rules Wizard (Hvad vil du gøre med beskeden?) dialogboks, fortsæt som følger:
1. Tjek køre et script valgmulighed. Tip: Hvis du ikke kan se muligheden, venligst gå til denne vejledning om at aktivere "kør et script"-indstilling i Outlook.
2. Klik på den blå understregede "et script"-tekst for at åbne Vælg script dialog boks. Her skal du vælge det script, du tilføjede Trin 2 og klik på OK .
3. Klik på knappen Næste knappen for at fortsætte.
I Rules Wizard (Er der nogen undtagelser?) Klik på dialogboksen Næste knap direkte.
I den sidste Guiden til regler dialogboksen, bedes du navngive reglen i Trin 1 afkrydsningsfelt, som du har brug for i Trin 2 sektion, og klik på knappen Finish .
Luk Regler og advarsler dialog boks.

Resultat

Nu, hvis du valgte "Kør denne regel nu på beskeder, der allerede er i indbakken", vil alle vedhæftede filer fra din e-mail-konto blive downloadet og gemt i den angivne destinationsmappe. Derudover, hvis du har markeret indstillingen "Slå denne regel til", vil alle vedhæftede filer fra indgående e-mails automatisk blive downloadet og gemt i den udpegede mappe.

Download automatisk Outlook-vedhæftede filer til en mappe med Kutools til Outlook

Med Kutools til Outlook installeret på din computer, dens Automatisk afmontering funktionen giver dig mulighed for automatisk at downloade alle eller specifikke Outlook-vedhæftede filer baseret på dine indstillede betingelser, hvilket bekvemt dirigerer dem til en valgt mappe. Derudover tilbyder denne funktion fleksibiliteten til at oprette undermapper. Det giver to alternativer til at navngive disse undermapper: du kan vælge mellem et af formaterne, som f.eks [meddelelsesmappe]-[beskedemne], eller vælg at tilføje en tilpasset tekststreng som et suffiks til dit valgte format. Denne funktion forbedrer i høj grad organisationen og tilgængeligheden af dine vedhæftede filer.

Kutools til Outlook: Supercharge Outlook med over 100 must-have værktøjer. Prøv den GRATIS i 60 dage, uden betingelser! Læs mere ... Hent nu!

Klik Kutools > Automatisk afmontering for at åbne funktionsdialogen.
I Fjern automatisk vedhæftede filer Vælg dialogboksen Fjern automatisk alle modtagne vedhæftede filer mulighed, og konfigurer som følger:
1. Klik på knappen Gennemse for at angive destinationsmappen for at gemme automatisk frigjorte vedhæftede filer.
2. (Valgfrit) Kontroller Afmonter vedhæftede filer i stilen nedenfor mulighed, hvis du ønsker at oprette undermapper til lagring af de vedhæftede filer.
  - Opret undermapper i nedenstående stil: Navngiv undermapperne i et af de foruddefinerede formater, f.eks [meddelelsesmappe]-[beskedemne].
  - Omdøb de gemte vedhæftede filer i nedenstående stil: Navngiv undermapperne ved hjælp af et af de foruddefinerede formater og tilføj en brugerdefineret tekststreng som suffiks.
3. (Valgfrit) Kontroller Vedhæftningsikon er stadig i e-mails mulighed for at beholde en visuel indikator i de e-mails, der havde vedhæftede filer.
4. Klik Ok.

Resultat

Fra nu af vil alle vedhæftede filer automatisk blive gemt i den angivne mappe ved modtagelse af e-mails.

Tip: Hvis du ønsker at konfigurere automatisk adskillelse af vedhæftede filer baseret på specifikke regler, skal du aktivere Fjern automatisk vedhæftede filer efter regler valgmulighed i Fjern automatisk vedhæftede filer dialog. Klik derefter på Ny knappen for at definere dine filterbetingelser og ønskede lagringsindstillinger.

Bemærkninger:

Vil du have adgang til Automatisk afmontering funktion? Hent Kutools til Outlook nu! Ud over dette kan Kutools prale af et utal af 100+ andre funktioner og tilbyder en 60-dages gratis prøveperiode. Vent ikke, prøv det i dag!
Hvis du ønsker at frigøre eller downloade eksisterende vedhæftede filer fra flere/alle modtagne e-mails i Outlook, skal du anvende Kutools for Outlook's Fjern alle (vedhæftede filer) or Gem alle (vedhæftede filer) funktion.

Relaterede artikler:

Bedste kontorproduktivitetsværktøjer

Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook

🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...

📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...

📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...

📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...

🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...

👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...

👩🏼‍🤝‍👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...

Over 100 Features Afvent din udforskning! Klik her for at finde mere.

Læs mere Gratis download Køb

Comments (115)

Rated 4.5 out of 5 · 1 ratings

Ben Park

about 1 month ago

#44944

This comment was minimized by the moderator on the site

Thank you for this information

hansu

about 1 month ago

#44904

This comment was minimized by the moderator on the site

May i ask some question?

I usually received mail to many people and many kinds of files.
So i should distinguish each file.
But now, It can`t.

So Did you have any idea for this?
(like chacnged file name or and so on...)

Thank you for your help

BR
Hansu

hansu

about 1 month ago

#44903

This comment was minimized by the moderator on the site

Thank you for your great code

Thuy Tran

about 4 months ago

#44369

This comment was minimized by the moderator on the site

Hi,
I create Module in Microsoft VBA & save it
However when go to create Rules in Outlook, I can't see the select box of "Run a script"
What is the reason & how to fix it?
Thank you

Amanda Lee Thuy Tran

about 4 months ago

#44445

This comment was minimized by the moderator on the site

Hi there,

In some versions of Outlook, especially in more recent updates, the "Run a Script" option might be disabled by default due to security concerns. To enable the "Run a Script" option in Outlook, you usually need to modify the registry settings. Here's a general guide on how to do it:

1. Close Outlook: Make sure Outlook is not running.
2. Open Registry Editor: Press Win + R, type regedit, and hit Enter.
3. Navigate to the Outlook Security Settings: Depending on your version of Outlook, you'll need to navigate to a specific path in the Registry Editor. For example, for Outlook 2016, 2019, and Microsoft 365, you might navigate to HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Security.
4. Modify/Add the Registry Value:
4.1 Right-click in the right pane and choose New > DWORD (32-bit) Value.
4.2 Name the new value as EnableUnsafeClientMailRules.
4.3 Set its value to 1.
5. Close Registry Editor and restart your computer.
6. Open Outlook and check if the "Run a Script" option is available.

Report

Tommy

about 1 year ago

#42974

This comment was minimized by the moderator on the site

Ale kupa, oszuści. Maile zaczynają znikać. Nie mam moich wiadomości.

Bill

about 1 year ago

#39655

This comment was minimized by the moderator on the site

Hi, code works great however I am saving excel files and was wondering how I can modify the saved name. I recieve files like this "exa 2022-08.xlsx" how can I save the excel file as just "2022-08"?

this is my current code and my file saves however as just a file type not excel.

Public Sub PortlandDaily(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "T:\_Portland\Engineering Data\Daily Production Data\Test\"
For Each oAttachment In MItem.Attachments

Dim SplitName() As String
SplitName = Split(oAttachment.DisplayName, ".")

Dim RightName As String
RightName = Right(SplitName(0), 7)

Dim SaveName As String

SaveName = sSaveFolder & RightName

oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName

Next
End Sub

Rated 4.5 out of 5

Amanda Lee Bill

about 1 year ago

#39683

This comment was minimized by the moderator on the site

Hi there,

Please try the code below:

Public Sub PortlandDaily(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "T:\_Portland\Engineering Data\Daily Production Data\Test\"
For Each oAttachment In MItem.Attachments
  Dim SplitName() As String
  SplitName = Split(oAttachment.DisplayName, ".")
  Dim RightName As String
  RightName = Right(SplitName(0), 7) 'You can also declare the file name here, e.g., RightName = "2022-08"
  Dim SaveName As String
  SaveName = sSaveFolder & RightName & "." & SplitName(1)
  oAttachment.SaveAsFile SaveName
Next
End Sub

Amanda

Report

Andrea Amanda Lee

about 1 month ago

#44885

This comment was minimized by the moderator on the site

Hi. is it possible to give the attachment file an entirely new name, using information form the mail (for example the date of delivery).

Anthony On

about 1 year ago

#39439

This comment was minimized by the moderator on the site

Hi,
How can I create a VBA to save attachment (Excel file) in my location drive when email received in my outlook folder and using the file name based on cell value...Many thanks

Regards,
Anthony On

pearl

about 2 years ago

#37627

This comment was minimized by the moderator on the site

Bonjour, j'ai réussi à rajouter "exécuter un script" dans les règles et faire fonctionner le script dans outlook. Les pièces jointes d'un mail bien précis s'enregistrent parfaitement dans le dossier demandé. Sauf que j'aimerais enregistrer uniquement les fichiers .txt, et non les .pdf qui s'incrémentent également. Aussi j'ai une autre requête s'il vous plaît, le script fonctionne très bien pour définir un dossier de destination, mais je souhaite définir d'autres règles qui me permettraient d'enregistrer les pièces jointes d'autres mails vers un autre dossier de destination. J'ai essayé de faire un 2e module VBA, cela ne fonctionne pas. J'ai généré un deuxième projet VBA mais Outlook n'en gère qu'un seul. Dans ce cas, comment remédier s'il vous plait ? Merci pour ce tuto très clair pour moi qui suis débutante.

Report

Amanda Lee pearl

about 2 years ago

#37628

This comment was minimized by the moderator on the site

Hi pearl,
Could you please send the code you generated so that we can fix it?
Amanda

Report

DAS

about 2 years ago

#37175

This comment was minimized by the moderator on the site

Hi Can we download the attachment contains specific letters using VBA code

Amanda Lee DAS

about 2 years ago

#37176

This comment was minimized by the moderator on the site

Hi DAS,
When you said “the attachment contains specific letters”, did you mean you want to download the attachments from specific letters?
Amanda

Report

Kumar

about 2 years ago

#36090

This comment was minimized by the moderator on the site

Hi,
I executed the VBA + Rule option and it seemed to work perfectly. However, it recently stopped working with no errors. The rule is set to read the subject line, move to a certain folder if there is a certain subject, and then run the script. I know the trigger is working in the rule because the first action (move to folder) is working as it should.
Any idea why the rule trigger would work, but the documents are no longer being saved?
Things I have tried/checked:-The file path is correct-I added delays in various spots in the vba using application.wait-outlook has been shutdown and re-opened, and so has my laptop
(disclosure: I am a bit of a VBA newbie, but have beginner level coding knowledge)

There are no comments posted here yet

Please leave your comments in English

Posting as Guest

Name (Required)

Email (Required)

Rate this post:

Reset

0 Characters

Changelog

Funktionsvejledninger

Få hjælp?