3 métodos rápidos para imprimir a lista de rastreamento da sua reunião do Outlook

Depois de enviar um convite para reunião, você pode verificar as respostas dos destinatários na página "Acompanhamento" da reunião. Se você deseja imprimir a lista de rastreamento, pode usar os 3 métodos apresentados neste artigo.

O Outlook fornece aos usuários o recurso “Rastreamento” para as reuniões. Ele listará todas as respostas de todos os participantes da reunião. Assim, se você deseja verificar quem aceita a reunião que você organizou e quem recusa, basta acessar a Lista de rastreamento. No entanto, não há uma função direta para imprimir a lista. Assim, aqui vamos compartilhar com você 3 meios para imprimi-lo rapidamente.

Método 1: Imprima a captura de tela "Rastreamento"

1. Para começar, abra a página “Acompanhamento” da reunião.
2. Em seguida, crie um novo e-mail.
3. Depois disso, mude para a guia “Inserir” e clique no botão “Captura de tela”.
4. Mais tarde, escolha a captura de tela “Rastreamento” na lista “Janelas disponíveis”.
5. Por fim, vá em “Arquivo” > “Imprimir” para imprimir a captura de tela de “Rastreamento”.

Método 2: imprimir após copiar para o Excel

1. Para começar, acesse a página "Rastreamento".
2. Em seguida, selecione uma entrada na lista “Rastreamento”.
3. Em seguida, pressione “Ctrl + A” para selecionar todas as entradas.
4. Depois, pressione “Ctrl + C” para copiá-los.
5. Em seguida, abra um novo arquivo do Excel.
6. Selecione a célula “A1” e pressione “Ctrl + V” para colar a lista “Rastreamento” copiada.
7. Eventualmente, no Excel, vá em “Arquivo” > “Imprimir” para imprimir a planilha atual.

Método 3: Imprimir com o Outlook VBA

1. Primeiro, vá para o editor VBA do Outlook referindo-se a “Como executar o código VBA no seu Outlook".
2. Em seguida, habilite a “Biblioteca de Objetos do MS Excel” de acordo com “Como adicionar uma referência à biblioteca de objetos em VBA".
3. Depois disso, coloque o código abaixo em um 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. Em seguida, adicione esta macro à barra de ferramentas de acesso rápido (QAT).
5. Por fim, abra uma reunião e pressione o botão macro no QAT.
6. Imediatamente será impressa a lista de acompanhamento da reunião, conforme a figura a seguir.

Recupere Dados Valiosos do Outlook

Se você estiver enfrentando problemas de corrupção de arquivos do Outlook, a primeira coisa a fazer é verificar o backup PST mais recente. Caso não haja nenhum backup disponível, você também pode usar a ferramenta de reparo integrada. ScanpstName, para tentar reparar o PST. No entanto, supondo que ambos não possam produzir efeitos, seu último recurso é uma ferramenta externa mais poderosa e comprovada, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo SQL Server corrupção e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com