Stampa un elenco di un appuntamento ricorrente di Outlook con l'esportazione

Stampa un elenco di un appuntamento ricorrente di Outlook con VBA

In realtà, non esiste un modo diretto per stampare l'elenco di tutte le occorrenze in un appuntamento ricorrente in Outlook. Tuttavia, è possibile esportare i dati del calendario in Excel, filtrare tutte le occorrenze dell'appuntamento ricorrente e quindi stampare. Si prega di fare quanto segue:

1. In Outlook, fare clic su Compila il > Apri ed esporta (o Apri)> Import / Export (o Importare).

2. Nell'Importazione / Esportazione guidata, fare clic su Esporta in un file opzione e fare clic su Successiva pulsante.

3. Nella prima finestra di dialogo Esporta in un file, fare clic su Comma Separated Values opzione e fare clic su Successiva pulsante.

4. Nella seconda finestra di dialogo Esporta in un file, selezionare il file gestione del progetto che contiene l'appuntamento ricorrente che stamperai e fai clic su Successiva pulsante.

5. Nella terza finestra di dialogo Esporta in un file, fare clic su Scopri la nostra gamma pulsante.

6. Ora viene visualizzata la finestra di dialogo Sfoglia. per favore (1) specifica una cartella di destinazione in cui salverai il file CSV esportato, (2) assegna un nome al file CSV nel file Nome del file scatola e (3) fare clic sul OK pulsante.

7. Fare clic sul Successiva pulsanti e Fine sia nella terza che nell'ultima finestra di dialogo Esporta un file.

8. Specificare l'intervallo di date in cui esportare il calendario nella finestra di dialogo Imposta intervallo di date e fare clic su OK pulsante.

9. Finora il calendario di Outlook è stato esportato come file CSV. Apri la cartella contenente il file CSV, fai clic con il pulsante destro del mouse sul file CSV e seleziona Apri con > Excel dal menu contestuale. Vedi screenshot:

10. Il file CSV esportato si apre in Excel. Seleziona l'intestazione della colonna Oggetto e fai clic su Sincronizzazione dei > Filtro. Vedi screenshot:

10. Fare clic sull'icona Filtro nell'intestazione della colonna Oggetto, selezionare solo l'oggetto dell'appuntamento ricorrente che verrà stampato dall'elenco a discesa e fare clic sul pulsante OK pulsante.

11. Vengono filtrate solo le occorrenze dell'appuntamento ricorrente specificato. Fare clic su Compila il > Stampa per stamparli.

Questo metodo introdurrà un VBA per stampare rapidamente un elenco di un appuntamento ricorrente in Outlook a proprio agio. Si prega di fare quanto segue:

1. Nella vista Calendario, selezionare un'occorrenza dell'appuntamento ricorrente da stampare e premere altro + F11 tasti per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Modulo, quindi incolla sotto il codice VBA nel nuovo script del modulo di apertura.

VBA: stampa un elenco di tutte le occorrenze in un appuntamento ricorrente in 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

Note:: Modifica l'intervallo di date in cui stamperai l'appuntamento ricorrente all'interno del codice: sFilter = "[Start]> = '11/1/2016"E [Fine] <"6/30/2017 ' And [IsRecurring] = True And [Subject] = "& strSubject

3. Stampa F5 o fare clic su Correre pulsante per eseguire questo VBA.

4. Ora l'elenco di tutte le occorrenze nell'appuntamento ricorrente selezionato viene copiato e incollato in una nuova e-mail come mostrato nell'immagine sottostante. Fare clic su Compila il > Stampa per stampare l'elenco.

Stampa il calendario vuoto (senza appuntamento) in Outlook

Stampa due settimane / mesi di calendario per pagina in Outlook

Stampa il calendario giornaliero in Outlook