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

or

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

Office-tabblad - Schakel bewerken en browsen met tabbladen in Office in en maak het werk veel gemakkelijker ...
Kutools for Outlook - Brengt 100 krachtige geavanceerde functies naar Microsoft Outlook
  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails volgens regels; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u iedereen 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 mailgesprek; Beantwoord veel e-mails tegelijk; Begroeting automatisch toevoegen wanneer antwoord; Datum en tijd automatisch toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: Automatisch loskoppelen, alles comprimeren, alles hernoemen, alles automatisch opslaan ... Quick Report, Tel geselecteerde e-mails, Dubbele e-mails en contacten verwijderen ...
  • Meer dan 100 geavanceerde functies zullen los de meeste van uw problemen op in Outlook 2010-2019 en 365. Volledige gratis proefperiode van 60 dagen.

pijl blauw rechts belZoek 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 Toolbox > 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.

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


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.
    Dominic · 4 years ago
    I always get a Syntax Error right at the start on the 2nd line at Dim oApp As Outlook.Application. No idea what's wrong :-(

    I try to run the VB Script in Outlook 2016 (O365 Version) on Windows 10.
  • To post as a guest, your comment is unpublished.
    Aaron · 4 years ago
    It seems I'm unable to do this for non-local, or shared calendars. Does anyone know how to do it for shared calendars? I'm set as "owner" for permission level of the shared calendar, but it won't show up in my list of folders when I run the script, only my locally created calendars show up.
  • To post as a guest, your comment is unpublished.
    LordJair · 5 years ago
    Worked fantastically! Thank you so much!!!
    • To post as a guest, your comment is unpublished.
      Dale R · 4 years ago
      This should do it for you. Add these 3 lines immediately after line 8 (Set oApp = Outlook.Application).

      Dim nmSpace As Outlook.NameSpace
      Set nmSpace = oApp.GetNamespace("MAPI")
      Set oCalFolder = nmSpace.GetDefaultFolder(olFolderCalendar)
  • To post as a guest, your comment is unpublished.
    Armin · 5 years ago
    Thank you!
    How can we modify it to always use the same calendar, and not show the first pop-up?

    thank you
  • To post as a guest, your comment is unpublished.
    Amos · 5 years ago
    Worked just fine
    really good
    It took me some time to understand that this is case sensitive, but that is very good.

    Thank you