Таны Outlook уулзалтын хяналтын жагсаалтыг хэвлэх 3 хурдан арга

Уулзалтын урилга илгээсний дараа та уулзалтын "Мөрдөх" хуудаснаас хүлээн авагчдын уулзалтын хариуг шалгах боломжтой. Хэрэв та мөрдөх жагсаалтыг хэвлэхийг хүсвэл энэ нийтлэлд танилцуулсан 3 аргыг ашиглаж болно.

Outlook нь хэрэглэгчдэд уулзалтад зориулж "Мөшгих" боломжийг олгодог. Энэ нь уулзалтад оролцогчдын бүх хариултыг жагсаах болно. Тиймээс, хэрэв та зохион байгуулсан уулзалтыг хэн хүлээн авч, хэн татгалзсаныг шалгах гэж байгаа бол Tracking list руу нэвтрэх боломжтой. Гэхдээ жагсаалтыг хэвлэх шууд функц байхгүй байна. Тиймээс бид танд хурдан хэвлэх 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 Object Library"-г ""-ийн дагуу идэвхжүүлнэ үү.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. Дараа нь энэ макрог Quick Access Toolbar (QAT) дээр нэмнэ үү.
5. Эцэст нь уулзалтаа нээж, QAT дээр макро товчийг дарна уу.
6. Дараах зурагт үзүүлсэн шиг уулзалтын хяналтын жагсаалтыг нэг дор хэвлэнэ.

Outlook-ийн үнэ цэнэтэй өгөгдлийг буцааж авах

Хэрэв та Outlook файлын эвдрэлтэй тулгарвал эхлээд хамгийн сүүлийн үеийн PST нөөцлөлтийг шалгаж болно. Хэрэв нөөцлөлт байхгүй бол суулгасан засварлах хэрэгслийг ашиглах боломжтой. Сканнердах, PST засварыг оролдох. Гэсэн хэдий ч, аль аль нь нөлөө үзүүлэх боломжгүй гэж үзвэл таны эцсийн арга бол илүү хүчирхэг, батлагдсан гадны хэрэгсэл юм. DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. SQL Server авлига програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com