3 Metode rapide pentru a imprima lista de urmărire a întâlnirii dvs. Outlook

După trimiterea unei invitații la întâlnire, puteți verifica răspunsurile la întâlnire ale destinatarilor în pagina „Urmărire” a întâlnirii. Dacă doriți să imprimați Lista de urmărire, puteți utiliza cele 3 metode introduse în acest articol.

Outlook oferă utilizatorilor funcția „Urmărire” pentru întâlniri. Acesta va enumera toate răspunsurile de la toți participanții la întâlnire. Astfel, dacă sperați să verificați cine acceptă întâlnirea pe care ați organizat-o și cine o refuză, puteți doar să obțineți acces la Lista de urmărire. Cu toate acestea, nu există o funcție directă pentru a tipări lista. Astfel, aici vă vom împărtăși 3 modalități de a o imprima rapid.

Metoda 1: Imprimați captura de ecran „Urmărire”.

1. Pentru început, deschideți pagina „Urmărire” a întâlnirii.
2. Apoi, creați un e-mail nou.
3. După aceea, treceți la fila „Inserare” și faceți clic pe butonul „Captură de ecran”.
4. Mai târziu, alegeți captura de ecran „Urmărire” din lista „Windows disponibil”.
5. În cele din urmă, accesați „Fișier” > „Imprimare” pentru a imprima captura de ecran din „Urmărire”.

Metoda 2: Imprimați după copierea în Excel

1. Pentru început, accesați pagina „Urmărire”.
2. Ulterior, selectați o intrare din lista „Urmărire”.
3. Apoi, apăsați „Ctrl + A” pentru a selecta toate intrările.
4. Apoi, apăsați „Ctrl + C” pentru a le copia.
5. Apoi, deschideți un nou fișier Excel.
6. Selectați celula „A1” și apăsați „Ctrl + V” pentru a lipi lista „Urmărire” copiată.
7. În cele din urmă, în Excel, accesați „Fișier” > „Imprimare” pentru a imprima foaia de lucru curentă.

Metoda 3: Imprimați cu Outlook VBA

1. În primul rând, accesați editorul Outlook VBA făcând referire la „Cum să rulați codul VBA în Outlook".
2. Apoi, activați „Biblioteca de obiecte MS Excel” în conformitate cu „Cum se adaugă o referință la o bibliotecă de obiecte în VBA".
3. După aceea, puneți codul de mai jos într-un 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. Apoi, adăugați această macrocomandă la Bara de instrumente Acces rapid (QAT).
5. În cele din urmă, deschideți o întâlnire și apăsați butonul macro în QAT.
6. Imediat, lista de urmărire a întâlnirii va fi tipărită, așa cum se arată în figura următoare.

Recuperați date valoroase din Outlook

Dacă întâmpinați coruperea fișierelor Outlook, puteți verifica în primul rând cea mai recentă copie de rezervă PST. Dacă nu există nicio copie de rezervă disponibilă, există și o opțiune de a utiliza instrumentul de reparare încorporat. Scanpst, pentru a încerca repararea PST. Cu toate acestea, presupunând că ambele nu pot produce efecte, ultima soluție este un instrument extern mai puternic și bine dovedit, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv SQL Server corupţie și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com