2 Metode za prebrojavanje broja primalaca u Outlook e-pošti

Ponekad ćete možda htjeti izračunati ukupan broj primalaca u određenoj e-poruci. Ali Outlook nema očiglednu funkciju „brojanja“ koja bi to podržala. Stoga će ovaj članak predstaviti 2 pristupa za postizanje toga.

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

Metoda 1: Prebrojite broj primalaca preko kontakt grupe

1. Za početak, trebate odabrati sve primaoce u poljima "Za", "CC" i "BCC" i kopirati ih u prazan prostor u tijelu poruke.
2. Zatim odaberite sve primaoce u tijelu i kopirajte ih također.
3. Zatim idite na okno Outlook kontakata i pritisnite "Nova grupa kontakata". U iskačućem prozoru postavite ime kao “Temp”, a zatim kliknite “Dodaj članove” i odaberite “Iz adresara” sa padajuće liste.
4. Nakon toga, zalijepite prethodno kopirane primaoce u polje “Član ->”, kao na sljedećem snimku ekrana:
5. Nakon toga kliknite na dugme “OK” i vratite se u kontakt grupu. Svi duplikati će se automatski ukloniti. Sada ga spremite na lokalni disk kao “Text” datoteku.
6. Kasnije otvorite tekstualnu datoteku i uklonite beskorisno zaglavlje, kao na slici ispod:
7. Konačno, možete postaviti kursor na zadnji red. Vidjet ćete ukupan broj linija u statusnoj traci. To je ukupan broj primalaca.

Metod 2: Prebrojite broj primalaca sa Outlook VBA

1. Prvo pritisnite tipke “Alt + F11” da biste pristupili 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 novi makro na traku s alatima za brzi pristup glavnog prozora programa Outlook i prozora poruke.
4. Na kraju možete probati:

• Kada odaberete e-poštu i pritisnete dugme na traci sa alatkama za brzi pristup, primit ćete poruku kao na sljedećoj slici:
• Kada otvorite email i kliknete na dugme, dobićete dijaloški okvir, prikazan kao na slici ispod:

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

Borba protiv opasnih makroa

Kao što svi znamo, virusi koji se prenose putem e-pošte 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 popravku oštećenih Outlook datoteka, Kao što su DataNumen Outlook Repair. Dobro će doći kada vaš Outlook doživi infekciju virusom ili napad zlonamjernog softvera.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravi SQL mdf grešku u podacima i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com