2 greiti su „Outlook“ kontaktu susietų susitikimų skaičiavimo metodai

Jei norite gauti susitikimų, susietų su konkrečiu kontaktu, skaičių, galite naudoti vieną iš 2 šiame straipsnyje pateiktų priemonių.

„Outlook“ leidžia vartotojams susieti susitikimus su kontaktais. Jei daug susitikimų susiejote su konkrečiu kontaktu ir vėliau norite juos suskaičiuoti, jums turi nepatikti skaičiuoti juos po vieną. Todėl toliau mes jums pristatysime 2 būdus. Galite pasirinkti eterį pagal savo skonį.

1 būdas: skaičiuokite kontaktinėje „Veikla“

1. Iš pradžių dukart spustelėkite konkretų kontaktą, kad atidarytumėte jį atskirame lange.
2. Tada grupėje „Rodyti“ spustelėkite „Veikla“.
3. Tada naujame puslapyje perkelkite žymeklį į veiklos sąrašo antraštę.
4. Tada dešiniuoju pelės mygtuku spustelėkite ir kontekstiniame meniu pasirinkite „View Settings“.
5. Po to iššokančiajame dialogo lange spustelėkite mygtuką „Grupuoti pagal“.
6. Vėliau kitame dialogo lange išskleidžiamajame sąraše „Grupuoti elementus pagal“ pasirinkite „Pranešimų klasė“.
7. Galiausiai spustelėkite „Gerai“, kad pritaikytumėte peržiūros nustatymus.
8. Kai grįšite į sąrašą, galite pamatyti grupę pavadinimu „IPM.Appointment“ su bendru visų su dabartine makrokomanda susietų susitikimų skaičiumi, rodomu toliau pateiktoje ekrano kopijoje.

2 būdas: skaičiuokite naudodami Outlook VBA

1. Norėdami pradėti, pasiekite „Outlook VBA“ redaktorių naudodami „Alt + F11“.
2. Tada nukopijuokite šį VBA kodą į 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. Vėliau pridėkite šią makrokomandą prie greitosios prieigos įrankių juostos (QAT), atlikdami „Kaip paleisti VBA kodą „Outlook“.".
4. Pagaliau galite tai išbandyti.

• Pirmiausia pasirinkite kontaktą.
• Tada paspauskite makrokomandos mygtuką QAT.
• Kai makrokomanda bus baigta, gausite pranešimą apie susitikimų, susietų su pasirinktu kontaktu, skaičių, kaip parodyta paveikslėlyje žemiau.

Kai susiduriate su dažnomis „Outlook“ problemomis

Darant prielaidą, kad „Outlook“ visada susiduriate su įvairiomis problemomis, turėtumėte būti budrūs. Labai tikėtina, kad jūsų Outlook PST failas yra sugadintas. Šiuo metu turėtumėte iš karto sukurti atnaujintą „Outlook“ duomenų failo atsarginę kopiją. Be to, jei įmanoma, rekomenduojama pasiimti galingą PST remontas įrankis, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atkurti sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com