Hoe vind je en vervang je tekst in het onderwerp van berichten of taken in Outlook?

Author Xiaoyang Last modified 2025-08-26

In Outlook, als er meerdere e-mailonderwerpen of taakonderwerpen moeten worden vervangen door een specifieke tekst, kun je ze natuurlijk één voor één wijzigen. Maar is er een snellere manier om dit in één keer te doen in Outlook?

Zoek en vervang onderwerp tekst binnen meerdere berichten met behulp van VBA-code

Zoek en vervang onderwerp tekst binnen meerdere taken met behulp van VBA-code

Zoek en vervang onderwerp tekst binnen meerdere berichten met behulp van VBA-code

Zoek de specifieke tekst en vervang deze door een andere tekst in meerdere berichtonderwerpen. De volgende VBA-code kan je helpen, volg hiervoor de volgende stappen:

1. Selecteer de e-mails waarin je de onderwerp tekst wilt zoeken en vervangen, en druk vervolgens op de toetsen "ALT + F11" om het venster "Microsoft Visual Basic for Applications" te openen.

2. Klik vervolgens op "Invoegen" > "Module", kopieer en plak de onderstaande code in de geopende lege module, zie screenshot:

VBA-code: Zoek en vervang de onderwerp tekst binnen meerdere berichten:

Option Explicit
Sub FindAndReplaceInSubject()
Dim xItem As Object
Dim xNewSubject As String
Dim xMailItem As MailItem
Dim xExplorer As Explorer
Dim i As Integer
On Error Resume Next
Set xExplorer = Outlook.Application.ActiveExplorer
For i = xExplorer.Selection.Count To 1 Step -1
    Set xItem = xExplorer.Selection.Item(i)
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        With xMailItem
            xNewSubject = Replace(.Subject, "kte", "Kutools for Excel")
            .Subject = xNewSubject
            .Save
        End With
    End If
Next
End Sub

Opmerkingen: In de bovenstaande code: xNewSubject = Replace(.Subject, "kte", "Kutools voor Excel"), "kte" is de oude tekst die je wilt zoeken, en "Kutools voor Excel" is de nieuwe tekst waarmee je wilt vervangen. Pas deze aan naar wens.

3. Druk vervolgens op de toets "F5" om deze code uit te voeren, en de specifieke tekst in de berichtonderwerpen is vervangen door de nieuwe tekst zoals je nodig hebt, zie screenshot:

Zoek en vervang onderwerp tekst binnen meerdere taken met behulp van VBA-code

Als je de onderwerp tekst in taken moet zoeken en vervangen, kan de volgende VBA-code je ook helpen.

1. Druk op de toetsen "ALT + F11" om het venster "Microsoft Visual Basic for Applications" te openen.

2. Klik vervolgens op "Invoegen" > "Module", kopieer en plak de onderstaande code in de geopende lege module, zie screenshot:

VBA-code: Zoek en vervang de onderwerp tekst binnen alle taken:

Option Explicit
Sub FindReplaceTextsInAllTaskSubjects()
Dim xPane As NavigationPane
Dim xModule As TasksModule
Dim xGroup As NavigationGroup
Dim xNavFolder As NavigationFolder
Dim xTaskItem As Outlook.TaskItem
Dim i, k As Integer
Dim xFindStr, xReplaceStr As String
Dim xTotalCount As Long
On Error Resume Next
xFindStr = InputBox("Type the words to find:", "Kutools for Outlook", xFindStr)
If Len(Trim(xFindStr)) = 0 Then Exit Sub
xReplaceStr = InputBox("Type the words to replace:", "Kutools for Outlook", xReplaceStr)
If Len(Trim(xReplaceStr)) = 0 Then Exit Sub
xTotalCount = 0
Set xPane = Outlook.Application.ActiveExplorer.NavigationPane
Set xModule = xPane.Modules.GetNavigationModule(olModuleTasks)
Set xGroup = xModule.NavigationGroups.Item(1)
For i = xGroup.NavigationFolders.Count To 1 Step -1
    Set xNavFolder = xGroup.NavigationFolders.Item(i)
    For k = xNavFolder.Folder.Items.Count To 1 Step -1
        Set xTaskItem = xNavFolder.Folder.Items(k)
        If InStr(xTaskItem.Subject, xFindStr) > 0 Then
            xTaskItem.Subject = Replace(xTaskItem.Subject, xFindStr, xReplaceStr)
            xTaskItem.Save
            xTotalCount = xTotalCount + 1
        End If
    Next
Next
MsgBox xTotalCount & " task subjects have been changed!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub

3. Druk vervolgens op de toets "F5" om deze code uit te voeren, en er verschijnt een dialoogvenster waarin je de tekst kunt invoeren die je wilt zoeken in de taakonderwerpen, zie screenshot:

4. Klik op "OK", en er verschijnt een ander dialoogvenster waarin je de nieuwe tekst kunt invoeren waarmee je wilt vervangen, zie screenshot:

5. Klik vervolgens op "OK", en er wordt een dialoogvenster weergegeven dat je vertelt hoeveel onderwerpen zijn gewijzigd, zie screenshot:

6. Klik op "OK", en de oude tekst in de taakonderwerpen is vervangen door de nieuwe tekst, zie screenshot:

Beste Office-productiviteitstools

Breaking News: Kutools for Outlook lanceert een gratis versie!

Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!

🤖 Kutools AI : Maakt gebruik van geavanceerde AI-technologie om e-mails moeiteloos te verwerken, zoals beantwoorden, samenvatten, optimaliseren, uitbreiden, vertalen en opstellen van e-mails.

📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...

📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...

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

🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...

👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...

👩🏼‍🤝‍👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...

Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!

Activeer Kutools for Outlook direct met één enkele klik. Wacht niet langer, download nu en verhoog je efficiëntie!

Functieoverzicht van Kutools for Outlook Nu downloaden Ga naar Aanschaffen

🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen

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

Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!

✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint

Over de Suite ⬇ Download de Suite 💳 Koop de Suite