Imprimer une liste d'un rendez-vous récurrent Outlook avec l'exportation

Imprimer une liste d'un rendez-vous récurrent Outlook avec VBA

En fait, il n'existe aucun moyen direct d'imprimer la liste de toutes les occurrences d'un rendez-vous périodique dans Outlook. Toutefois, vous pouvez exporter les données du calendrier dans Excel, filtrer toutes les occurrences du rendez-vous récurrent, puis imprimer. Veuillez procéder comme suit:

1. Dans Outlook, cliquez sur Déposez votre dernière attestation > Ouvrir et exporter (ou Ouvert)> Import / Export (ou L’).

2. Dans l'assistant d'importation et d'exportation, cliquez sur le bouton Exporter vers un fichier option, et cliquez sur le Suivant .

3. Dans la première boîte de dialogue Exporter vers un fichier, cliquez sur le bouton Valeurs séparées par des virgules option, et cliquez sur le Suivant .

4. Dans la deuxième boîte de dialogue Exporter vers un fichier, sélectionnez le calendrier qui contient le rendez-vous récurrent que vous imprimerez, puis cliquez sur le Suivant .

5. Dans la troisième boîte de dialogue Exporter vers un fichier, cliquez sur le bouton Explorer .

6. La boîte de dialogue Parcourir apparaît maintenant. S'il vous plaît (1) spécifiez un dossier de destination dans lequel vous allez enregistrer le fichier CSV exporté, (2) nommez le fichier CSV dans le Nom du fichier boîte, et (3) cliquez sur le OK .

7. Cliquez sur l' Suivant boutons et Finition dans la troisième et la dernière boîte de dialogue Exporter un fichier.

8. Veuillez spécifier la plage de dates dans laquelle vous exporterez le calendrier dans la boîte de dialogue Définir la plage de dates, puis cliquez sur le bouton OK .

9. Jusqu'à présent, le calendrier Outlook a été exporté sous forme de fichier CSV. Veuillez ouvrir le dossier contenant le fichier CSV, cliquez avec le bouton droit sur le fichier CSV et sélectionnez Ouvrir avec > Excel dans le menu contextuel. Voir la capture d'écran:

10. Le fichier CSV exporté s'ouvre dans Excel. Veuillez sélectionner l'en-tête de colonne Objet, puis cliquez sur Données > Filtre. Voir la capture d'écran:

10. Cliquez sur l'icône Filtre dans l'en-tête de la colonne Objet, vérifiez uniquement le sujet du rendez-vous récurrent que vous imprimerez dans la liste déroulante, puis cliquez sur le bouton OK .

11. Seules les occurrences du rendez-vous récurrent spécifié sont filtrées. Cliquez s'il vous plait Déposez votre dernière attestation > Commercial pour les imprimer.

Cette méthode introduira un VBA pour imprimer rapidement une liste d'un rendez-vous récurrent dans Outlook à l'aise. Veuillez procéder comme suit:

1. Dans la vue Calendrier, sélectionnez une occurrence du rendez-vous récurrent que vous imprimerez et appuyez sur autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez insérer > Module, puis collez sous le code VBA dans le nouveau script d'ouverture du module.

VBA: imprimer une liste de toutes les occurrences d'un rendez-vous récurrent dans Outlook

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

Notes: Veuillez modifier la plage de dates dans laquelle vous imprimerez le rendez-vous récurrent dans le code: sFilter = "[Début]> = '11/1/2016'Et [Fin] <'6/30/2017 » And [IsRecurring] = True And [Subject] = "& strSubject

3. presse F5 ou cliquez sur la Courir bouton pour exécuter ce VBA.

4. Maintenant, la liste de toutes les occurrences du rendez-vous récurrent sélectionné est copiée et collée dans un nouvel e-mail comme illustré ci-dessous. Cliquez s'il vous plait Déposez votre dernière attestation > Commercial pour imprimer la liste.

Imprimer un calendrier vierge (sans rendez-vous) dans Outlook

Imprimer deux semaines / mois de calendrier par page dans Outlook

Imprimer le calendrier quotidien dans Outlook