Wie kann man mithilfe von „Suchen und Ersetzen“ den Betreff innerhalb von Nachrichten oder Aufgaben in Outlook bearbeiten?

In Outlook können Sie, wenn mehrere Nachrichten- oder Aufgabenbeträge durch einen von Ihnen festgelegten Text ersetzt werden müssen, diese natürlich einzeln bearbeiten. Gibt es jedoch eine Möglichkeit, diese Aufgabe in Outlook schnell und auf einmal zu erledigen?

Suchen und Ersetzen Betrefftext innerhalb mehrerer Nachrichten mithilfe eines VBA-Codes

Suchen und Ersetzen Betrefftext innerhalb mehrerer Aufgaben mithilfe eines VBA-Codes

---

Suchen und Ersetzen Betrefftext innerhalb mehrerer Nachrichten mithilfe eines VBA-Codes

Um einen bestimmten Text in mehreren Nachrichtenbeiträgen zu suchen und durch einen anderen zu ersetzen, kann der folgende VBA-Code hilfreich sein. Gehen Sie dazu wie folgt vor:

1. Wählen Sie die E-Mails aus, deren Betreff Sie bearbeiten möchten, und drücken Sie anschließend „ALT + F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Klicken Sie anschließend auf „Einfügen“ > „Modul“, kopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein (siehe Screenshot):

VBA-Code: Suchen und Ersetzen den Betrefftext innerhalb mehrerer Nachrichten:

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

Hinweise: Im obigen Code steht `xNewSubject = Replace(.Subject, "kte", „[[PH_8]]")`; dabei ist „kte“ der alte Text, den Sie suchen möchten, und „Kutools für Excel“ der neue Text, durch den ersetzt werden soll. Passen Sie diese Angaben entsprechend Ihren Anforderungen an.

3. Drücken Sie anschließend die Taste „F5“, um den Code auszuführen. Der gesuchte Text in den Nachrichtenbeiträgen wurde nun durch den gewünschten neuen Text ersetzt (siehe Screenshot):

---

Suchen und Ersetzen Betrefftext innerhalb mehrerer Aufgaben mithilfe eines VBA-Codes

Möchten Sie den Betrefftext in Aufgaben suchen und ersetzen, hilft Ihnen der folgende VBA-Code ebenfalls weiter.

1. Drücken Sie die Tastenkombination „ALT + F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.

2. Klicken Sie anschließend auf „Einfügen“ > „Modul“, kopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein (siehe Screenshot):

VBA-Code: Suchen und Ersetzen den Betrefftext innerhalb aller Aufgaben:

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. Drücken Sie anschließend die Taste „F5“, um den Code auszuführen. Es erscheint ein Eingabefeld – geben Sie dort den Text ein, nach dem Sie in den Aufgabenbeträgen suchen möchten (siehe Screenshot):

4. Klicken Sie auf „OK“. Es erscheint ein weiteres Eingabefeld – geben Sie hier den neuen Text ein, durch den ersetzt werden soll (siehe Screenshot):

5. Klicken Sie erneut auf „OK“. Anschließend erscheint ein Dialogfeld, das Ihnen anzeigt, wie viele Beträge geändert wurden (siehe Screenshot):

6. Klicken Sie auf „OK“. Der alte Text in den Aufgabenbeträgen wurde nun durch den neuen Text ersetzt (siehe Screenshot):