Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com es pot comptar el nombre de missatges marcats a l'Outlook?

En perspectiva, podeu marcar els missatges, contactes o tasques perquè siguin excepcionals, però, de vegades, heu de comptar el nombre d'elements marcats al vostre Outlook. Com podria fer front a aquesta tasca a Outlook?

Compti el nombre de missatges marcats en un compte amb carpetes de cerca

Compti el nombre de missatges marcats / contactes / tasques per separat en tots els comptes amb codi VBA


Compti el nombre d'avui, d'ahir, llegit, no llegit, articles totals ... a l'Outlook

amb Kutools per Outlookés poderós Estadística funció, podeu obtenir el nombre d'itmes segons la data, els elements seleccionats, llegir-los, llegir-los, etc.

doc compte amb elements marcats 6

Kutools per Outlook: amb més de 20 + add-ins útils, gratuïts per intentar sense limitacions en 60 dies. Descarregueu i proveu la prova gratuïta ara mateix.

Compti el nombre de missatges marcats en un compte amb carpetes de cerca

Per explicar el nombre de correus electrònics marcats en un compte d 'Outlook, el Carpetes de cerca la funció us pot ajudar, fes-ho així:

1. Clic dret Carpetes de cerca al vostre compte de correu electrònic i, a continuació, seleccioneu Nova carpeta de cerca, veure captura de pantalla:

doc compte amb elements marcats 1

2. Llavors a Nova carpeta de cerca S'obre el quadre de diàleg, feu clic a Correu marcat per al seguiment opció en el Lectura de correu secció, veure captura de pantalla:

doc compte amb elements marcats 2

3. A continuació, feu clic a OK, i tots els missatges marcats es copien al Per continuar la carpeta i el nombre total dels correus electrònics marcats es mostra a continuació de la següent captura de pantalla:

doc compte amb elements marcats 3


Compti el nombre de missatges marcats / contactes / tasques per separat en tots els comptes amb codi VBA

Si voleu comptar el nombre de tots els elements marcats, com ara correus electrònics, contactes i tasques a l'Outlook per separat, el següent codi VBA us pot fer un favor.

1. Mantingueu premut el botó ALT + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. A continuació, feu clic a Insereix > Mòduls, copieu i enganxeu el codi de sota del mòdul en blanc obert, vegeu la captura de pantalla:

Codi VBA: compte el nombre de temps marcats a l'Outlook:

Dim GSeparateCount, GMailCount, GContactCount, GTaskCount As Long
Sub CountFlaggedItems()
Dim xStore As Outlook.Store
Dim xTotalCount As Long
Dim xPrompt As String
Dim xFolder As Folder
Dim i, k As Integer
On Error Resume Next
xTotalCount = 0
GMailCount = 0
GContactCount = 0
GTaskCount = 0
For Each xStore In Application.Session.Stores
    For Each xFolder In xStore.GetRootFolder.Folders
       Call ProcessFolders(xFolder)
    Next
Next
xTotalCount = GMailCount + GContactCount + GTaskCount
xPrompt = xTotalCount & " items have been flagged, as follows: " & Chr(10) & Chr(10) & "Emails: " & GMailCount & Chr(10) & "Contacts: " & GContactCount & Chr(10) & "Tasks: " & GTaskCount
MsgBox xPrompt, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFolder As Outlook.Folder)
Dim xSubfolder As Outlook.Folder
Dim xItem As Object
Dim i, k As Integer
On Error Resume Next
For i = CurFolder.Items.Count To 1 Step -1
    Set xItem = CurFolder.Items.item(i)
    Select Case xItem.Class
        Case olMail, olPost, olSharing
            If xItem.IsMarkedAsTask = True Then
                GMailCount = GMailCount + 1
            End If
        Case olContact, olDistList
            If xItem.IsMarkedAsTask = True Then
                GContactCount = GContactCount + 1
            End If
        Case olTask
            If CurFolder.DefaultItemType = olTaskItem Then
            GTaskCount = GTaskCount + 1
            End If
    End Select
Next i
If CurFolder.Folders.Count > 0 Then
        For k = CurFolder.Folders.Count To 1 Step -1
            Set xSubfolder = CurFolder.Folders.item(k)
            Call ProcessFolders(xSubfolder)
        Next k
    End If
End Sub

doc compte amb elements marcats 4

3. A continuació, premeu F5 la clau per executar aquest codi i apareix una caixa ràpida per indicar-vos el recompte total de tots els ítems marcats a continuació de la següent captura de pantalla:

doc compte amb elements marcats 5



Kutools per Outlook

Més de 100 Advanced Functions for Outlook 2010, 2013, 2016, 2019 i 365

captura de pantalla kutools per a les minúscules perspectives per a l'anunci 201812

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.