Hoe verplaatst u een e-mailbericht na het lezen naar een opgegeven map in Outlook?

Het verplaatsen van een e-mailbericht naar een opgegeven map na het lezen is een uitstekende manier om uw Postvak IN in Outlook netjes en overzichtelijk te houden. Veel Outlook-gebruikers proberen hiervoor een regel in te stellen via de regelwizard, maar in werkelijkheid ondersteunt Outlook dit scenario helaas niet. In dit artikel laten we u zien hoe u gelezen e-mails alsnog automatisch kunt verplaatsen naar een map van uw keuze — met behulp van VBA-code in Outlook.

Verplaats een e-mailbericht naar een opgegeven map na het lezen in Outlook

Verplaats een e-mailbericht naar een opgegeven map na het lezen in Outlook

U kunt e-mailberichten na het lezen automatisch verplaatsen naar een opgegeven map door VBA-code uit te voeren in Outlook.

1. Maak eerst een nieuwe map aan met de naam „Beoordeeld” onder de Postvak IN-map.

2. Open de Postvak IN-map en druk vervolgens op de toetsencombinatie Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

3. Dubbelklik vervolgens op Project1 > Microsoft Outlook-objecten > ThisOutlookSession om deze te openen in de VbaProject.OTM-editor.

4. Kopieer en plak vervolgens de onderstaande VBA-code in de VbaProject.OTM-editor, zoals te zien is in de bovenstaande schermafbeelding.

VBA-code: verplaats berichten na lezen

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 vervolgens op de knop Opslaan om de VBA-code op te slaan en sluit daarna het venster Microsoft Visual Basic for Applications.

6. Klik met de rechtermuisknop op de Snelle toegangswerkbalk en selecteer Snelle toegangswerkbalk aanpassen in het contextmenu. Zie schermafbeelding:

7. In het dialoogvenster Outlook-opties moet u het volgende doen:

1). Selecteer Macro's bij Opdrachten kiezen uit in het keuzemenu;

2). Selecteer Project1. ThisOutlookSession in het vak onder de keuzelijst Opdrachten kiezen uit;

3). Klik op de knop Toevoegen;

4). Klik op de knop OK.

8. Vervolgens verschijnt de knop Macro in de Snelle toegangswerkbalk. Zorg ervoor dat u zich bevindt in de Postvak IN-map waaruit u alle gelezen berichten wilt verplaatsen, en klik daarna op de knop Macro om de VBA-code uit te voeren binnen het Postvak IN.

Opmerkingen:

1. Deze VBA-code kan worden toegepast in Outlook 2007, 2010 en 2013; in Outlook 2007 kunt u direct op de knop Uitvoeren klikken om de code uit te voeren.

2. Als er meerdere e-mailaccounts in uw Outlook aanwezig zijn, werkt de VBA-code alleen op het account waarvan het gegevensbestand is ingesteld als standaard. U kunt het standaard gegevensbestand controleren door te klikken op Bestand > Info > Accountinstellingen > Accountinstellingen om het dialoogvenster Accountinstellingen te openen. Ga vervolgens naar het tabblad Gegevensbestand, waar u ziet dat het standaard gegevensbestand wordt aangegeven met ervoor.

3. Als u het standaard gegevensbestand wilt wijzigen naar een ander e-mailaccount, selecteert u het gewenste account, markeert u dit en klikt u vervolgens op Instellen als standaard in het dialoogvenster Accountinstellingen.

4. Wanneer u de VBA-code voor de eerste keer uitvoert en merkt dat niet alle gelezen berichten in één keer worden verplaatst, blijft u gewoon op de Macro-knop klikken totdat alle gelezen berichten uit het Postvak IN zijn verwijderd.

---

Beste Office-productiviteitstools

Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!

🤖KUTOOLS AI:Gebruikt geavanceerde AI-technologie om e-mails moeiteloos te verwerken, waaronder beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP), e-mails plannen om te verzenden, automatisch CC/BCC toepassen op basis van regels bij het verzenden van e-mails, automatisch doorsturen (geavanceerde regels), automatisch een begroeting toevoegen en e-mails met meerdere ontvangers automatisch splitsen in afzonderlijke berichten…

📨E-mailbeheer: E-mail terughalen, spam-e-mails blokkeren op basis van onderwerp en andere criteria, dubbele e-mails verwijderen, geavanceerd zoeken en mappen organiseren…

📁Bijlagen Pro: Batch opslaan, batch loskoppelen, batch comprimeren, automatisch opslaan, automatisch loskoppelen en automatisch comprimeren…

🌟Interface-magie: 😊 Nog meer mooie en coole emoji’s / Waarschuwt u bij binnenkomst van belangrijke e-mails / Minimaliseert Outlook in plaats van het programma te sluiten...

👍Eénklikwonderen: Antwoord Allen met Bijlagen / Anti-phishing-e-mails / 🕘Huidige tijd van afzender-zone weergeven...

👩🏼‍🤝‍👩🏻Contacten & agenda: Batch Contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen in afzonderlijke groepen / Verjaardagsherinnering verwijderen…

Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

Ontgrendel Kutools voor Outlook direct met één klik! Wacht niet langer—download nu en verhoog uw efficiëntie!

Functielijst van Kutools voor Outlook      Nu downloaden      Naar aankoop gaan

🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)

Eén klik om vijf installatiebestandentegelijk te downloaden —Kutools voor Excel, Outlook, Word, PowerPointen Office Tab Pro.Klik nu om te downloaden!

• ✅Eénkliksgemak: Download alle vijf installatiepakketten in één keer.
• 🚀Klaar voor elke Office-taak: Installeer de invoegtoepassingen die u nodig heeft, precies op het moment dat u ze nodig heeft.
• 🧰Inbegrepen: Kutools voor Excel / Kutools voor Outlook / Kutools voor Word / Office Tab Pro / Kutools for PowerPoint

Over het pakket⬇ Download het pakket💳 Koop het pakket