Zum Hauptinhalt springen

Wie kann man den Betreff-Text in E-Mails oder Aufgaben in Outlook finden und ersetzen?

Author: Xiaoyang Last Modified: 2025-05-28

In Outlook, wenn mehrere E-Mail-Betreffzeilen oder Aufgabenbetreffzeilen durch einen von Ihnen festgelegten Text ersetzt werden müssen, können Sie diese natürlich einzeln ändern. Gibt es jedoch eine schnelle Möglichkeit, diese Aufgabe auf einmal in Outlook zu erledigen?

Suchen und Ersetzen des Betreff-Textes in mehreren E-Mails mithilfe von VBA-Code

Suchen und Ersetzen des Betreff-Textes in mehreren Aufgaben mithilfe von VBA-Code


Suchen und Ersetzen des Betreff-Textes in mehreren E-Mails mithilfe von VBA-Code

Um bestimmte Texte in mehreren E-Mail-Betreffzeilen zu finden und durch einen anderen zu ersetzen, kann der folgende VBA-Code helfen. Bitte folgen Sie diesen Schritten:

1. Wählen Sie die E-Mails aus, in denen Sie den Betreff-Text finden und ersetzen möchten, und drücken Sie dann die Tasten "ALT + F11", um das Fenster "Microsoft Visual Basic for Applications" zu öffnen.

2. Klicken Sie anschließend auf "Einfügen" > "Modul", kopieren Sie den unten stehenden Code und fügen Sie ihn in das geöffnete leere Modul ein, siehe Screenshot:

VBA-Code: Suchen und Ersetzen des Betreff-Textes in mehreren E-Mails:

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

Hinweis: Im obigen Code: xNewSubject = Replace(.Subject, "kte", "Kutools for Excel"), "kte" ist der alte Text, den Sie finden möchten, und "Kutools for Excel" ist der neue Text, mit dem Sie ihn ersetzen möchten. Bitte passen Sie diese an Ihre Bedürfnisse an.

doc replace subjects 1

3. Drücken Sie dann die Taste "F5", um diesen Code auszuführen, und der spezifische Text in den E-Mail-Betreffzeilen wurde durch den neuen Text ersetzt, wie Sie es benötigen, siehe Screenshot:

doc replace subjects 2

Suchen und Ersetzen des Betreff-Textes in mehreren Aufgaben mithilfe von VBA-Code

Wenn Sie den Betreff-Text in Aufgaben finden und ersetzen müssen, kann Ihnen der folgende VBA-Code ebenfalls helfen.

1. Halten Sie die Tasten "ALT + F11" gedrückt, um das Fenster "Microsoft Visual Basic for Applications" zu öffnen.

2. Klicken Sie dann auf "Einfügen" > "Modul", kopieren Sie den unten stehenden Code und fügen Sie ihn in das geöffnete leere Modul ein, siehe Screenshot:

VBA-Code: Suchen und Ersetzen des Betreff-Textes in allen 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 dann die Taste "F5", um diesen Code auszuführen, und ein Eingabefenster erscheint. Geben Sie bitte den Text ein, den Sie in den Aufgabenbetreffzeilen finden möchten, siehe Screenshot:

doc replace subjects 3

4. Klicken Sie auf "OK", und ein weiteres Eingabefenster erscheint. Geben Sie bitte den neuen Text ein, mit dem Sie ihn ersetzen möchten, siehe Screenshot:

doc replace subjects 4

5. Klicken Sie auf "OK", und ein Dialogfeld wird angezeigt, das Ihnen mitteilt, wie viele Betreffzeilen geändert wurden, siehe Screenshot:

doc replace subjects 5

6. Klicken Sie auf "OK", und die alten Texte in den Aufgabenbetreffzeilen wurden durch die neuen ersetzt, siehe Screenshot:

doc replace subjects 6

Beste Office-Produktivitätstools

Eilmeldung: Kutools für Outlook startet kostenlose Version!

Erleben Sie die brandneue kostenlose Version von Kutools für Outlook mit über70 unglaublichen Funktionen, die Sie FÜR IMMER nutzen können! Klicken Sie jetzt, um herunterzuladen!

🤖 Kutools AI : Nutzt fortschrittliche KI-Technologie, um E-Mails mühelos zu bearbeiten, einschließlich Antworten, Zusammenfassen, Optimieren, Erweitern, Übersetzen und Verfassen von E-Mails.

📧 E-Mail-Automatisierung: Automatische Antwort (Verfügbar für POP und IMAP) / E-Mails senden planen / Automatische CC/BCC nach Regeln beim Senden von E-Mails / Automatische Weiterleitung (Erweiterte Regeln) / Automatische Begrüßung hinzufügen / Automatisches Aufteilen von E-Mails mit mehreren Empfängern in einzelne Nachrichten ...

📨 E-Mail-Management: E-Mails zurückrufen / Betrugs-E-Mails nach Betreff und anderen blockieren / Duplikate E-Mails löschen / Erweiterte Suche / Ordner organisieren ...

📁 Anhänge Pro: Stapelspeichern / Stapelablösen / Stapelkomprimieren / Automatisch speichern / Automatisch abtrennen / Automatische Komprimierung ...

🌟 Interface Magic: 😊Mehr hübsche und coole Emojis / Erinnern Sie, wenn wichtige E-Mails kommen / Outlook minimieren statt schließen ...

👍 Ein-Klick-Wunder: Allen mit Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...

👩🏼‍🤝‍👩🏻 Kontakte & Kalender: Kontakte aus ausgewählten E-Mails stapelweise hinzufügen / Eine Kontaktgruppe in einzelne Gruppen aufteilen / Geburtstagserinnerung entfernen ...

Entsperren Sie Kutools für Outlook sofort mit einem Klick. Warten Sie nicht, laden Sie jetzt herunter und steigern Sie Ihre Effizienz!

kutools for outlook features1 kutools for outlook features2