Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

 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

Opmerking:: 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.

doc onderwerpen vervangen 1

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:

doc onderwerpen vervangen 2


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:

doc onderwerpen vervangen 3

4. Klikken OK, en er verschijnt een ander promptvenster, voer de nieuwe tekst in waarmee u wilt vervangen, zie screenshot:

doc onderwerpen vervangen 4

5. Dan klikken OK, en een dialoogvenster wordt weergegeven om u te vertellen hoeveel onderwerpen zijn gewijzigd, zie screenshot:

doc onderwerpen vervangen 5

6. Klikken OK, en de oude teksten in de taakonderwerpen zijn vervangen door de nieuwe, zie screenshot:

doc onderwerpen vervangen 6


Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ng Chun Lee · 11 months ago
    Is there a way to change the subject line of email(s) in a folder (window level) via vba?