2 metode za brojanje broja primatelja u Outlook e-pošti

Ponekad ćete možda htjeti izračunati ukupan broj primatelja u određenoj e-pošti. Ali Outlook nema očitu funkciju "brojenja" koja bi to podržavala. Stoga će ovaj članak predstaviti 2 pristupa kako to postići.

U nekim situacijama, na primjer, kada ste e-pošti dodali veliki broj primatelja i teško vam je upravljati njima, željeli biste dobiti ukupan broj tih primatelja. Ali Outlook nema nativnu ili zadanu podršku za računanje. Stoga se morate dodatno potruditi da to postignete. Ovdje ćemo vam reći 2 metode.

Metoda 1: Izbrojite broj primatelja putem grupe kontakata

1. Za početak, trebali biste odabrati sve primatelje u poljima "Prima", "CC" i "BCC" te ih kopirati u prazan prostor u tijelu poruke.
2. Zatim odaberite sve primatelje u tijelu i kopirajte i njih.
3. Zatim idite na okno Outlook Contacts i pritisnite "Nova grupa kontakata". U skočnom prozoru postavite ime kao "Privremeno", a zatim kliknite "Dodaj članove" i odaberite "Iz adresara" s padajućeg popisa.
4. Nakon toga zalijepite prethodno kopirane primatelje u polje "Član ->", kao na sljedećoj snimci zaslona:
5. Nakon toga kliknite gumb "U redu" i vratite se na grupu kontakata. Svi duplikati bit će automatski uklonjeni. Sada ga spremite na lokalni disk kao "tekstualnu" datoteku.
6. Kasnije otvorite tekstualnu datoteku i uklonite beskorisno zaglavlje, kao na slici ispod:
7. Na kraju možete postaviti pokazivač na posljednji redak. U statusnoj traci vidjet ćete ukupan broj redaka. To je ukupan broj primatelja.

Metoda 2: Izbrojite broj primatelja pomoću programa Outlook VBA

1. Najprije pritisnite tipke "Alt + F11" za pristup prozoru "Visual Basic".
2. Zatim kopirajte i zalijepite sljedeće VBA kodove u novi 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. Nakon toga možete izaći iz prozora "Visual Basic" i dodati novu makronaredbu na alatnu traku za brzi pristup glavnog prozora programa Outlook i prozora s porukama.
4. Na kraju možete pokušati:

• Kada odaberete e-poštu i pritisnete gumb na alatnoj traci za brzi pristup, primit ćete poruku poput sljedeće slike:
• Kada otvorite e-poštu i kliknete gumb, dobit ćete dijaloški okvir, prikazan kao na slici ispod:

Bilješka: Ova će metoda tretirati grupu kontakata kao jednog primatelja i neće zaobići dvostruke primatelje.

Borba protiv opasnih makroa

Kao što svi znamo, virusi koji se prenose e-poštom jedna su od najčešćih prijetnji podacima. Stoga je od vitalne važnosti konfigurirati Outlook samo tako da omogući digitalno potpisane makroe, koji mogu blokirati viruse i zlonamjerni softver. Osim toga, bolje je da održavate robusnu uslužni program za popravak oštećene Outlook datoteke, Kao što su DataNumen Outlook Repair. Dobro će doći kada vaš Outlook bude zaražen virusom ili zlonamjernim softverom.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak pogreške podataka SQL mdf i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com