3 snelle methoden om de trackinglijst van uw Outlook-vergadering af te drukken

Nadat u een uitnodiging voor een vergadering hebt verzonden, kunt u de antwoorden van de ontvangers op de vergadering controleren op de pagina 'Tracking' van de vergadering. Als u de trackinglijst wilt afdrukken, kunt u de drie methoden gebruiken die in dit artikel worden beschreven.

Outlook biedt gebruikers de functie “Tracking” voor de vergaderingen. Hierin worden alle reacties van alle deelnemers aan de vergadering vermeld. Als u dus wilt controleren wie de door u georganiseerde bijeenkomst accepteert en wie weigert, kunt u eenvoudig toegang krijgen tot de trackinglijst. Er is echter geen directe functie om de lijst af te drukken. Daarom delen we u hier 3 manieren om het snel af te drukken.

Methode 1: Schermafbeelding “Tracking” afdrukken

1. Open om te beginnen de pagina 'Tracking' van de vergadering.
2. Maak vervolgens een nieuwe e-mail aan.
3. Ga daarna naar het tabblad "Invoegen" en klik op de knop "Screenshot".
4. Kies later het screenshot ‘Tracking’ uit de lijst ‘Beschikbare Windows’.
5. Ga ten slotte naar “Bestand” > “Afdrukken” om de schermafbeelding van “Tracking” af te drukken.

Methode 2: Afdrukken na kopiëren naar Excel

1. Ga om te beginnen naar de pagina 'Tracking'.
2. Selecteer vervolgens een item in de lijst "Tracking".
3. Druk vervolgens op “Ctrl + A” om alle vermeldingen te selecteren.
4. Druk daarna op "Ctrl + C" om ze te kopiëren.
5. Open vervolgens een nieuw Excel-bestand.
6. Selecteer de cel "A1" en druk op "Ctrl + V" om de gekopieerde lijst "Tracking" te plakken.
7. Ga uiteindelijk in Excel naar "Bestand"> "Afdrukken" om het huidige werkblad af te drukken.

Methode 3: Afdrukken met Outlook VBA

1. Ga eerst naar de Outlook VBA-editor door te verwijzen naar “Hoe u VBA-code in uw Outlook uitvoert'.
2. Schakel vervolgens de "MS Excel-objectbibliotheek" in volgens de instructies.Hoe voeg je een verwijzing naar een objectbibliotheek toe in VBA?'.
3. Plaats daarna onderstaande code in een 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. Voeg vervolgens deze macro toe aan de Quick Access Toolbar (QAT).
5. Open uiteindelijk een vergadering en druk op de macroknop in QAT.
6. De trackinglijst van de vergadering wordt meteen afgedrukt, zoals weergegeven in de volgende afbeelding.

Krijg waardevolle Outlook-gegevens terug

Als je problemen ondervindt met beschadigde Outlook-bestanden, kun je het beste eerst de meest recente PST-back-up controleren. Als er geen back-up beschikbaar is, kun je ook de ingebouwde reparatietool gebruiken. scanpst, om PST-reparatie te proberen. Maar aangenomen dat beide geen effect kunnen hebben, is je laatste redmiddel een krachtiger en beproefd extern instrument, zoals DataNumen Outlook Repair.

Auteur Introductie:

Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder SQL Server corruptie en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com