Hoe drukt u een lijst af van één terugkerende Outlook-afspraak?

Een lijst van één terugkerende Outlook-afspraak afdrukken met exporteren

Een lijst van één terugkerende Outlook-afspraak afdrukken met VBA

Er is helaas geen directe manier om de volledige lijst van alle afspraken binnen een terugkerende afspraak in Outlook af te drukken. U kunt de agendagegevens echter exporteren naar Excel, daar alle bijeenkomsten van de terugkerende reeks filteren en deze daarna afdrukken. Volg hiervoor de onderstaande stappen:

1. Klik in Outlook op Bestand > Openen en exporteren(of)Openen) > Importeren/exporteren(of)Importeren).

2. Klik in de wizard Importeren en exporteren op de optie Exporteren naar een bestand en klik op de knop Volgende.

3. Klik in het eerste dialoogvenster Exporteren naar een bestand op de optie Met komma's gescheiden waarden en vervolgens op de knop Volgende.

4. Selecteer in het tweede dialoogvenster Exporteren naar een bestand de agenda die de terugkerende afspraak bevat die u wilt afdrukken, en klik op de knop Volgende.

5. Klik in het derde dialoogvenster Exporteren naar een bestand op de knop Bladeren.

6. Het dialoogvenster Bladeren verschijnt nu. (1) Geef een doelmap op waarin u het geëxporteerde CSV-bestand wilt opslaan, (2) voer een bestandsnaam in voor het CSV-bestand in het veld Bestandsnaam en (3) klik op de knop OK.

7. Klik op de knoppen Volgende en Voltooien in zowel het derde als het laatste dialoogvenster van Exporteren naar een bestand.

8. Geef in het dialoogvenster Datumreeks de periode op waarbinnen u de agenda wilt exporteren en klik op de knop OK.

9. De Outlook-agenda is nu geëxporteerd als een CSV-bestand. Open de map met het CSV-bestand, klik met de rechtermuisknop op het bestand en selecteer Openen met > Excel in het contextmenu. Zie screenshot:

10. Het geëxporteerde CSV-bestand wordt geopend in Excel. Klik op Gegevens > Filter. Zie screenshot:

10. Klik op het filtersymbool in de kolomkop Onderwerp, schakel via de vervolgkeuzelijst alleen het onderwerp van de terugkerende afspraak in die u wilt afdrukken, en klik op de knop OK.

11. Alleen de afspraken van de opgegeven terugkerende reeks worden gefilterd. Klik op Bestand > Afdrukken om ze af te drukken.

Deze methode introduceert een VBA-script waarmee u eenvoudig een lijst van een terugkerende afspraak in Outlook kunt afdrukken. Volg hiervoor de onderstaande stappen:

1. Selecteer in de agendaweergave één afspraak uit de terugkerende reeks die u wilt afdrukken en druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak vervolgens de onderstaande VBA-code in het nieuw geopende modulescript.

VBA: Een lijst van alle afspraken in een terugkerende afspraak in Outlook afdrukken

Sub RecurringList()

Dim CalendarFolder As Outlook.MAPIFolder
Dim CalendarItems As Outlook.Items
Dim RestrictItems As Outlook.Items
Dim sFilter, sSubject, sOccur As String
Dim iNumRestricted As Integer
Dim itm, itmNew As Object
Dim tStart, tEnd As Date

Set CalendarFolder = Application.ActiveExplorer.CurrentFolder
Set CalendarItems = CalendarFolder.Items

   CalendarItems.Sort "[Start]"
CalendarItems.IncludeRecurrences = True

    tEnd = Format(Now + 10, "Short Date")

sSubject = Application.ActiveExplorer.Selection.Item(1).Subject

   sFilter = "[Start] >= '11/1/2016' And [End] < '6/30/2017' And  [IsRecurring]  = True And [Subject] = " & sSubject

   Set RestrictItems = CalendarItems.Restrict(sFilter)

   iNumRestricted = 0

   For Each itm In RestrictItems
iNumRestricted = iNumRestricted + 1
sOccur = sOccur & vbCrLf & itm.Subject & vbTab & " >> " & vbTab & itm.Start & vbTab & " to: " & vbTab & itm.End
Next

Set itmNew = Application.CreateItem(olMailItem)
itmNew.Body = sOccur & vbCrLf & iNumRestricted & " occurrences found."
itmNew.Display

End Sub

Opmerking: Pas het Datumreeks aan waarbinnen u de terugkerende afspraak wilt afdrukken in de code: sFilter = "[Start] >= '11/1/2016' And [End] < '6/30/2017'And  [IsRecurring]  = True And [Subject] = " & strSubject

3. Druk op F5 of klik op de knop Uitvoeren om dit VBA-script uit te voeren.

4. De lijst van alle afspraken in de geselecteerde terugkerende afspraak is nu gekopieerd en geplakt in een nieuw e-mailbericht, zoals hieronder in de screenshot te zien is. Klik op Bestand > Afdrukken om de lijst af te drukken.

Lege agenda (zonder afspraken) afdrukken in Outlook

Twee weken/maanden van agenda per pagina afdrukken in Outlook

Dagelijkse agenda afdrukken in Outlook