Hoe vind je en vervang je tekst in het onderwerp van berichten of taken in Outlook?
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 productiviteitstools voor Office
Breaking News: Kutools voor Outlook lanceert gratis versie!
Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...
👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...
👩🏼🤝👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...
