3 nopeaa menetelmää kaikkien Outlookin merkittyjen kohteiden laskemiseen

Outlookin avulla voit merkitä kohteet seurantaa varten, kuten sähköpostit, yhteystiedot ja niin edelleen. Tässä tilanteessa saatat joskus haluta laskea merkityt kohteet. Tässä jaamme kanssasi 3 lähestymistapaa.

Ehkä olet merkinnyt Outlookissasi useita kohteita seurantaa varten. Voit esimerkiksi merkitä yhteystiedon, jonka aiot soittaa tälle kontaktille myöhemmin. Koska merkittyjä kohteita on niin paljon, saatat toivoa saavasi niiden määrän. Tämän jälkeen esittelemme sinulle 3 keinoa.

Tapa 1: Laske hakukansion kautta

Jos haluat vain laskea merkityt sähköpostit, voit käyttää hakukansiota. Tässä on yksityiskohtaiset vaiheet.

1. Aloita napsauttamalla sähköpostin navigointipaneelissa hiiren kakkospainikkeella "Hae kansioita".
2. Valitse sitten sen kontekstivalikosta "Uusi hakukansio".
3. Valitse ponnahdusikkunasta "Posti merkitty seurantaa varten" ja napsauta "OK".
4. Lopuksi saat hakukansioon merkittyjen sähköpostien kokonaismäärän, kuten seuraavan kuvakaappauksen.

Tapa 2: Laske tehtäväluetteloon

Jos olet merkinnyt sähköpostien lisäksi myös yhteystiedot, yhteystietoryhmät ja niin edelleen, saatat haluta saada kaikkien näiden merkittyjen kohteiden kokonaismäärän. Tässä tilanteessa voit käyttää seuraavaa tapaa.

1. Siirry ensin Tasks-navigointiruutuun painamalla "Ctrl + 4".
2. Siirry sitten "To-Do List" -luetteloon, jossa näet kaikki merkityt kohteet alla olevan kuvan mukaisesti:
3. Valitse seuraavaksi kaikki nämä kohteet ja paina Enter-näppäintä yrittäen avata ne erissä.
4. Myöhemmin saat varoituksen liian monen kohteen avaamisesta, kuten seuraava kuva. Varoituksessa on merkittyjen kohteiden kokonaismäärä.

Tapa 3: Laske Outlook VBA:lla

Ehkä et vain halua saada kaikkien merkittyjen kohteiden kokonaismäärää, vaan myös erityyppisten merkittyjen kohteiden lukumäärät. Tässä on ratkaisu tähän asiaan.

1. Aloita avaamalla Outlook VBA -editori viitaten artikkeliin "Kuinka suorittaa VBA-koodi Outlookissa".
2. Kopioi sitten alla oleva VBA-koodi moduuliin tai projektiin.

Dim lSeparateCount, lMailCount, lContactCount, lTaskCount As Long

Sub CountFlaggedItems()
    Dim objStore As Outlook.Store
    Dim lTotalCount As Long
    Dim strMsg As String

    lTotalCount = 0
    lMailCount = 0
    lContactCount = 0
    lTaskCount = 0
 
    For Each objStore In Application.Session.Stores
        For Each objFolder In objStore.GetRootFolder.Folders
            Call ProcessFolders(objFolder, lTotalCount)
        Next
    Next
 
    strMsg = lTotalCount & " items have been flagged, as follows: " & vbCr & vbCr & "Emails: " & lMailCount & vbCr & "Contacts: " & lContactCount & vbCr & "Tasks: " & lTaskCount
    MsgBox strMsg, vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder, ByRef lCount As Long)
    Dim objSubfolder As Outlook.Folder
 
    Select Case objCurrentFolder.DefaultItemType
       Case olMailItem
            Call Count(objCurrentFolder, lCount)
            lMailCount = lMailCount + lSeparateCount
       Case olContactItem
            Call Count(objCurrentFolder, lCount)
            lContactCount = lContactCount + lSeparateCount
       Case olTaskItem
            Call Count(objCurrentFolder, lCount)
            lTaskCount = lTaskCount + lSeparateCount
            lCount = lCount + objCurrentFolder.Items.Count
    End Select
 
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder, lCount)
       Next
    End If
End Sub

Sub Count(objCurfolder As Outlook.Folder, lCurCount As Long)
    Dim objItem As Object
 
    lSeparateCount = 0
    For Each objItem In objCurfolder.Items
        Select Case objItem.Class
           Case olMail, olPost, olContact, olDistList, olSharing
                If objItem.IsMarkedAsTask = True Then
                   lSeparateCount = lSeparateCount + 1
                   lCurCount = lCurCount + 1
                End If
           Case olTask
                lSeparateCount = lSeparateCount + 1
        End Select
    Next
End Sub

3. Napsauta lopuksi "CountFlaggedItems" -aliohjelmaa ja paina "F5" -painiketta.
4. Kun makro on valmis, saat viestin, joka pyytää kaikkien merkittyjen kohteiden kokonaismäärän, kuten alla olevassa kuvassa.

Hävitä ärsyttävät Outlook-ongelmat

Outlookissa Outlook-ongelmia voi ilmetä silloin tällöin. Näin ollen sinun olisi parempi hankkia tip-top ja luotettava Outlook-korjaus apuohjelma, kuten DataNumen Outlook Repair. Se voi skannata Outlook-tiedostosi älykkäästi ja korjata tiedostovirheet muutamassa minuutissa.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien mdf-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com