Hoe kunt u de onderwerptekst in berichten of taken in Outlook zoeken en vervangen?

In Outlook kunt u meerdere onderwerpen van berichten of taken natuurlijk één voor één vervangen door een door u opgegeven tekst. Maar is er ook een snellere manier om deze taak in één keer uit te voeren in Outlook?

Onderwerptekst in meerdere berichten Zoeken en Vervangen met behulp van VBA-code

Onderwerptekst in meerdere taken Zoeken en Vervangen met behulp van VBA-code

---

Onderwerptekst in meerdere berichten Zoeken en Vervangen met behulp van VBA-code

Als u specifieke tekst in meerdere berichtonderwerpen wilt zoeken en vervangen door een andere tekst, helpt de onderstaande VBA-code u daarbij. Volg hiervoor de volgende stappen:

1. Selecteer de e-mails waarvan u de onderwerptekst wilt zoeken en vervangen, en druk vervolgens op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik vervolgens op 'Invoegen' > 'Module', kopieer de onderstaande code en plak deze in de lege module die verschijnt. Zie de schermafbeelding:

VBA-code: onderwerptekst in meerdere berichten Zoeken en Vervangen:

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 is `xNewSubject = Replace(.Subject, "kte", „[[PH_8]]")`, waarbij „kte” de oude tekst is die u wilt zoeken en „Kutools voor Excel” de nieuwe tekst waarmee u deze wilt vervangen. Pas deze waarden naar wens aan.

3. Druk daarna op „F5” om de code uit te voeren. De specifieke tekst in de berichtonderwerpen is nu vervangen door de nieuwe tekst, precies zoals u dat wenst. Zie schermafbeelding:

---

Onderwerptekst in meerdere taken Zoeken en Vervangen met behulp van VBA-code

Als u de onderwerptekst in taken wilt zoeken en vervangen, kan de volgende VBA-code u daarbij ook ondersteunen.

1. Druk op „ALT + F11” om het venster „Microsoft Visual Basic for Applications” te openen.

2. Klik vervolgens op 'Invoegen' > 'Module', kopieer de onderstaande code en plak deze in de lege module die verschijnt. Zie de schermafbeelding:

VBA-code: onderwerptekst in alle taken Zoeken en Vervangen:

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 daarna op „F5” om de code uit te voeren. Er verschijnt een invoervenster waarin u de tekst kunt typen die u wilt zoeken in de taakonderwerpen. Zie schermafbeelding:

4. Klik op „OK”. Er verschijnt een nieuw invoervenster waarin u de nieuwe tekst kunt invoeren die u wilt gebruiken als vervanging. Zie schermafbeelding:

5. Klik daarna op „OK”. Er verschijnt een dialoogvenster met het aantal gewijzigde onderwerpen. Zie de schermafbeelding:

6. Klik op „OK”. De oude tekst in de taakonderwerpen is nu vervangen door de nieuwe versie. Zie de schermafbeelding: