Wie kann man den Betreff-Text in E-Mails oder Aufgaben in Outlook finden und ersetzen?
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.
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:
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:
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:
5. Klicken Sie auf "OK", und ein Dialogfeld wird angezeigt, das Ihnen mitteilt, wie viele Betreffzeilen geändert wurden, siehe Screenshot:
6. Klicken Sie auf "OK", und die alten Texte in den Aufgabenbetreffzeilen wurden durch die neuen ersetzt, siehe Screenshot:
Beste Office-Produktivitätstools
Eilmeldung: Kutools für Outlook startet kostenlose Version!
Erleben Sie das komplett neue Kutools für Outlook mit über100 beeindruckenden Funktionen! Jetzt herunterladen!
📧 E-Mail-Automatisierung: Automatische Antwort (verfügbar für POP und IMAP) /E-Mails zeitgesteuert senden /Automatische CC/BCC nach Regel beim Senden von E-Mails /Automatische Weiterleitung (Erweiterte Regeln) /Automatisches Hinzufügen von Begrüßungen / Mehrfache Empfänger-E-Mails automatisch in einzelne E-Mail-Nachrichten aufteilen...
📨 E-Mail-Verwaltung: E-Mails zurückrufen /Betrugsversuche anhand des Betreffs und anderer Kriterien blockieren /Duplikate E-Mails löschen /Erweiterte Suche /Ordner organisieren...
📁 Anhänge Pro:Stapelweise speichern /Stapelweise abtrennen /Stapelweise komprimieren /Automatisch speichern /Automatisch abtrennen/Automatische Komprimierung...
🌟 Interface-Magie: 😊Mehr attraktive und coole Emojis /Benachrichtigung bei wichtigen E-Mails /Outlook minimieren statt schließen...
👍 Ein-Klick-Wunder: Allen mit Anhängen antworten /Anti-Phishing-E-Mails /🕘Zeitzone des Absenders anzeigen...
👩🏼🤝👩🏻 Kontakte & Kalender: Kontakte stapelweise aus ausgewählten E-Mails hinzufügen /Eine Kontaktgruppe in einzelne Gruppen aufteilen /Geburtstagserinnerung entfernen...
Verwenden Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere!
