Outlook харилцагчтай холбоотой уулзалтуудыг тоолох 2 хурдан арга

Хэрэв та тодорхой харилцагчтай холбоотой уулзалтын тоог авахыг хүсвэл энэ нийтлэлд дурдсан 2 арга хэрэгслийн аль нэгийг ашиглаж болно.

Outlook нь хэрэглэгчдэд уулзалт товыг харилцагчидтай холбох боломжийг олгодог. Хэрэв та олон уулзалтыг тодорхой харилцагчтай холбож, дараа нь тоолохыг хүсвэл тэдгээрийг нэг нэгээр нь тоолох дургүй байх ёстой. Тиймээс бид дараах 2 аргыг танд танилцуулах болно. Та өөрийн үзэмжээр эфирийг сонгож болно.

Арга 1: Холбоо барих "Үйл ажиллагаа"-д тоолох

1. Эхлээд тухайн харилцагчийг давхар товшоод өөрийн цонхонд нээнэ үү.
2. Дараа нь "Show" бүлгийн "Үйл ажиллагаа" дээр дарна уу.
3. Дараа нь шинэ хуудсанд курсорыг үйл ажиллагааны жагсаалтын толгой хэсэгт шилжүүлнэ үү.
4. Дараа нь баруун товчийг дараад контекст цэснээс "Тохиргоог харах" хэсгийг сонгоно уу.
5. Дараа нь гарч ирэх харилцах цонхонд "Бүлэглэх" товчийг дарна уу.
6. Дараа нь өөр харилцах цонхонд "Бүлэглэх зүйл" жагсаалтаас "Мессежийн анги"-г сонгоно уу.
7. Эцэст нь харах тохиргоог хэрэгжүүлэхийн тулд "OK" дээр дарна уу.
8. Жагсаалт руу буцаж ирэхэд та "IPM.Appointment" нэртэй бүлгийг одоогийн макротой холбосон бүх уулзалтын нийт тоогоор харах боломжтой бөгөөд дараах дэлгэцийн агшинд харуулав.

Арга 2: Outlook VBA-тай тоолох

1. Эхлэхийн тулд Outlook VBA редактор руу “Alt + F11” -р холбогдоорой.
2. Дараа нь дараахь VBA кодыг модульд хуулж ав.

Dim objContact As ContactItem

Sub CountAppointmentsLinkedToContact()
    Dim objStore As Store
    Dim objOutlookFile As Folder
    Dim lTotalCount As Long
 
    'Get the contact
    Set objContact = Outlook.Application.ActiveExplorer.Selection.Item(1)
 
    lTotalCount = 0
    For Each objStore In Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
        Call ProcessFolders(objOutlookFile.Folders, lTotalCount)
    Next
 
    'Prompt you
    If lTotalCount > 0 Then
       MsgBox lTotalCount & " appointments are linked to " & objContact.FullName & ".", vbInformation + vbOKOnly
    Else
       MsgBox "No appointment is linked to " & objContact.FullName & ".", vbExclamation + vbOKOnly
    End If
End Sub

Sub ProcessFolders(ByVal objFolders As Folders, lCount As Long)
    Dim objFolder As Folder
    Dim objItem As Object
 
    'Process all folders recursively
    For Each objFolder In objFolders
        For Each objItem In objFolder.Items
            If TypeOf objItem Is AppointmentItem Then
               If objItem.Links.Count > 0 Then
                  i = 0
                  Do Until i = objItem.Links.Count
                     i = i + 1
                     If objItem.Links(i).Name = objContact.FullName Then
                        lCount = lCount + 1
                        Exit Do
                     End If
                  Loop
               End If
            End If
        Next
 
        If objFolder.Folders.Count > 0 Then
           Call ProcessFolders(objFolder.Folders, lCount)
        End If
    Next
End Sub

3. Дараа нь энэ макрог "Quick Access Toolbar (QAT)" -д байгаа алхмуудыг дагаж нэмнэ үү.Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ".
4. Эцэст нь та оролдож болно.

• Эхлээд харилцагчаа сонгоно уу.
• Дараа нь QAT дээрх макро товчийг дарна уу.
• Макро дууссаны дараа та доорх зурган дээрх шиг сонгосон харилцагчтай холбогдсон уулзалтуудын тоог хүлээн авах болно.

Байнга Outlook асуудалтай тулгарах үед

Таны хэтийн төлөвт янз бүрийн асуудал байнга тулгардаг гэж үзвэл та сонор сэрэмжтэй байх хэрэгтэй. Таны Outlook PST файл гэмтсэн байх магадлалтай. Энэ үед та Outlook өгөгдлийн файлынхаа шинэчилсэн нөөцлөлтийг нэг дор хийх болно. Мөн боломжтой бол хүчирхэг барьц авахыг зөвлөж байна PST засвар гэх мэт хэрэгсэл DataNumen Outlook Repair.

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

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