3 snabba metoder för att skriva ut spårningslistan för ditt Outlook-möte

Efter att ha skickat en mötesinbjudan kan du kontrollera mottagarnas mötesvar på sidan "Spårning" i mötet. Om du vill skriva ut spårningslistan kan du använda de tre metoderna som presenteras i den här artikeln.

Outlook ger användarna funktionen "Spårning" för mötena. Den kommer att lista ut alla svar från alla mötesdeltagare. Således, om du hoppas kunna kontrollera vem som accepterar mötet du organiserade och vem som avvisar, kan du bara få tillgång till spårningslistan. Det finns dock ingen direkt funktion för att skriva ut listan. Därmed delar vi dig här 3 medel för att snabbt skriva ut det.

Metod 1: Skriv ut skärmdumpen "Tracking"

1. Till att börja med öppnar du mötes-sidan "Spårning".
2. Skapa sedan ett nytt e-postmeddelande.
3. Därefter växlar du till fliken "Infoga" och klickar på knappen "Skärmdump".
4. Senare väljer du skärmbilden "Spårning" från listan "Tillgängliga Windows".
5. Gå slutligen till "File"> "Print" för att skriva ut skärmdumpen av "Tracking".

Metod 2: Skriv ut efter kopiering till Excel

1. Till att börja med, gå till sidan ”Spårning”.
2. Välj sedan en post i listan "Spårning".
3. Tryck sedan på “Ctrl + A” för att välja alla poster.
4. Tryck därefter på "Ctrl + C" för att kopiera dem.
5. Öppna sedan en ny Excel-fil.
6. Välj "A1" -cell och tryck på "Ctrl + V" för att klistra in den kopierade "Spårning" -listan.
7. Så småningom, i Excel, gå till "File"> "Print" för att skriva ut det aktuella kalkylbladet.

Metod 3: Skriv ut med Outlook VBA

1. Först och främst, gå till Outlook VBA-redigeraren genom att hänvisa till “Hur du kör VBA-kod i din Outlook".
2. Aktivera sedan "MS Excel Object Library" i enlighet med "Hur man lägger till en objektbiblioteksreferens i VBA".
3. Därefter placerar du koden nedan i en modul.

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. Lägg sedan till detta makro i snabbåtkomstverktygsfältet (QAT).
5. I slutändan öppnar du ett möte och trycker på makroknappen i QAT.
6. Omedelbart kommer spårningslistan för mötet att skrivas ut, som visas i följande bild.

Få tillbaka värdefulla Outlook-data

Om du upplever att Outlook-filer är skadade kan du först kontrollera den senaste PST-säkerhetskopian. Om det inte finns någon tillgänglig säkerhetskopia är det också ett alternativ att använda det inbyggda reparationsverktyget. Scanpst, för att försöka reparera PST. Ändå, förutsatt att båda inte kan få effekter, är din sista utväg ett kraftfullare och mer beprövat externt verktyg, t.ex. DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive SQL Server korruption och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com