Hoe een afspraakonderwerp in de Outlook-agenda zoeken en vervangen?

Het zoeken en vervangen van afspraakonderwerpen in de Outlook-agenda is handig als u merkt dat sommige onderwerpen moeten worden vervangen door dezelfde teksten in massa. Of vervang het woord Kopiëren in het onderwerpveld na het importeren van gegevens in Outlook. Dit artikel biedt u VBA-code om meerdere afspraakonderwerpen te zoeken en te vervangen. Blader voor meer details.

Zoek en vervang het onderwerp van de afspraak door VBA-code

Zoek en vervang het onderwerp van de afspraak door VBA-code

In dit gedeelte kunt u als volgt het onderwerp van de afspraak zoeken en vervangen door VBA-code.

1. Ten eerste moet u de macro-instellingen in uw Outlook te laag zetten.

1) Klik in Outlook 2010 en 2013 op Dien in > Opties. En in de Outlook Opties dialoogvenster, klik Vertrouwenscentrum in de linkerbalk en klik op het Vertrouwenscentrum-instellingen knop.

In het Vertrouwenscentrum dialoogvenster, klik Macro-instellingen in de linkerbalk en selecteer Schakel alle macro's in optie in het Macro-instellingen sectie. En klik op het OK knop. Zie screenshot:

2). Klik in Outlook 2007 op Tools > Vertrouwenscentrum. In de Vertrouwenscentrum dialoogvenster, klik Macro-instellingen in de linkerbalk en selecteer Geen beveiligingscontrole voor macro's optie en klik op de OK knop.

2. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. In de Microsoft Visual Basic voor toepassingen dubbelklik om het project1 > Microsoft Outlook-objecten > DezeOutlookSessie om de VBA-editor te openen. Zie screenshot:

4. Kopieer en plak de volgende VBA-code in de VBA-editor. En druk vervolgens op de F5 sleutel 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, een Microsoft Outlook dialoogvenster verschijnt. Klik op de OK knop.

6. In de tweede Microsoft Outlook dialoogvenster, voer de tekst in die u wilt vervangen en klik vervolgens op het OK knop.

7. In de derde Microsoft Outlook dialoogvenster, voer de tekst in die u wilt vervangen en klik op OK.

Note: Als u alleen alle "Kopieer" -woorden van het onderwerp in de opgegeven kalender wilt verwijderen, laat dit vak dan leeg.

8. Klik op het OK knop in het onderstaande dialoogvenster.

9. In de map selecteren dialoogvenster, selecteer uw agenda onder het opgegeven e-mailaccount en klik vervolgens op het OK knop. Zie screenshot:

10. Vervolgens verschijnt er een dialoogvenster om u te laten weten dat de vervanging is gelukt. Klik op het OK knop.

11. En dan zijn alle teksten in uw onderwerpen van de geselecteerde kalender vervangen door de nieuwe inhoud.

---

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.

Lees meer       Gratis download      Koop nu jouw