3 Outlook жиналысының бақылау тізімін басып шығарудың жылдам әдістері

Жиналысқа шақыруды жібергеннен кейін, сіз алушылардың жиналыстың жауаптарын жиналыстың «Бақылау» бетінен тексере аласыз. Егер сіз Бақылау тізімін басып шығарғыңыз келсе, осы мақалада енгізілген 3 әдісті қолдануға болады.

Outlook пайдаланушыларға кездесулерге арналған «Бақылау» функциясын ұсынады. Онда барлық қатысушылардың барлық жауаптары келтірілген. Осылайша, сіз ұйымдастырған кездесуді кім қабылдайтынын және кім бас тартатынын тексергіңіз келсе, Бақылау тізіміне кіре аласыз. Алайда тізімді басып шығаратын тікелей функция жоқ. Осылайша, біз сіздерге оны тез басып шығарудың 3 құралымен бөлісеміз.

1-әдіс: «Бақылау» скриншотын басып шығарыңыз

1. Бастау үшін жиналыстың «Бақылау» бетін ашыңыз.
2. Әрі қарай, жаңа электрондық пошта жасаңыз.
3. Осыдан кейін «Кірістіру» қойындысына өтіп, «Скриншот» батырмасын басыңыз.
4. Кейінірек «Қол жетімді Windows» тізімінен «Бақылау» скриншотын таңдаңыз.
5. Соңында, «Бақылау» скриншотын басып шығару үшін «Файл»> «Басып шығару» тармағына өтіңіз.

2-әдіс: Excel бағдарламасына көшіргеннен кейін басып шығару

1. Бастау үшін «Бақылау» бетіне өтіңіз.
2. Кейіннен «Бақылау» тізімінен бір жазбаны таңдаңыз.
3. Содан кейін барлық жазбаларды таңдау үшін «Ctrl + A» пернелерін басыңыз.
4. Одан кейін оларды көшіру үшін «Ctrl + C» пернелерін басыңыз.
5. Содан кейін жаңа Excel файлын ашыңыз.
6. Көшірілген «Бақылау» тізімін қою үшін «A1» ұяшығын таңдап, «Ctrl + V» пернесін басыңыз.
7. Соңында, Excel-де ағымдағы жұмыс парағын басып шығару үшін «Файл»> «Басып шығару» тармағына өтіңіз.

3-әдіс: Outlook VBA көмегімен басып шығару

1. Алдымен Outlook VBA редакторына өтіңіз:Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
2. Содан кейін, «MS Excel нысан кітапханасын» «» сәйкес қосыңыз.VBA бағдарламасында объект кітапханасына сілтемені қалай қосуға болады«.
3. Осыдан кейін төмендегі кодты модульге салыңыз.

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. Әрі қарай, бұл макросты жылдам қол жетімді құралдар тақтасына (QAT) қосыңыз.
5. Сайып келгенде, жиналысты ашып, QAT макро батырмасын басыңыз.
6. Бірден, келесі суретте көрсетілгендей, жиналыстың қадағалау тізімі басылып шығарылады.

Бағалы Outlook деректерін қайтарып алыңыз

Егер Outlook файлыңыз бұзылып жатса, ең алдымен, ең соңғы PST сақтық көшірмесін тексеруге болады. Егер қолжетімді сақтық көшірме болмаса, кіріктірілген қалпына келтіру құралын пайдалану мүмкіндігі де бар. Сканерлеу, PST жөндеуге тырысу. Дегенмен, екеуі де нәтиже бере алмайды деп ойласаңыз, сіздің соңғы шешіміңіз - бұл анағұрлым күшті және дәлелденген сыртқы құрал DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL Server жемқорлық және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com