Onderwerptekst zoeken en vervangen in berichten of taken in Outlook?
Als er in Outlook meerdere berichtonderwerpen zijn of taakonderwerpen moeten worden vervangen door de door u opgegeven tekst, kunt u deze natuurlijk een voor een wijzigen, maar kunt u deze taak snel in Outlook voltooien?
Zoek en vervang onderwerptekst in meerdere berichten met behulp van VBA-code
Zoek en vervang onderwerptekst binnen meerdere taken met behulp van VBA-code
Zoek en vervang onderwerptekst in meerdere berichten met behulp van VBA-code
Zoek de specifieke tekst en vervang deze door een andere in meerdere berichtonderwerpen, de onderstaande VBA-code kan u een plezier doen, doe dit met de volgende stappen:
1. Selecteer de e-mails die u wilt zoeken en vervang de onderwerptekst, en houd vervolgens de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Dan klikken Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module, zie screenshot:
VBA-code: zoek en vervang de onderwerptekst in meerdere berichten:
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: In de bovenstaande code: xNewSubject = Vervangen (.Subject, "kte", "Kutools for Excel")'kte"Is de oude tekst die u zoekt, en"Kutools for Excel”Is de nieuwe tekst die u wilt vervangen. Wijzig ze naar uw behoefte.
3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en de specifieke tekst in de berichtonderwerpen is vervangen door de nieuwe tekst zoals je nodig hebt, zie screenshot:
Zoek en vervang onderwerptekst binnen meerdere taken met behulp van VBA-code
Als u de onderwerptekst in taken moet zoeken en vervangen, kan de volgende VBA-code u ook helpen.
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Dan klikken Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module, zie screenshot:
VBA-code: zoek en vervang de onderwerptekst binnen alle taken:
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 vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster, typ de tekst die u wilt vinden van de taakonderwerpen, zie screenshot:
4. Klikken OK, en er verschijnt een ander promptvenster, voer de nieuwe tekst in waarmee u wilt vervangen, zie screenshot:
5. Dan klikken OK, en een dialoogvenster wordt weergegeven om u te vertellen hoeveel onderwerpen zijn gewijzigd, zie screenshot:
6. Klikken OK, en de oude teksten in de taakonderwerpen zijn vervangen door de nieuwe, zie screenshot:
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.