3 méthodes rapides pour imprimer la liste de suivi de votre réunion Outlook

Après avoir envoyé une invitation à une réunion, vous pouvez vérifier les réponses des destinataires à la réunion dans la page "Suivi" de la réunion. Si vous souhaitez imprimer la liste de suivi, vous pouvez utiliser les 3 méthodes présentées dans cet article.

Outlook fournit aux utilisateurs une fonction de « suivi » pour les réunions. Il listera toutes les réponses de tous les participants à la réunion. Ainsi, si vous espérez vérifier qui accepte la réunion que vous avez organisée et qui la refuse, vous pouvez simplement accéder à la liste de suivi. Cependant, il n'y a pas de fonction directe pour imprimer la liste. Ainsi, nous allons vous partager ici 3 moyens pour l'imprimer rapidement.

Méthode 1 : Imprimer la capture d'écran "Suivi"

1. Pour commencer, ouvrez la page "Suivi" de la réunion.
2. Ensuite, créez un nouvel e-mail.
3. Après cela, passez à l'onglet "Insérer" et cliquez sur le bouton "Capture d'écran".
4. Plus tard, choisissez la capture d'écran "Suivi" dans la liste "Windows disponibles".
5. Enfin, allez dans "Fichier" > "Imprimer" pour imprimer la capture d'écran de "Suivi".

Méthode 2 : Imprimer après copie vers Excel

1. Pour commencer, accédez à la page « Suivi ».
2. Ensuite, sélectionnez une entrée dans la liste "Suivi".
3. Ensuite, appuyez sur "Ctrl + A" pour sélectionner toutes les entrées.
4. Ensuite, appuyez sur "Ctrl + C" pour les copier.
5. Ensuite, ouvrez un nouveau fichier Excel.
6. Sélectionnez la cellule "A1" et appuyez sur "Ctrl + V" pour coller la liste "Suivi" copiée.
7. Finalement, dans Excel, allez dans "Fichier"> "Imprimer" pour imprimer la feuille de calcul en cours.

Méthode 3 : Imprimer avec Outlook VBA

1. Tout d'abord, accédez à l'éditeur Outlook VBA en vous référant à "Comment exécuter le code VBA dans votre Outlook" .
2. Ensuite, activez « Bibliothèque d’objets MS Excel » conformément à « Comment ajouter une référence à une bibliothèque d'objets en VBA" .
3. Après cela, mettez le code ci-dessous dans un module.

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. Ensuite, ajoutez cette macro à la barre d'outils d'accès rapide (QAT).
5. En fin de compte, ouvrez une réunion et appuyez sur le bouton macro dans QAT.
6. Immédiatement, la liste de suivi de la réunion sera imprimée, comme illustré dans la figure suivante.

Récupérez de précieuses données Outlook

Si vous rencontrez des problèmes de corruption de fichiers Outlook, commencez par vérifier la sauvegarde PST la plus récente. S'il n'y a pas de sauvegarde disponible, vous pouvez également utiliser l'outil de réparation intégré. Scanpst, pour tenter une réparation PST. Pourtant, en supposant que les deux ne peuvent pas produire d'effets, votre dernier recours est un outil externe plus puissant et éprouvé, tel que DataNumen Outlook Repair.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris SQL Server la corruption et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com