Hoe verplaats ik een e-mailbericht naar de opgegeven map na het lezen in Outlook?

Het verplaatsen van een e-mailbericht naar een opgegeven map na het lezen is de beste manier om de map Inbox schoon te houden in Outlook. Voor veel Outlook-gebruikers hebben ze de neiging om een ​​regel te maken voor het verplaatsen van deze gelezen e-mails. In feite ondersteunt Outlook dit regelwizardproces niet. In dit artikel laten we u zien hoe u e-mailberichten naar de opgegeven map kunt verplaatsen na het lezen met VBA-code in Outlook.

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

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

U kunt e-mailberichten naar een opgegeven map verplaatsen na het lezen met het uitvoeren van VBA-code in Outlook.

1. Ten eerste moet u een nieuwe mapnaam maken “Beoordeeld”Onder de map Inbox.

2. Open de map Inbox en druk op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. Dubbelklik vervolgens om uit te vouwen Project1 > Microsoft Outlook-objecten > DezeOutlookSessie om de te openen VbaProject.OTM editor.

4. Kopieer en plak vervolgens de onderstaande VBA-code naar de VbaProject.OTM-editor zoals weergegeven in de bovenstaande schermafbeelding.

VBA-code: verplaats berichten na het 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 het Bespaar knop om de VBA-code op te slaan en sluit vervolgens het Microsoft Visual Basic voor toepassingen venster.

6. Klik met de rechtermuisknop op het Snelle toegangswerkbalkEn Select Pas de werkbalk Snelle toegang aan vanuit het rechtsklikmenu. Zie screenshot:

7. In de Outlook Opties dialoogvenster, moet u:

1). Selecteer Macro's in de Kies opdrachten van keuzelijst;

2). Selecteer Project 1. ThisOutlookSession in het vak onder de Kies opdrachten van keuzelijst;

3). Klik op de Toevoegen knop;

4). Klik op de OK knop.

8. Dan zie je het Macro knop weergegeven in de Snelle toegangswerkbalk. Zorg ervoor dat u zich in de inboxmap bevindt waaruit u alle gelezen berichten wilt verplaatsen en klik vervolgens op het Macro knop om de VBA-code in de Inbox uit te voeren.

Opmerkingen:

1. Deze VBA-code kan worden toegepast in Outlook 2007, 2010 en 2013; Maar in Outlook 2007 kunt u rechtstreeks op het lopen knop om de code uit te voeren.

2. Als er meerdere e-mailaccounts in uw Outlook bestaan, kan de VBA-code alleen worden toegepast in het account waarvan het gegevensbestand als standaard is ingesteld. U kunt het standaardgegevensbestand controleren door op te klikken Dien in > Info > accountinstellingen > accountinstellingen om de te openen accountinstellingen dialoog venster. Ga dan naar het Data bestand tabblad, ziet u dat het standaard gegevensbestand is gemarkeerd met voor.

3. Als u het standaardgegevensbestand wilt wijzigen in een ander e-mailaccount, selecteer en markeer dan het account dat u als standaard wilt instellen en klik vervolgens op Instellen als standaard in de accountinstellingen dialoog venster.

4. Als u de VBA-code de eerste keer uitvoert en erachter komt dat de gelezen berichten niet allemaal tegelijk worden verplaatst, blijf dan op de Macro-knop klikken totdat alle gelezen berichten in de Inbox zijn verwijderd.

---

Beste Office-productiviteitstools

Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven

🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...

???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP)  /  Plan het verzenden van e-mails  /  Automatische CC/BCC volgens regels bij het verzenden van e-mail  /  Automatisch doorsturen (geavanceerde regels)   /  Begroeting automatisch toevoegen   /  Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...

📨 email management: Gemakkelijk e-mails herinneren  /  Blokkeer zwendel-e-mails van onderwerpen en anderen  /  Verwijder dubbele e-mails  /  Uitgebreid Zoeken  /  Consolideer mappen ...

📁 Bijlagen Pro: Batch opslaan  /  Batch losmaken  /  Batchcompressie  /  Automatisch opslaan   /  Automatisch loskoppelen  /  Automatisch comprimeren ...

???? Interface-magie: 😊Meer mooie en coole emoji's   /  Verhoog uw Outlook-productiviteit met weergaven met tabbladen  /  Minimaliseer Outlook in plaats van te sluiten ...

???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen  /   Antiphishing-e-mails  /  🕘Toon de tijdzone van de afzender ...

👩🏼‍🤝‍👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails  /  Splits een contactgroep in individuele groepen  /  Verwijder verjaardagsherinneringen ...

Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.

Lees meer       Gratis download      Koop nu jouw