Gå til hovedindhold

Hvordan flyttes e-mail til den angivne mappe efter læsning i Outlook?

Forfatter: Siluvia Sidst ændret: 2014-09-03

Flytning af e-mail til en bestemt mappe efter læsning er den bedste måde at holde indbakke-mappen ren i Outlook. For mange Outlook-brugere har de en tendens til at oprette en regel for flytning af disse læste e-mails. Faktisk understøtter Outlook ikke denne regelguide-proces. I denne artikel viser vi dig, hvordan du flytter e-mail-beskeder til den angivne mappe efter læsning med VBA-kode i Outlook.

Flyt e-mail til den angivne mappe efter læsning i Outlook

Office-faneblad - Aktiver fanebaseret redigering og browsing i Microsoft Office, hvilket gør arbejdet til en leg
Kutools til Outlook - Boost Outlook med 100+ avancerede funktioner for overlegen effektivitet
Boost din Outlook 2021 - 2010 eller Outlook 365 med disse avancerede funktioner. Nyd en omfattende 60-dages gratis prøveperiode og løft din e-mail-oplevelse!

pil blå højre bobleFlyt e-mail til den angivne mappe efter læsning i Outlook

Du kan flytte e-mail-beskeder til en bestemt mappe efter læsning med kørende VBA-kode i Outlook.

1. For det første skal du oprette et nyt mappenavn “Bedømt”Under mappen Indbakke.

2. Åbn mappen Indbakke, og tryk derefter på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

3. Dobbeltklik derefter for at udvide Project1 > Microsoft Outlook-objekter > Denne OutlookSession at åbne VbaProject.OTM editor.

4. Kopier og indsæt derefter nedenstående VBA-kode i VbaProject.OTM-editoren som vist i ovenstående skærmbillede.

VBA-kode: flyt meddelelser efter læsning

Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
    oMessage.Move oFolderDst
Next
End Sub 

5. Klik derefter på Gem for at gemme VBA-koden og derefter lukke Microsoft Visual Basic til applikationer vindue.

6. Højreklik på Hurtig adgangs værktøjslinje, og vælg Tilpas værktøjslinjen Hurtig adgang fra højreklikmenuen. Se skærmbillede:

7. i Outlook Options dialogboks skal du:

1). Vælg Makroer i Vælg kommandoer fra rulleliste

2). Vælg Projekt1. Denne OutlookSession i kassen under Vælg kommandoer fra rulleliste

3). Klik på Tilføj knap;

4). Klik på OK .

8. Så kan du se Makro knappen vises i Hurtig adgangs værktøjslinje. Sørg for, at du finder i den indbakke, du vil flytte alle de læste beskeder fra, og klik derefter på Makro knap for at køre VBA-koden inde i indbakken.

Noter:

1. Denne VBA-kode kan anvendes i Outlook 2007, 2010 og 2013; Men i Outlook 2007 kan du direkte klikke på Kør knappen for at køre koden.

2. Hvis der findes flere e-mail-konti i din Outlook, kan VBA-koden kun anvendes på den konto, hvilken datafil er indstillet som standard. Du kan kontrollere standarddatafilen ved at klikke på File (Felt) > INFO > Kontoindstillinger > Kontoindstillinger at åbne Kontoindstillinger dialog boks. Gå derefter til Datafil fanen, vil du se, at standarddatafilen er markeret med før.

3. Hvis du vil ændre standarddatafilen til en anden e-mail-konto, skal du vælge og fremhæve den konto, du vil indstille som standard, og derefter klikke på Indstillet som standard i Kontoindstillinger dialog boks.

4. Når du kører VBA-koden første gang og finder ud af, at de læste beskeder ikke flyttes på én gang, skal du fortsætte med at klikke på Makro-knappen, indtil alle læste beskeder i indbakken flyttes ud.


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 ProBatch 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 (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
I used this VBA code, but now all of the emails moved to "Reviewed" are gone? Any ideas why?
This comment was minimized by the moderator on the site
has anyone had this not work the second time you tried to apply it?
This comment was minimized by the moderator on the site
Buongiorno


Esiste la versione per Outlook 365 in italiano (non so se cambia qualcosa). Grazie
This comment was minimized by the moderator on the site
What line do I add when I only want this rule to apply to emails with a subject line including a word or text?
This comment was minimized by the moderator on the site
Where's all the Dim's?????????????????????/ o.0
This comment was minimized by the moderator on the site
I tried the above method but nothing happens. I verified the folder name was accurate and in the right location. I also set my main account as default, where i will be moving read messages from. I click on the Macro button...nothing. Help. Did I miss something.
This comment was minimized by the moderator on the site
You have to activate the references in VBA
This comment was minimized by the moderator on the site
Can this VBA code be altered to move messages from an Inbox subfolder to a "Reviewed" folder in said subfolder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations