2 Metoda të shpejta për të numëruar takimet e lidhura me një kontakt të Outlook

Nëse dëshironi të merrni numrin e takimeve që lidhen me një kontakt specifik, mund të përdorni një nga 2 mjetet e paraqitura në këtë artikull.

Outlook i lejon përdoruesit të lidhin takimet me kontaktet. Nëse keni lidhur shumë takime me një kontakt specifik dhe më vonë dëshironi t'i numëroni, nuk duhet t'ju pëlqejë t'i numëroni ato një nga një. Prandaj, në vijim do t'ju prezantojmë 2 mënyra. Ju mund të zgjidhni eterin sipas dëshirës tuaj.

Metoda 1: Numëroni në kontakt "Aktivitetet"

1. Në fillim, klikoni dy herë mbi kontaktin specifik për ta hapur atë në dritaren e tij.
2. Pastaj, klikoni "Aktivitetet" në grupin "Trego".
3. Më pas, në faqen e re, zhvendoseni kursorin te kreu i listës së aktiviteteve.
4. Më pas, klikoni me të djathtën dhe zgjidhni "Shiko cilësimet" nga menyja e kontekstit.
5. Më pas, në kutinë e dialogut që shfaqet, klikoni butonin "Group By".
6. Më vonë, në një dialog tjetër, zgjidhni "Klasa e mesazheve" në listën rënëse "Group artikujt sipas".
7. Në fund të fundit, klikoni një seri "OK" për të aplikuar cilësimet e pamjes.
8. Kur të ktheheni në listë, mund të shihni një grup të quajtur "IPM.Appointment" me një numër total të të gjitha takimeve të lidhura me makro aktuale, të paraqitur si pamje e mëposhtme e ekranit.

Metoda 2: Numëroni me Outlook VBA

1. Për të filluar, hyni në redaktorin VBA të Outlook përmes "Alt + F11".
2. Pastaj, kopjoni kodin e mëposhtëm VBA në një modul.

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. Më vonë, shtoni këtë makro në Shiritin e Veglave të Qasjes së Shpejtë (QAT) duke ndjekur hapat në "Si të ekzekutoni kodin VBA në Outlook tuaj".
4. Më në fund, mund ta provoni.

• Së pari, zgjidhni një kontakt.
• Pastaj, shtypni butonin makro në QAT.
• Kur makro të përfundojë, do të merrni një mesazh në lidhje me numrin e takimeve të lidhura me kontaktin e zgjedhur, si në foton më poshtë.

Kur hasni probleme të shpeshta të Outlook

Duke supozuar se gjithmonë hasni një sërë problemesh në Outlook tuaj, duhet të rrisni vigjilencën tuaj. Ka shumë të ngjarë që skedari juaj PST i Outlook ka tendencë të jetë i korruptuar. Në këtë pikë, ju do të bëni një kopje rezervë të përditësuar të skedarit tuaj të të dhënave Outlook menjëherë. Gjithashtu, nëse është e mundur, rekomandohet të kapni një të fuqishëm Riparimi i PST mjet, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperoni sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com