3 métodos rápidos para imprimir la lista de seguimiento de su reunión de Outlook

Después de enviar una invitación a la reunión, puede verificar las respuestas a la reunión de los destinatarios en la página "Seguimiento" de la reunión. Si desea imprimir la lista de seguimiento, puede utilizar los 3 métodos presentados en este artículo.

Outlook proporciona a los usuarios la función de "Seguimiento" para las reuniones. Enumerará todas las respuestas de todos los asistentes a la reunión. Por lo tanto, si espera verificar quién acepta la reunión que organizó y quién rechaza, puede acceder a la lista de seguimiento. Sin embargo, no existe una función directa para imprimir la lista. De esta manera, aquí te compartiremos 3 medios para imprimirlo rápidamente.

Método 1: Imprimir captura de pantalla de "Seguimiento"

1. Para empezar, abra la página de "Seguimiento" de la reunión.
2. A continuación, cree un nuevo correo electrónico.
3. Después de eso, cambie a la pestaña "Insertar" y haga clic en el botón "Captura de pantalla".
4. Más tarde, elija la captura de pantalla "Seguimiento" de la lista "Ventanas disponibles".
5. Finalmente, vaya a "Archivo"> ​​"Imprimir" para imprimir la captura de pantalla de "Seguimiento".

Método 2: imprimir después de copiar a Excel

1. Para empezar, acceda a la página de “Seguimiento”.
2. Posteriormente, seleccione una entrada en la lista "Seguimiento".
3. A continuación, presione "Ctrl + A" para seleccionar todas las entradas.
4. Luego, presione “Ctrl + C” para copiarlos.
5. Luego, abra un nuevo archivo de Excel.
6. Seleccione la celda "A1" y presione "Ctrl + V" para pegar la lista de "Seguimiento" copiada.
7. Finalmente, en Excel, vaya a "Archivo"> ​​"Imprimir" para imprimir la hoja de trabajo actual.

Método 3: imprimir con Outlook VBA

1. En primer lugar, vaya al editor de Outlook VBA haciendo referencia a "Cómo ejecutar código VBA en su Outlook".
2. Luego, habilite la “Biblioteca de objetos de MS Excel” de acuerdo con “Cómo agregar una referencia a una biblioteca de objetos en VBA".
3. Después de eso, coloque el código a continuación en un módulo.

Sub PrintTracking_Meeting()
    Dim objMeeting As Outlook.AppointmentItem
    Dim objAttendees As Outlook.Recipients
    Dim objAttendee As Outlook.Recipient
    Dim objExcelApp As Excel.Application
    Dim objExcelWorkbook As Excel.Workbook
    Dim objExcelWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
 
    Set objMeeting = Outlook.Application.ActiveInspector.CurrentItem
    Set objAttendees = objMeeting.Recipients
 
    Set objExcelApp = CreateObject("Excel.Application")
    Set objExcelWorkbook = objExcelApp.Workbooks.Add
    Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
    objExcelApp.Visible = True
 
    With objExcelWorksheet
         .Cells(1, 1) = "Name"
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 2) = "Attendance"
         .Cells(1, 2).Font.Bold = True
         .Cells(1, 3) = "Response"
         .Cells(1, 3).Font.Bold = True
    End With
 
    For Each objAttendee In objAttendees
        nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
       Select Case objAttendee.MeetingResponseStatus
              Case olResponseAccepted
                   With objExcelWorksheet
                        .Range("A" & nLastRow) = objAttendee.Name
                        .Range("B" & nLastRow) = GetAttendance(objAttendee.Type)
                        .Range("C" & nLastRow) = "Accepted"
                   End With
              Case olResponseDeclined
                   With objExcelWorksheet
                        .Range("A" & nLastRow) = objAttendee.Name
                        .Range("B" & nLastRow) = GetAttendance(objAttendee.Type)
                        .Range("C" & nLastRow) = "Declined"
                   End With
              Case olResponseNone
                   With objExcelWorksheet
                        .Range("A" & nLastRow) = objAttendee.Name
                        .Range("B" & nLastRow) = GetAttendance(objAttendee.Type)
                        .Range("C" & nLastRow) = "None"
                   End With
              Case olResponseTentative
                   With objExcelWorksheet
                        .Range("A" & nLastRow) = objAttendee.Name
                        .Range("B" & nLastRow) = GetAttendance(objAttendee.Type)
                        .Range("C" & nLastRow) = "Tentative"
                   End With
              Case olResponseOrganized
                   With objExcelWorksheet
                        .Range("A" & nLastRow) = objAttendee.Name
                        .Range("B" & nLastRow) = GetAttendance(objAttendee.Type)
                        .Range("C" & nLastRow) = "Organized"
                   End With
       End Select
    Next
 
    objExcelWorksheet.Columns("A:C").AutoFit
    objExcelWorksheet.PrintOut
End Sub

Function GetAttendance(lType As Long) As String
    Select Case lType
           Case 0
                GetAttendance = "Meeting Organizer"
           Case 1
                GetAttendance = "Required Attendee"
           Case 2
                GetAttendance = "Optional Attendee"
    End Select
End Function

4. A continuación, agregue esta macro a la barra de herramientas de acceso rápido (QAT).
5. En última instancia, abra una reunión y presione el botón de macro en QAT.
6. De inmediato, se imprimirá la lista de seguimiento de la reunión, como se muestra en la siguiente figura.

Recupere datos valiosos de Outlook

Si experimenta corrupción de archivos de Outlook, en primer lugar, puede verificar la copia de seguridad PST más reciente. Si no hay ninguna copia de seguridad disponible, también es una opción utilizar la herramienta de reparación integrada. escaneo, para intentar la reparación de PST. Sin embargo, asumiendo que ambos no pueden producir efectos, su último recurso es una herramienta externa más poderosa y probada, como DataNumen Outlook Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo SQL Server corrupción y productos de software de reparación de Outlook. Para más información visite www.datanumen.com