Hoe zoek je en vervang je een afspraakonderwerp in de Outlook-agenda?
Het zoeken en vervangen van een afspraakonderwerp in de Outlook-agenda is handig wanneer je merkt dat sommige onderwerpen in bulk moeten worden vervangen door dezelfde tekst. Of het woord 'Kopie' in het onderwerp veld vervangen na het importeren van gegevens in Outlook. Dit artikel biedt je VBA-code om meerdere afspraakonderwerpen te zoeken en te vervangen. Bekijk voor meer details.
Zoek en vervang afspraakonderwerp met VBA-code
Zoek en vervang afspraakonderwerp met VBA-code
In deze sectie kun je een afspraakonderwerp zoeken en vervangen met VBA-code zoals hieronder.
1. Eerst moet je de macro-instellingen in je Outlook op laag instellen.
1) In Outlook 2010 en 2013, klik op "Bestand" > "Opties". En in het dialoogvenster "Outlook Opties", klik op "Trust Center" in de linker balk, dan klik je op de knop "Trust Center Instellingen".
In het dialoogvenster "Trust Center", klik op "Macro-instellingen" in de linker balk, selecteer dan de optie "Alle macro's inschakelen" in de sectie "Macro-instellingen". Klik op de knop "OK". Zie screenshot:
2) In Outlook 2007, klik op "Tools" > "Trust Center". In het dialoogvenster "Trust Center", klik op "Macro-instellingen" in de linker balk, selecteer dan de optie "Geen beveiligingscontrole voor macro's" en klik op de knop "OK".
2. Druk op de toetsen "Alt" + "F11" om het venster "Microsoft Visual Basic for Applications" te openen.
3. Dubbelklik in het venster "Microsoft Visual Basic for Applications" om "project1" > "Microsoft Outlook Objecten" > "ThisOutlookSession" uit te breiden en open de VBA-editor. Zie screenshot:
4. Kopieer en plak de volgende VBA-code in de VBA-editor. Druk vervolgens op de toets "F5" om de code uit te voeren.
VBA: zoek en vervang afspraakonderwerp
Sub FindReplaceAppointment()
Dim oApp As Outlook.Application
Dim oCalFolder As Outlook.MAPIFolder
Dim oAppt As Outlook.AppointmentItem
Dim sOldText As String
Dim sNewText As String
Dim iCalChangedCount As Integer
Set oApp = Outlook.Application
MsgBox ("This script will perform a find/replace in the subject line of all appointments in a specified calendar.")
sOldText = InputBox("What is the text string that you would like to replace?")
sNewText = InputBox("With what would you like to replace it?")
' Check to be sure a Calendar folder was selected
Do
If Not (oCalFolder Is Nothing) Then
If (oCalFolder.DefaultItemType = olAppointmentItem) Then Exit Do
End If
MsgBox ("Please select a calendar folder from the following list.")
Set oCalFolder = Application.Session.PickFolder
On Error GoTo ErrHandler:
Loop Until oCalFolder.DefaultItemType = olAppointmentItem
' Loop through appointments in calendar, change text where necessary, keep count
iCalChangedCount = 0
For Each oAppt In oCalFolder.Items
If InStr(oAppt.Subject, sOldText) <> 0 Then
Debug.Print "Changed: " & oAppt.Subject & " - " & oAppt.Start
oAppt.Subject = Replace(oAppt.Subject, sOldText, sNewText)
oAppt.Save
iCalChangedCount = iCalChangedCount + 1
End If
Next
' Display results and clear table
MsgBox (iCalChangedCount & " appointments had text in their subjects changed from '" & sOldText & "' to '" & sNewText & "'.")
Set oAppt = Nothing
Set oCalFolder = Nothing
Exit Sub
ErrHandler:
MsgBox ("Macro terminated.")
End Sub
5. Na het uitvoeren van de code, verschijnt er een dialoogvenster "Microsoft Outlook". Klik op de knop "OK".
6. Voer in het tweede dialoogvenster "Microsoft Outlook" de tekst in die je wilt vervangen en klik vervolgens op de knop "OK".
7. Voer in het derde dialoogvenster "Microsoft Outlook" de tekst in die je als vervanging wilt gebruiken en klik op "OK".
Opmerking: Als je alle woorden “Kopie” uit het onderwerp in de aangegeven agenda wilt verwijderen, laat dit vak dan leeg.
8. Klik op de knop "OK" in het onderstaande dialoogvenster.
9. Selecteer in het dialoogvenster "Selecteer map" je agenda onder het aangegeven e-mailaccount en klik vervolgens op de knop "OK". Zie screenshot:
10. Er verschijnt een dialoogvenster om je te informeren dat de vervanging succesvol is. Klik op de knop "OK".
11. Alle teksten in de onderwerpen van de geselecteerde agenda zijn vervangen door de nieuwe inhoud.
Beste Office-productiviteitstools
Breaking News: Kutools for Outlook lanceert een gratis versie!
Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...
🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...
👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...
👩🏼🤝👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...
Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!
🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen
Sterk aanbevolen: Kutools for Office (5-in-1)
Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!
- ✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
- 🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
- 🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint