2 raske metoder for å telle avtaler knyttet til en Outlook-kontakt

Hvis du ønsker å få nummeret på avtalene som er knyttet til en spesifikk kontakt, kan du bruke en av de to metodene som er introdusert i denne artikkelen.

Outlook lar brukere koble avtaler til kontakter. Hvis du har knyttet mange avtaler til en bestemt kontakt og senere ønsker å telle dem, må du mislike å telle dem én etter én. Derfor, i det følgende, vil vi introdusere 2 måter for deg. Du kan velge eter etter eget ønske.

Metode 1: Tell kontakt "Aktiviteter"

1. Først dobbeltklikker du på den spesifikke kontakten for å åpne den i sitt eget vindu.
2. Klikk deretter på "Aktiviteter" i "Vis"-gruppen.
3. Deretter flytter du markøren til overskriften på aktivitetslisten på den nye siden.
4. Deretter høyreklikker du og velger "Vis innstillinger" fra hurtigmenyen.
5. Klikk deretter på "Grupper etter"-knappen i popup-dialogboksen.
6. Senere, i en annen dialogboks, velger du "Meldingsklasse" i rullegardinlisten "Grupper elementer etter".
7. Til slutt, klikk på en rekke "OK" for å bruke visningsinnstillingene.
8. Når du går tilbake til listen, kan du se en gruppe kalt "IPM.Appointment" med en total telling av alle avtaler knyttet til gjeldende makro, vist som følgende skjermbilde.

Metode 2: Tell med Outlook VBA

1. Til å begynne med, få tilgang til Outlook VBA-redigering via "Alt + F11".
2. Kopier deretter følgende VBA-kode til en 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. Senere legger du til denne makroen i Quick Access Toolbar (QAT) ved å følge trinnene i "Hvordan kjøre VBA-kode i Outlook".
4. Til slutt kan du prøve det.

• Først velger du en kontakt.
• Deretter trykker du på makroknappen i QAT.
• Når makroen er ferdig, vil du motta en melding om antall avtaler knyttet til den valgte kontakten, som bildet nedenfor.

Når du støter på hyppige Outlook-problemer

Forutsatt at du alltid kommer over en rekke problemer i Outlook, bør du øke årvåkenheten. Det er svært sannsynlig at Outlook PST-filen din har en tendens til å være ødelagt. På dette tidspunktet vil du ta en oppdatert sikkerhetskopi av Outlook-datafilen din med en gang. Dessuten anbefales det om mulig å få tak i en kraftig PST reparasjon verktøy, for eksempel DataNumen Outlook Repair.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette sql og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med