2 snabba metoder för att räkna möten som är kopplade till en Outlook-kontakt

Om du vill få antalet möten som är länkade till en specifik kontakt kan du använda något av de två sätten som presenteras i den här artikeln.

Outlook tillåter användare att länka möten till kontakter. Om du har länkat många möten till en viss kontakt och senare vill räkna dem, måste du ogillar att räkna dem en efter en. Därför kommer vi i det följande att presentera två sätt för dig. Du kan välja eter efter eget tycke.

Metod 1: Räkna i kontaktaktiviteter

1. Dubbelklicka först på den specifika kontakten för att öppna den i sitt eget fönster.
2. Klicka sedan på "Aktiviteter" i gruppen "Visa".
3. Nästa, på den nya sidan, flytta markören till rubriken i aktivitetslistan.
4. Högerklicka sedan och välj “Visa inställningar” från snabbmenyn.
5. Klicka sedan på "Gruppera efter" i popup-dialogrutan.
6. Senare, i en annan dialogruta, välj "Meddelandeklass" i listrutan "Gruppera objekt efter".
7. I slutändan klickar du på en serie "OK" för att tillämpa visningsinställningarna.
8. När du återvänder till listan kan du se en grupp som heter “IPM.Appointment” med ett totalt antal av de möten som är kopplade till det aktuella makrot, som visas som följande skärmdump.

Metod 2: Räkna med Outlook VBA

1. Till att börja med, öppna Outlook VBA-redigeraren via “Alt + F11”.
2. Kopiera sedan följande VBA-kod till 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. Senare lägger du till detta makro i snabbåtkomstverktygsfältet (QAT) genom att följa stegen i ”Hur du kör VBA-kod i din Outlook".
4. Slutligen kan du prova det.

• Välj först en kontakt.
• Tryck sedan på makroknappen i QAT.
• När makrot är klart kommer du att få ett meddelande om antalet utnämningar kopplade till den valda kontakten, som bilden nedan.

När du stöter på vanliga Outlook-problem

Förutsatt att du alltid stöter på en mängd olika problem i din Outlook, bör du höja din vaksamhet. Det är mycket troligt att din Outlook PST-fil tenderar att bli skadad. Vid den här tiden gör du en uppdaterad säkerhetskopia av din Outlook-datafil på en gång. Om möjligt rekommenderas också att få tag i en kraftfull PST-reparation verktyg, såsom DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive återhämta sql och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com