Uneori, poate doriți să calculați numărul total de destinatari dintr-un anumit e-mail. Dar Outlook nu are o funcție evidentă de „numărătoare” care să o susțină. Deci, acest articol va introduce 2 abordări pentru a-l realiza.
În unele situații, de exemplu, când ați adăugat un număr mare de destinatari la un e-mail și vă este dificil să-i gestionați, doriți să obțineți numărul total al acestor destinatari. Dar Outlook nu are un suport nativ sau implicit care să fie luat în considerare. Prin urmare, trebuie să depui niște eforturi suplimentare pentru a-l atinge. Aici vă vom spune 2 metode.
Metoda 1: Numărați numărul de destinatari prin grupul de contact
- Pentru început, ar trebui să selectați toți destinatarii din câmpurile „Către”, „CC” și „BCC” și să îi copiați în spațiul gol din corpul mesajului.
- Apoi selectați toți destinatarii din corp și copiați-i de asemenea.
- Apoi, accesați panoul de contacte Outlook și apăsați „Grup de contact nou”. În fereastra pop-up, setați numele ca „Temp”, apoi faceți clic pe „Adăugați membri” și selectați „Din agenda de adrese” din lista derulantă.
- Ulterior, inserați destinatarii copiați anterior în câmpul „Member ->”, ca în următoarea captură de ecran:
- După aceea, faceți clic pe butonul „OK” și înapoi la Grupul de contacte. Toate duplicatele vor fi eliminate automat. Acum salvați-l pe discul local ca fișier „Text”.
- Mai târziu, deschideți fișierul Text și eliminați antetul inutil, ca în imaginea de mai jos:
- În cele din urmă, puteți plasa cursorul pe ultima linie. Veți vedea numărul total de linii în bara de stare. Acesta este numărul total de destinatari.
Metoda 2: Numărați numărul de destinatari cu Outlook VBA
- La început, apăsați butoanele tastei „Alt + F11” pentru a accesa fereastra „Visual Basic”.
- Apoi copiați și inserați următoarele coduri VBA într-un modul nou.
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
- După aceea, puteți ieși din fereastra „Visual Basic” și puteți adăuga noua macrocomandă la Bara de instrumente Acces rapid a ferestrei principale Outlook și a ferestrei de mesaje.
- În cele din urmă, puteți încerca:
- Când selectați un e-mail și apăsați butonul din Bara de instrumente Acces rapid, veți primi un mesaj ca următoarea imagine:
- Când deschideți un e-mail și faceți clic pe butonul, veți primi o casetă de dialog, prezentată ca imaginea de mai jos:
Notă: Această metodă va trata un grup de contact ca un singur destinatar și nu va ocoli destinatarii duplicați.
Luptă împotriva macro-urilor periculoase
După cum știm cu toții, virușii transmiși prin e-mail au fost printre cele mai frecvente amenințări la adresa datelor. Prin urmare, este extrem de important să configurați Outlook doar pentru a activa macrocomenzile semnate digital, care pot bloca virușii și programele malware. În plus, ar fi bine să păstrați un sistem robust... utilitarul de reparare a fișierelor Outlook corupt, Cum ar fi DataNumen Outlook Repair. Va fi util atunci când Outlook-ul dumneavoastră suferă infecție cu virus sau atac de malware.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparați eroarea datelor SQL mdf și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com