2 metoder for å telle antall mottakere i en Outlook-e-post

Noen ganger kan det være lurt å beregne det totale antallet mottakere i en bestemt e-post. Men Outlook har ingen åpenbar "telle"-funksjon som støtter den. Så denne artikkelen vil introdusere 2 tilnærminger for å oppnå det.

I noen situasjoner, for eksempel når du har lagt til en stor mengde mottakere i en e-post og synes det er vanskelig å administrere dem, vil du gjerne ha det totale antallet av disse mottakerne. Men Outlook har ikke en innfødt eller standardstøtte å telle. Derfor må du gjøre litt ekstra innsats for å oppnå det. Her vil vi fortelle deg 2 metoder.

Metode 1: Tell antall mottakere via kontaktgruppe

1. Til start med, bør du velge alle mottakerne i "Til", "CC" og "BCC"-feltene og kopiere dem til den tomme plassen i meldingsteksten.
2. Velg deretter alle mottakerne i brødteksten og kopier dem også.
3. Gå deretter til Outlook-kontaktpanelet og trykk "Ny kontaktgruppe". I popup-vinduet, sett navnet som "Temp" og klikk deretter "Legg til medlemmer" og velg "Fra adressebok" fra rullegardinlisten.
4. Deretter limer du inn de tidligere kopierte mottakerne i "Medlem ->"-feltet, som følgende skjermbilde:
5. Deretter klikker du på "OK"-knappen og går tilbake til kontaktgruppen. Alle duplikatene vil bli fjernet automatisk. Lagre den nå på lokal disk som "Tekst"-fil.
6. Åpne tekstfilen senere og fjern den ubrukelige overskriften, som bildet nedenfor:
7. Til slutt kan du plassere markøren på den siste linjen. Du vil se det totale antallet linjene i statuslinjen. Det er det totale antallet mottakere.

Metode 2: Tell antall mottakere med Outlook VBA

1. Først trykker du på "Alt + F11"-tastene for å få tilgang til "Visual Basic"-vinduet.
2. Deretter kopierer og limer du inn følgende VBA-koder i en ny modul.

Sub CountRecipients()
    Dim obApp As Outlook.Application
    Dim olSel As Selection
    Dim olItem As MailItem
    Dim Recips As Recipients
    Dim strMsg As String
    Dim nRes As Integer
 
    Set obApp = Outlook.Application
 
    If TypeName(obApp.ActiveWindow) = "Inspector" Then
       Set olItem = obApp.ActiveInspector.CurrentItem
       Set Recips = olItem.Recipients
       strMsg = "The current message contains " & Recips.Count & " recipient(s)."
       nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
    Else
       Set olItem = obApp.ActiveExplorer.Selection.Item(1)
       Set Recips = olItem.Recipients
       strMsg = "The selected message contains " & Recips.Count & " recipient(s)."
       nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
    End If
 
    Set obApp = Nothing
    Set olSel = Nothing
    Set olItem = Nothing
    Set Recips = Nothing
End Sub

3. Etter det kan du gå ut av "Visual Basic"-vinduet og legge til den nye makroen til Quick Access Toolbar i hovedvinduet i Outlook og meldingsvinduet.
4. Til slutt kan du prøve:

• Når du velger en e-post og trykker på knappen i Quick Access Toolbar, vil du motta en melding som følgende bilde:
• Når du åpner en e-post og klikker på knappen, får du opp en dialogboks, vist som bildet nedenfor:

OBS: Denne metoden vil behandle en kontaktgruppe som én mottaker og vil ikke omgå de dupliserte mottakerne.

Kamp mot farlige makroer

Som vi alle vet, har e-postbårne virus vært en av de most vanlige trusler mot data. Så det er svært viktig å konfigurere Outlook bare for å aktivere de digitalt signerte makroene, som kan blokkere virus og skadelig programvare. I tillegg bør du beholde en robust reparasjonsverktøy for ødelagte Outlook-filer, Eksempel DataNumen Outlook Repair. Det vil komme godt med når Outlook-en din lider av virusinfeksjon eller malwareangrep.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparer SQL mdf-datafeil og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med