2 metoder för att räkna antalet mottagare i ett Outlook-e-postmeddelande

Ibland kanske du vill beräkna det totala antalet mottagare i ett specifikt e-postmeddelande. Men Outlook har ingen uppenbar "räknefunktion" för att stödja det. Så den här artikeln kommer att introducera 2 metoder för att uppnå det.

I vissa situationer, till exempel när du har lagt till en stor mängd mottagare i ett e-postmeddelande och tycker det är svårt att hantera dem, vill du få det totala antalet mottagare. Men Outlook har inget inbyggt eller standardstöd att räkna. Därför måste du göra några extra ansträngningar för att uppnå det. Här kommer vi att berätta 2 metoder.

Metod 1: Räkna antalet mottagare via kontaktgrupp

1. Till att börja med bör du markera alla mottagare i fälten "Till", "CC" och "BCC" och kopiera dem till det tomma utrymmet i meddelandets brödtext.
2. Välj sedan alla mottagare i brödtexten och kopiera dem också.
3. Gå sedan till Outlook-kontaktfönstret och tryck på "Ny kontaktgrupp". I popup-fönstret, ställ in namnet som "Templar" och klicka sedan på "Lägg till medlemmar" och välj "Från adressbok" från rullgardinsmenyn.
4. Klistra sedan in de tidigare kopierade mottagarna i fältet "Medlem ->", som följande skärmdump:
5. Efter det, klicka på "OK"-knappen och tillbaka till kontaktgruppen. Alla dubbletter kommer att tas bort automatiskt. Spara den nu på lokal disk som "Text"-fil.
6. Öppna textfilen senare och ta bort den värdelösa rubriken, som bilden nedan:
7. Slutligen kan du placera markören på sista raden. Du kommer att se det totala antalet rader i statusfältet. Det är det totala antalet mottagare.

Metod 2: Räkna antalet mottagare med Outlook VBA

1. Först, tryck på "Alt + F11" knapparna för att komma åt "Visual Basic" fönstret.
2. Kopiera sedan och klistra in följande 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. Efter det kan du avsluta fönstret "Visual Basic" och lägga till det nya makrot i verktygsfältet Snabbåtkomst i huvudfönstret i Outlook och meddelandefönstret.
4. Så småningom kan du prova:

• När du väljer ett e-postmeddelande och trycker på knappen i verktygsfältet Snabbåtkomst kommer du att få ett meddelande som följande bild:
• När du öppnar ett e-postmeddelande och klickar på knappen får du en dialogruta som visas som bilden nedan:

Obs: Den här metoden kommer att behandla en kontaktgrupp som en mottagare och kommer inte att kringgå dubblettmottagarna.

Kamp mot farliga makron

Som vi alla vet har e-postvirus varit ett av de vanligaste hoten mot data. Så det är oerhört viktigt att konfigurera Outlook för att endast aktivera digitalt signerade makron, vilka kan blockera virus och skadlig kod. Dessutom bör du upprätthålla en robust reparationsverktyget för korrupta Outlook-filer, Såsom DataNumen Outlook Repair. Det kommer att vara praktiskt när din Outlook drabbas av virusinfektion eller attack med skadlig programvara.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparera SQL mdf-datafel och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com