Outlook Kontaktına Bağlı Görüşləri Saymaq üçün 2 Sürətli Metod

Müəyyən bir əlaqə ilə əlaqəli olan görüşlərin sayını əldə etmək istəyirsinizsə, bu məqalədə təqdim olunan 2 vasitədən birini istifadə edə bilərsiniz.

Outlook istifadəçilərə görüşləri kontaktlarla əlaqələndirməyə imkan verir. Əgər siz bir çox görüşləri konkret kontakta bağlamısınızsa və sonra onları saymaq istəyirsinizsə, onları bir-bir saymağı sevməməlisiniz. Buna görə də, aşağıda sizə 2 yol təqdim edəcəyik. Zövqünüzə görə efir seçə bilərsiniz.

Metod 1: "Fəaliyyətlər" kontaktında sayın

1. Əvvəlcə xüsusi kontaktı öz pəncərəsində açmaq üçün üzərinə iki dəfə klikləyin.
2. Sonra, "Göstər" qrupunda "Fəaliyyətlər" düyməsini basın.
3. Sonra, yeni səhifədə kursoru fəaliyyət siyahısının başlığına aparın.
4. Sonra, sağ klikləyin və kontekst menyusundan "Parametrlərə Bax" seçin.
5. Bundan sonra, açılan informasiya qutusunda "Qruplaşdır" düyməsini basın.
6. Daha sonra, başqa bir dialoqda, "Qrup elementləri" açılan siyahısında "Mesaj Sinfi" seçin.
7. Nəhayət, görünüş parametrlərini tətbiq etmək üçün bir sıra "OK" düyməsini basın.
8. Siyahıya qayıtdığınız zaman siz “IPM.Appointment” adlı qrupu, aşağıdakı ekran görüntüsü kimi göstərilən cari makro ilə əlaqəli bütün görüşlərin ümumi sayı ilə görə bilərsiniz.

Metod 2: Outlook VBA ilə hesablayın

1. Başlamaq üçün "Alt + F11" vasitəsilə Outlook VBA redaktoruna daxil olun.
2. Sonra aşağıdakı VBA kodunu modula köçürün.

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. Daha sonra, bu makrosunu " Tez Giriş Alətlər Panelinə (QAT) əlavə edin.Outlook-da VBA kodunu necə işlətmək olar".
4. Nəhayət, cəhd edə bilərsiniz.

• Əvvəlcə bir əlaqə seçin.
• Sonra QAT-da makro düyməsini basın.
• Makro tamamlandıqda, aşağıdakı şəkildəki kimi seçilmiş kontaktla əlaqəli görüşlərin sayı haqqında mesaj alacaqsınız.

Tez-tez Outlook Problemləri ilə qarşılaşdıqda

Outlook-da həmişə müxtəlif problemlərlə qarşılaşdığınızı fərz etsək, sayıqlığınızı artırmalısınız. Çox güman ki, Outlook PST faylınız zədələnməyə meyllidir. Bu nöqtədə, siz Outlook məlumat faylınızın yenilənmiş ehtiyat nüsxəsini bir anda edəcəksiniz. Həmçinin, mümkünsə, güclü bir tutmaq tövsiyə olunur PST təmiri kimi alət DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc sql bərpa edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com