3 greiti būdai, kaip išspausdinti „Outlook“ susitikimo stebėjimo sąrašą

Išsiuntę kvietimą į susitikimą, susitikimo puslapyje „Sekimas“ galite patikrinti gavėjų susitikimo atsakymus. Jei norite išspausdinti stebėjimo sąrašą, galite naudoti 3 šiame straipsnyje aprašytus metodus.

„Outlook“ suteikia vartotojams „Sekimo“ funkciją susitikimams. Jame bus pateikti visi susitikimo dalyvių atsakymai. Taigi, jei tikitės patikrinti, kas priima jūsų organizuotą susitikimą, o kas atmeta, galite tiesiog gauti prieigą prie stebėjimo sąrašo. Tačiau nėra tiesioginės funkcijos spausdinti sąrašą. Todėl čia mes pasidalinsime 3 būdais, kaip greitai jį atspausdinti.

1 būdas: išspausdinkite „Stebėjimo“ ekrano kopiją

1. Norėdami pradėti, atidarykite susitikimo puslapį „Stebėjimas“.
2. Tada sukurkite naują el.
3. Po to pereikite į skirtuką „Įterpti“ ir spustelėkite mygtuką „Ekrano kopija“.
4. Vėliau iš sąrašo „Galimos Windows“ pasirinkite ekrano kopiją „Stebėjimas“.
5. Galiausiai eikite į „Failas“ > „Spausdinti“, kad išspausdintumėte „Sekimo“ ekrano kopiją.

2 būdas: spausdinkite nukopijavę į „Excel“.

1. Norėdami pradėti, eikite į puslapį „Stebėjimas“.
2. Tada sąraše „Stebėjimas“ pasirinkite vieną įrašą.
3. Tada paspauskite „Ctrl + A“, kad pasirinktumėte visus įrašus.
4. Po to paspauskite „Ctrl + C“, kad juos nukopijuotumėte.
5. Tada atidarykite naują „Excel“ failą.
6. Pasirinkite „A1“ langelį ir paspauskite „Ctrl + V“, kad įklijuotumėte nukopijuotą „Stebėjimo“ sąrašą.
7. Galiausiai programoje „Excel“ eikite į „Failas“ > „Spausdinti“, kad atspausdintumėte dabartinį darbalapį.

3 būdas: spausdinkite naudodami Outlook VBA

1. Pirmiausia eikite į „Outlook VBA“ redaktorių, nurodydami „Kaip paleisti VBA kodą „Outlook“.".
2. Tada įjunkite „MS Excel Object Library“ pagal „Kaip pridėti objektų bibliotekos nuorodą VBA".
3. Po to įdėkite žemiau esantį kodą į 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. Tada pridėkite šią makrokomandą prie greitosios prieigos įrankių juostos (QAT).
5. Galiausiai atidarykite susitikimą ir paspauskite makrokomandos mygtuką QAT.
6. Iš karto bus išspausdintas susitikimo stebėjimo sąrašas, kaip parodyta toliau pateiktame paveikslėlyje.

Grąžinkite vertingus „Outlook“ duomenis

Jei susiduriate su „Outlook“ failų sugadinimo problema, pirmiausia galite patikrinti naujausią PST atsarginę kopiją. Jei nėra jokios atsarginės kopijos, taip pat galite naudoti integruotą taisymo įrankį. scanpst, bandydami taisyti PST. Tačiau darant prielaidą, kad abu negali padaryti efekto, jūsų paskutinė išeitis yra galingesnis ir gerai patikrintas išorinis įrankis, pvz. DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant SQL Server korupcija ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com