Hoe maakt u een map aan in Outlook om e-mails te ordenen die van of aan specifieke personen zijn gericht?

Overweldigd door een rommelige inbox? In deze handleiding presenteer ik drie methoden om e-mails met specifieke personen in Outlook te ordenen—voor meer overzicht en efficiëntie.

Verplaats e-mails die bepaalde personen bevatten altijd naar een aangemaakte map

1. Klik met de rechtermuisknop op het e-mailaccount waarvoor u een map wilt maken om uw e-mails te ordenen, kies 'Nieuwe map' in het contextmenu en geef de map een duidelijke naam.

2. Selecteer in uw Postvak IN of in de map Verzonden items een willekeurig e-mailbericht dat het specifieke e-mailadres bevat waarvan u alle berichten naar de aangemaakte map wilt verplaatsen.

3. Klik op het tabblad **Start**, ga naar de groep **Verplaatsen**, en selecteer **Regels** > **Berichten van: specifiek e-mailadres altijd verplaatsen** en/of **Regels** > **Berichten naar: specifiek e-mailadres altijd verplaatsen**, afhankelijk van uw behoeften.

4. Geef in het dialoogvenster 'Regels en waarschuwingen' dat verschijnt de map op waarin u de berichten wilt plaatsen, en klik op 'OK'.

5. E-mails in het Postvak IN of de map Verzonden items die aan de voorwaarden voldoen, worden nu verplaatst naar de map die u zojuist hebt aangemaakt. Toekomstige e-mails die aan deze voorwaarden voldoen, gaan direct naar dezelfde map.

Maak een zoekmap aan om e-mails van specifieke personen automatisch te ordenen

Als u de berichten niet naar een map wilt verplaatsen, maar ze wel gemakkelijk wilt bekijken, kunt u een zoekmap aanmaken in Outlook. Hiermee kunt u e-mailberichten die aan bepaalde criteria voldoen, vinden in meerdere mappen, terwijl ze in hun oorspronkelijke mappen blijven.

1. Klik in de groep 'Nieuw' op het tabblad 'Map' en selecteer 'Nieuwe zoekmap'.

2. Volg in het dialoogvenster „Nieuwe zoekmap" dat verschijnt de onderstaande stappen:

• 1) Selecteer in het vak 'Selecteer een zoekmap' uit de lijst 'E-mail van personen en lijsten' de optie 'E-mail van en naar specifieke personen' of 'E-mail van specifieke personen', afhankelijk van uw behoefte.
• 2) Klik in het vak 'Zoekmap aanpassen' op 'Kiezen' om personen uit uw adreslijst te selecteren.
• 3) Geef het e-mailaccount op waarin u e-mails wilt zoeken.
• 4) Klik op 'OK'.

3. Er wordt een zoekmap aangemaakt onder Zoekmappen, met daarin alle e-mailberichten die voldoen aan de voorwaarden.

Maak in batch mappen aan om e-mails voor al uw e-mailaccounts te ordenen met VBA

Als u meerdere e-mailaccounts hebt in Outlook en voor elk account tegelijkertijd mappen wilt aanmaken voor specifieke personen, kunt u de VBA-methode gebruiken om berichten van of aan die personen automatisch te verplaatsen uit de Postvakken IN of Verzonden items. Volg hiervoor de onderstaande stappen.

1. Klik in uw Outlook op "Bestand" > "Opties" > „Trustcentrum" en daarna op „Trustcentruminstellingen".

2. Ga in het weergegeven dialoogvenster naar 'Macro-instellingen', selecteer 'Alle macro's inschakelen' en schakel 'Macro-beveiligingsinstellingen toepassen op geïnstalleerde invoegtoepassingen' in.

3. Klik op 'OK' om de dialoogvensters te sluiten.

4. Druk op de toetsencombinatie Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

5. Klik op 'Invoegen' > 'Module' en plak daarna een van de volgende VBA-codes in het modulevenster.

VBA-code 1: Maak in batch mappen aan om e-mails met specifieke afzenders te ordenen in de Postvakken IN van Alle Accounts

Sub MailArchiveSenderInInbox()
'Update by ExtendOffice
Dim I As Integer
Dim xAccount As Account
Dim xItem As Object
Dim xMail As MailItem
Dim xNewFolder As Folder
Dim xInboxFolder As Folder
Dim xSenderAddress As String
Dim xRecipient As Recipient
Dim xFolderName As String
xFolderName = "NewFolder" 'Replace "NewFolder" with desired folder name
Const PR_SMTP_ADDRESS = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
For Each xAccount In Application.Session.Accounts
  Set xInboxFolder = xAccount.DeliveryStore.GetDefaultFolder(olFolderInbox)
  Set xNewFolder = Nothing
  Set xNewFolder = xAccount.DeliveryStore.GetRootFolder.Folders(xFolderName)
  If xNewFolder Is Nothing Then
    Set xNewFolder = xAccount.DeliveryStore.GetRootFolder.Folders.Add(xFolderName)
  End If
  For I = xInboxFolder.Items.Count To 1 Step -1
    Set xItem = xInboxFolder.Items.Item(I)
    If xItem.Class = olMail Then
      Set xMail = xItem
      xSenderAddress = ""
      If xMail.Sender.Type = "EX" Then
        xSenderAddress = xMail.Sender.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
      Else
        xSenderAddress = xMail.SenderEmailAddress
      End If
      If xSenderAddress = "" Then
        xSenderAddress = xMail.SenderEmailAddress
      End If
      If VBA.InStr(xSenderAddress, "name@example.com") <> 0 Then
        xMail.Move xNewFolder
      End If
    End If
  Next
  If xNewFolder.Items.Count = 0 Then
    xNewFolder.Delete
    xAccount.DeliveryStore.GetDefaultFolder(olFolderDeletedItems).Folders(xFolderName).Delete
  End If
Next
Set xInboxFolder = Nothing
Set xNewFolder = Nothing
End Sub

Opmerking: vervang de specifieke codefragmenten zoals aangegeven in de opmerkingen op regel 12, 16 en 35 van de bovenstaande VBA-code.

VBA-code 2: Maak in batch mappen aan om e-mails met specifieke ontvangers te ordenen in de Postvakken IN van Alle Accounts

Sub MailArchiveRecipientInInbox()
'Update by ExtendOffice
Dim I As Integer
Dim xAccount As Account
Dim xItem As Object
Dim xMail As MailItem
Dim xNewFolder As Folder
Dim xInboxFolder As Folder
Dim xSenderAddress As String
Dim xRecipient As Recipient
Dim xFolderName As String
xFolderName = "NewFolder"
Const PR_SMTP_ADDRESS = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
For Each xAccount In Application.Session.Accounts
  Set xInboxFolder = xAccount.DeliveryStore.GetDefaultFolder(olFolderSentMail)
  Set xNewFolder = Nothing
  Set xNewFolder = xAccount.DeliveryStore.GetRootFolder.Folders(xFolderName)
  If xNewFolder Is Nothing Then
    Set xNewFolder = xAccount.DeliveryStore.GetRootFolder.Folders.Add(xFolderName)
  End If
  For I = xInboxFolder.Items.Count To 1 Step -1
    Set xItem = xInboxFolder.Items.Item(I)
    If xItem.Class = olMail Then
      Set xMail = xItem
      xSenderAddress = ""
      For Each xRecipient In xMail.Recipients
'        If xRecipient.Type = olCC Then
            xSenderAddress = xSenderAddress & ", " & xRecipient.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
            If xSenderAddress = "" Then
              xSenderAddress = xSenderAddress & ", " & xRecipient.Address
            End If
'        End If
      Next
      If VBA.InStr(xSenderAddress, "name@example.com") <> 0 Then
        xMail.Move xNewFolder
      End If
    End If
  Next
  If xNewFolder.Items.Count = 0 Then
    xNewFolder.Delete
    xAccount.DeliveryStore.GetDefaultFolder(olFolderDeletedItems).Folders(xFolderName).Delete
  End If
Next
Set xInboxFolder = Nothing
Set xNewFolder = Nothing
End Sub

Opmerking:

• 1) Vervang de specifieke codefragmenten zoals aangegeven in de opmerkingen op regels 12, 16 en 35 van de bovenstaande VBA-code.
• 2) Om berichten te archiveren die specifieke CC- of BCC-ontvangers bevatten, verwijdert u het commentaarteken (') aan het begin van regel 28 en regel 33 om deze regels te activeren.

6. Druk op F5 om de VBA-code uit te voeren. Er wordt een nieuwe map aangemaakt als er berichten zijn die aan de voorwaarden voldoen.

Gerelateerde artikelen

---

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