3 ātrās metodes Outlook sapulces izsekošanas saraksta drukāšanai

Pēc sapulces ielūguma nosūtīšanas sapulces lapā “Izsekošana” varat pārbaudīt saņēmēju sapulces atbildes. Ja vēlaties izdrukāt izsekošanas sarakstu, varat izmantot 3 šajā rakstā ieviestās metodes.

Outlook lietotājiem nodrošina sapulču funkciju “Izsekošana”. Tajā tiks uzskaitītas visas sapulces dalībnieku atbildes. Tādējādi, ja jūs cerat pārbaudīt, kurš pieņem jūsu organizēto sapulci un kurš atsakās, varat vienkārši piekļūt izsekošanas sarakstam. Tomēr saraksta drukāšanai nav tiešas funkcijas. Tādējādi šeit mēs jums dalīsimies ar 3 līdzekļiem, lai to ātri izdrukātu.

1. metode: izdrukājiet “Tracking” ekrānuzņēmumu

1. Vispirms atveriet sapulces lapu “Izsekošana”.
2. Pēc tam izveidojiet jaunu e-pastu.
3. Pēc tam pārejiet uz cilni “Ievietot” un noklikšķiniet uz pogas “Ekrānuzņēmums”.
4. Vēlāk sarakstā “Available Windows” izvēlieties ekrānuzņēmumu “Tracking”.
5. Visbeidzot, dodieties uz “File”> “Print”, lai izdrukātu ekrāna “Tracking” ekrānuzņēmumu.

2. metode: drukājiet pēc kopēšanas programmā Excel

1. Lai sāktu, atveriet lapu “Izsekošana”.
2. Pēc tam sarakstā “Izsekošana” atlasiet vienu ierakstu.
3. Pēc tam nospiediet “Ctrl + A”, lai atlasītu visus ierakstus.
4. Pēc tam nospiediet taustiņu kombināciju “Ctrl + C”, lai tos nokopētu.
5. Pēc tam atveriet jaunu Excel failu.
6. Atlasiet “A1” šūnu un nospiediet “Ctrl + V”, lai ielīmētu kopēto “Tracking” sarakstu.
7. Galu galā programmā Excel atveriet “File”> “Print”, lai izdrukātu pašreizējo darblapu.

3. metode: drukāšana, izmantojot Outlook VBA

1. Pirmkārt, dodieties uz Outlook VBA redaktoru, atsaucoties uzKā palaist VBA kodu programmā Outlook".
2. Pēc tam iespējojiet “MS Excel objektu bibliotēku” saskaņā ar “Kā pievienot objektu bibliotēkas atsauci VBA valodā".
3. Pēc tam ievietojiet zemāk esošo moduli 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. Pēc tam pievienojiet šo makro ātrās piekļuves rīkjoslai (QAT).
5. Galu galā atveriet sapulci un nospiediet makro pogu QAT.
6. Uzreiz sanāksmes izsekošanas saraksts tiks izdrukāts, kā parādīts nākamajā attēlā.

Atgūstiet vērtīgus Outlook datus

Ja rodas problēmas ar Outlook failu bojājumiem, vispirms varat pārbaudīt jaunāko PST dublējumu. Ja nav pieejama neviena dublējuma, varat izmantot arī iebūvēto labošanas rīku. Scanpst, lai mēģinātu labot PST. Tomēr, pieņemot, ka abi nevar panākt efektu, jūsu pēdējā iespēja ir jaudīgāks un pārbaudītāks ārējs rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp SQL Server korupcija un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar