Wie finde und ersetze ich Betreff in Nachrichten oder Aufgaben in Outlook?
Wenn in Outlook mehrere Nachrichtenthemen oder Aufgabenthemen durch den angegebenen Text ersetzt werden müssen, können Sie diese natürlich einzeln ändern. Haben Sie jedoch eine schnelle Möglichkeit, diesen Job in Outlook sofort zu beenden?
Suchen und ersetzen Sie Betreff in mehreren Nachrichten mithilfe von VBA-Code
Suchen und Ersetzen von Betreff innerhalb mehrerer Aufgaben mithilfe von VBA-Code
Suchen und ersetzen Sie Betreff in mehreren Nachrichten mithilfe von VBA-Code
Suchen Sie den spezifischen Text und ersetzen Sie ihn durch einen anderen in mehreren Betreffzeilen. Der folgende VBA-Code kann Ihnen einen Gefallen tun. Führen Sie die folgenden Schritte aus:
1. Wählen Sie die E-Mails aus, die Sie suchen möchten, und ersetzen Sie den Betreff. Halten Sie dann die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Dann klick Insert > 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 Sie den Betreff in mehreren 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
Note: Im obigen Code: xNewSubject = Ersetzen (.Subject, "kte", "Kutools for Excel")"kte"Ist der alte Text, den Sie finden möchten, und"Kutools for Excel”Ist der neue Text, durch den Sie ersetzen möchten. Bitte ändern Sie sie nach Ihren Wünschen.
3. Dann drücken F5 Der Schlüssel zum Ausführen dieses Codes und der spezifische Text in den Betreffzeilen der Nachricht wurden nach Bedarf durch den neuen Text ersetzt. Siehe Screenshot:
Suchen und Ersetzen von Betreff innerhalb mehrerer Aufgaben mithilfe von VBA-Code
Wenn Sie den Betreff in Aufgaben suchen und ersetzen müssen, kann Ihnen auch der folgende VBA-Code helfen.
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Dann klick Insert > 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 Sie den Betreff 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. Dann drücken F5 Geben Sie den Text ein, den Sie in den Aufgabenbereichen finden möchten (siehe Abbildung):
4. Klicken Sie OKGeben Sie den neuen Text ein, durch den Sie ersetzen möchten, siehe Screenshot:
5. Dann klick OKund ein Dialogfeld wird angezeigt, in dem Sie erfahren, wie viele Themen geändert wurden (siehe Screenshot):
6. Klicken Sie OKund die alten Texte in den Aufgabenthemen wurden durch die neuen ersetzt, siehe Screenshot:
Beste Office-Produktivitätstools
Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks
🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...
📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP) / Planen Sie das Senden von E-Mails / Automatisches CC/BCC nach Regeln beim E-Mail-Versand / Automatische Weiterleitung (erweiterte Regeln) / Begrüßung automatisch hinzufügen / Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...
📨 E-Mail-Management: E-Mails einfach abrufen / Blockieren Sie betrügerische E-Mails nach Betreff und anderen / Doppelte E-Mails löschen / Erweiterte Suche / Ordner konsolidieren ...
📁 Anhänge Pro: Batch speichern / Stapeltrennung / Stapelkomprimierung / Automatisches Speichern / Automatische Trennung / Automatische Komprimierung ...
???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis / Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten / Ausblick minimieren statt schließen ...
👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu / Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf / Geburtstagserinnerungen entfernen ...
Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.
