Imprima una lista de una cita periódica de Outlook con exportación

Imprima una lista de una cita periódica de Outlook con VBA

En realidad, no existe una forma directa de imprimir la lista de todas las ocurrencias en una cita periódica en Outlook. Sin embargo, puede exportar los datos del calendario a Excel, filtrar todas las ocurrencias de la cita periódica y luego imprimir. Haz lo siguiente:

1. En Outlook, haga clic en Archive > Abrir y Exportar (o Abierto)> Import / Export (o Importa).

2. En el Asistente de importación y exportación, haga clic en el Exportar a un archivo opción, y haga clic en Siguiente del botón.

3. En el primer cuadro de diálogo Exportar a un archivo, haga clic en el Valores separados por comas opción, y haga clic en Siguiente del botón.

4. En el segundo cuadro de diálogo Exportar a un archivo, seleccione el calendario que contiene la cita periódica que imprimirá y haga clic en el Siguiente del botón.

5. En el tercer cuadro de diálogo Exportar a un archivo, haga clic en el Explorar del botón.

6. Ahora aparece el cuadro de diálogo Examinar. Por favor (1) especifique una carpeta de destino en la que guardará el archivo CSV exportado, (2) nombre el archivo CSV en el Nombre de archivo caja, y (3) haga clic en el OK del botón.

7. Haga clic en el Siguiente botones y Acabado en el tercer y último cuadro de diálogo Exportar un archivo.

8. Especifique el rango de fechas dentro del cual exportará el calendario en el cuadro de diálogo Establecer rango de fechas y haga clic en el OK del botón.

9. Hasta ahora, el calendario de Outlook se ha exportado como archivo CSV. Abra la carpeta que contiene el archivo CSV, haga clic derecho en el archivo CSV y seleccione Abrir con > Excel desde el menú contextual. Ver captura de pantalla:

10. El archivo CSV exportado se abre en Excel. Seleccione el encabezado de columna de Asunto y haga clic en Datos > Filtrar. Ver captura de pantalla:

10. Haga clic en el icono de Filtro en el encabezado de la columna de Asunto, solo marque el tema de la cita periódica que imprimirá de la lista desplegable y haga clic en el OK del botón.

11. Solo se filtran las apariciones de la cita periódica especificada. Por favor haz click Archive > Imprimir para imprimirlos.

Este método introducirá un VBA para imprimir rápidamente una lista de una cita recurrente en Outlook a gusto. Haz lo siguiente:

1. En la vista Calendario, seleccione una ocurrencia de la cita recurrente que imprimirá y presione otro + F11 teclas para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic en recuadro > Móduloy luego pegue el código VBA debajo en el nuevo script de módulo de apertura.

VBA: imprima una lista de todas las ocurrencias en una cita periódica en 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: Cambie el rango de fechas en el que imprimirá la cita recurrente en el código: sFilter = "[Inicio]> = '11/1/2016'Y [Fin] <'6 / 30 / 2017 ' And [IsRecurring] = True And [Subject] = "& strSubject

3. Prensa F5 o haga clic en el Ejecutar botón para ejecutar este VBA.

4. Ahora la lista de todas las ocurrencias en la cita recurrente seleccionada se copia y pega en un nuevo correo electrónico como se muestra a continuación. Por favor haz click Archive > Imprimir para imprimir la lista.

Imprimir calendario en blanco (sin cita) en Outlook

Imprima dos semanas / meses de calendario por página en Outlook

Imprimir calendario diario en Outlook