Ndonjëherë, mund të dëshironi të llogaritni numrin total të marrësve në një email specifik. Por Outlook nuk ka asnjë funksion të dukshëm "numërimi" për ta mbështetur atë. Pra, ky artikull do të prezantojë 2 mënyra për ta arritur atë.
Në disa situata, për shembull, kur keni shtuar një sasi të madhe marrësish në një email dhe e keni të vështirë t'i menaxhoni ata, dëshironi të merrni numrin total të këtyre marrësve. Por Outlook nuk ka një mbështetje origjinale ose të paracaktuar për t'u numëruar. Kështu që ju duhet të bëni disa përpjekje shtesë për ta arritur atë. Këtu do t'ju tregojmë 2 metoda.
Metoda 1: Numëroni numrin e marrësve përmes Grupit të Kontaktit
- Për të filluar, duhet të zgjidhni të gjithë marrësit në fushat "Për", "CC" dhe "BCC" dhe t'i kopjoni ato në hapësirën bosh në trupin e mesazhit.

- Pastaj zgjidhni të gjithë marrësit në trup dhe kopjoni ato gjithashtu.
- Pastaj shkoni te paneli i kontakteve të Outlook dhe klikoni "Grupi i ri i kontaktit". Në dritaren që shfaqet, vendosni emrin si "Temp" dhe më pas klikoni "Shto anëtarë" dhe zgjidhni "Nga Libri i Adresave" nga lista rënëse.
- Më pas, ngjitni marrësit e kopjuar më parë në fushën "Anëtar ->", si pamja e mëposhtme e ekranit:
- Pas kësaj, klikoni butonin "OK" dhe kthehuni te Grupi i Kontaktit. Të gjitha dublikatat do të hiqen automatikisht. Tani ruani atë në diskun lokal si skedar "Text".
- Më vonë hapni skedarin e tekstit dhe hiqni kokën e padobishme, si imazhi më poshtë:
- Më në fund mund ta vendosni kursorin në rreshtin e fundit. Do të shihni numrin total të rreshtave në shiritin e statusit. Ky është numri i përgjithshëm i marrësve.
Metoda 2: Numëroni numrin e marrësve me Outlook VBA
- Fillimisht, shtypni butonat "Alt + F11" për të hyrë në dritaren "Visual Basic".
- Pastaj kopjoni dhe ngjisni kodet e mëposhtme VBA në një modul të ri.
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
- Pas kësaj, mund të dilni nga dritarja "Visual Basic" dhe të shtoni makro të re në shiritin e veglave të aksesit të shpejtë të dritares kryesore të Outlook dhe dritares së mesazheve.
- Më në fund mund të provoni:
- Kur zgjidhni një email dhe shtypni butonin në Shiritin e Veglave të Qasjes së Shpejtë, do të merrni një mesazh si fotografia e mëposhtme:
- Kur hapni një email dhe klikoni butonin, do të merrni një kuti dialogu, e paraqitur si imazhi më poshtë:
Shënim: Kjo metodë do të trajtojë një grup kontakti si një marrës dhe nuk do të anashkalojë marrësit e dyfishtë.
Lufta kundër makrove të rrezikshme
Siç e dimë të gjithë, viruset e transmetuara me email kanë qenë një nga kërcënimet më të zakonshme për të dhënat. Prandaj, është shumë e rëndësishme të konfiguroni Outlook vetëm për të aktivizuar makrot e nënshkruara dixhitale, të cilat mund të bllokojnë viruset dhe programet keqdashëse. Plus, është më mirë të mbani një sistem të fuqishëm... programi i korruptuar i riparimit të skedarëve Outlook, Të tilla si DataNumen Outlook Repair. Do të jetë i dobishëm kur Outlook-u juaj vuan nga infeksioni me virus ose sulmi i malware.
Hyrje e autorit:
Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparimi i gabimit të të dhënave SQL mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com






