2 Metode rapide pentru a număra întâlnirile legate de un contact Outlook

Dacă doriți să obțineți numărul programărilor care sunt legate de un anumit contact, puteți utiliza oricare dintre cele 2 mijloace introduse în acest articol.

Outlook permite utilizatorilor să conecteze întâlnirile la contacte. Dacă ați legat multe întâlniri la un anumit contact și mai târziu doriți să le numărați, trebuie să vă displace să le numărați una câte una. Prin urmare, în cele ce urmează, vă vom prezenta 2 moduri. Puteți alege eterul după bunul plac.

Metoda 1: Numărați în „Activități” de contact

1. La început, faceți dublu clic pe contactul specific pentru al deschide în propria fereastră.
2. Apoi, faceți clic pe „Activități” din grupul „Afișați”.
3. Apoi, în noua pagină, mutați cursorul la antetul listei de activități.
4. Ulterior, faceți clic dreapta și alegeți „Vizualizare setări” din meniul contextual.
5. Apoi, în caseta de dialog pop-up, faceți clic pe butonul „Grupați după”.
6. Mai târziu, într-un alt dialog, selectați „Clasa mesaj” din lista derulantă „Grupați articole după”.
7. În cele din urmă, faceți clic pe o serie de „OK” pentru a aplica setările de vizualizare.
8. Când reveniți la listă, puteți vedea un grup numit „IPM.Appointment” cu un număr total al tuturor întâlnirilor legate de macrocomanda curentă, afișat în următoarea captură de ecran.

Metoda 2: Numărați cu Outlook VBA

1. Pentru început, accesați editorul Outlook VBA prin „Alt + F11”.
2. Apoi, copiați următorul cod VBA într-un 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. Mai târziu, adăugați această macrocomandă la Bara de instrumente Acces rapid (QAT) urmând pașii din „Cum să rulați codul VBA în Outlook".
4. În sfârșit, puteți încerca.

• În primul rând, selectați un contact.
• Apoi, apăsați butonul macro în QAT.
• Când macro-ul se termină, veți primi un mesaj despre numărul de întâlniri legate de contactul selectat, ca în imaginea de mai jos.

Când întâmpinați probleme frecvente cu Outlook

Presupunând că întotdeauna întâlniți o varietate de probleme în Outlook, ar trebui să vă ridicați vigilența. Este foarte probabil ca fișierul dvs. PST Outlook să fie corupt. În acest moment, veți face imediat o copie de rezervă actualizată a fișierului de date Outlook. De asemenea, dacă este posibil, este recomandat să puneți mâna pe un puternic reparație PST instrument, cum ar fi DataNumen Outlook Repair.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com