2 Mabilis na Paraan upang mabilang ang Mga Appointment na naka-link sa isang Makipag-ugnay sa Outlook

Kung nais mong makuha ang bilang ng mga tipanan na naka-link sa isang tukoy na contact, maaari mong gamitin ang alinman sa 2 nangangahulugang ipinakilala sa artikulong ito.

Pinapayagan ng Outlook ang mga gumagamit na mag-link ng mga tipanan sa mga contact. Kung nag-link ka ng maraming mga tipanan sa isang tukoy na contact at sa paglaon ay nais na bilangin ang mga ito, dapat mong ayaw na bilangin sila isa-isa. Samakatuwid, sa mga sumusunod, magpapakilala kami ng 2 mga paraan sa iyo. Maaari kang pumili ng ether ayon sa gusto mo.

Paraan 1: Bilangin sa Pakikipag-ugnay sa "Mga Aktibidad"

1. Sa una, i-double click ang tukoy na contact upang buksan ito sa sarili nitong window.
2. Pagkatapos, i-click ang "Mga Aktibidad" sa pangkat na "Ipakita".
3. Susunod, sa bagong pahina, ilipat ang cursor sa header ng listahan ng aktibidad.
4. Kasunod, mag-right click at piliin ang "Tingnan ang Mga Setting" mula sa menu ng konteksto.
5. Pagkatapos, sa popup dialog box, i-click ang button na "Pangkatin Ng".
6. Sa paglaon, sa isa pang dayalogo, piliin ang "Klase ng Mensahe" sa drop down na listahan ng "Mga item ng pangkat ayon sa".
7. Sa huli, mag-click sa isang serye ng "OK" upang mailapat ang mga setting ng pagtingin.
8. Kapag bumalik ka sa listahan, maaari mong makita ang isang pangkat na tinatawag na "IPM.Pagtalaga" na may kabuuang bilang ng lahat ng mga tipanan na naka-link sa kasalukuyang macro, na ipinakita bilang sumusunod na screenshot.

Paraan 2: Bilangin kasama ang Outlook VBA

1. Upang magsimula, i-access ang editor ng VBA ng Outlook sa pamamagitan ng "Alt + F11".
2. Pagkatapos, kopyahin ang sumusunod na VBA code sa isang module.

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. Sa paglaon, idagdag ang macro na ito sa Quick Access Toolbar (QAT) sa pamamagitan ng pagsunod sa mga hakbang sa “Paano Patakbuhin ang VBA Code sa Iyong Outlook".
4. Panghuli, maaari mo itong subukan.

• Una, pumili ng isang contact.
• Pagkatapos, pindutin ang pindutan ng macro sa QAT.
• Kapag natapos ang macro, makakatanggap ka ng isang mensahe tungkol sa bilang ng mga appointment na naka-link sa napiling contact, tulad ng larawan sa ibaba.

Kapag Nakakatagpo ng Madalas na Mga Isyu ng Outlook

Ipagpalagay na palagi kang nakakakita ng iba't ibang mga problema sa iyong Outlook, dapat mong taasan ang iyong pagbabantay. Malamang na ang iyong Outlook PST file ay may kaugaliang masira. Sa puntong ito, gagawa ka ng isang nai-update na backup ng iyong file ng data ng Outlook nang sabay-sabay. Gayundin, kung maaari, inirerekumenda na mahawakan ang isang malakas Pagkumpuni ng PST tool, tulad ng DataNumen Outlook Repair.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang mabawi ang sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa