Vi s-a cerut vreodată să numărați numărul de atașamente de e-mail din e-mailurile selectate? Va fi plictisitor dacă le numeri manual. Aici vă vom ajuta să faceți numărarea mult mai ușoară și mai rapidă cu Outlook VBA.
Din anumite motive, este posibil să fie nevoie să numărați atașamentele din e-mailurile Outlook. Dacă doriți pur și simplu să aflați numărul de atașamente dintr-un singur e-mail, va fi considerabil de ușor. Dar dacă doriți să numărați atașamentele din mai multe e-mailuri, va fi foarte dificil să le numărați manual. În general, una dintre cele mai comune metode este să salvați toate atașamentele într-un folder local de pe computer. Apoi selectați-le, iar Windows Explorer vă va indica numărul de elemente selectate în bara de stare.
Cu toate acestea, nu se poate nega că această metodă este încă destul de greoaie. De fapt, prin intermediul Outlook VBA, puteți obține rapid numărul total de atașamente din e-mailurile Outlook selectate. Citiți mai departe pentru a afla codurile și pașii VBA detaliate.
Obțineți rapid numărul total de atașamente din e-mailurile selectate
- La început, lansați aplicația Outlook și accesați fila „Dezvoltator”.
- Apoi puteți face clic pe butonul „Visual Basic”. Vă va aduce la fereastra „Microsoft Visual Basic pentru aplicații”.
- În continuare, ar trebui să deschideți un nou modul care nu este utilizat. Selectați „Inserare” > „Modul”.
- După aceea, trebuie să copiați și să lipiți următoarele coduri VBA în el.
Sub CountAttachmentsinSelectedEmails()
Dim olSel As Selection
Dim oMail As Object
Dim AttCount As Long
Dim strMsg As String
Set olSel = Outlook.Application.ActiveExplorer.Selection
For Each oMail In olSel
'To confirm if the selected items are all emails
If oMail.Class <> olMail Then
strMsg = "Please select mail items only!"
nRes = MsgBox(strMsg, vbOKOnly + vbExclamation)
Exit Sub
End If
'Get the total number of the attachments in selected emails
AttCount = oMail.Attachments.Count + AttCount
Next
strMsg = "There are " & AttCount & " attachments in the " & olSel.Count & " selected emails."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Attachments")
End Sub
- Ulterior, puteți ieși din fereastra „Visual Basic” și reveniți la fereastra principală Outlook. Apoi ar trebui să găsiți și să apăsați săgeata în jos din Bara de instrumente Acces rapid și să selectați „Mai multe comenzi” din lista derulantă.
- Mai târziu urmați pașii indicați în imaginea de mai jos.
- În sfârșit poți încerca.
- După ce ați selectat mai multe e-mailuri, puteți apăsa noul buton din Bara de instrumente Acces rapid. Ulterior, veți primi un mesaj care vă spune numărul de atașamente din e-mailurile selectate. Arată ca următoarea imagine:
- Dar dacă selectați elemente care sunt solicitări de întâlnire sau răspunsuri deopotrivă în loc de e-mailuri, veți primi o alertă, ca în imaginea de mai jos:
Reacționați la problemele ocazionale ale Outlook
Dacă ați folosit Outlook de zeci de ani, trebuie să fi întâmpinat mai multe probleme, inclusiv Outlook care nu răspunde, Outlook înghețat, mesaje de eroare frecvente și Coruperea e-mailului Outlook PST și așa mai departe. Ați stăpânit deja vreun truc pentru a le rezolva? În general, puteți porni Outlook în modul de siguranță, puteți crea un nou profil Outlook, puteți repara Office și dezactiva programele de completare terțe etc. În plus, ar trebui să aveți la îndemână și un instrument de reparare puternic, cum ar fi DataNumen Outlook Repair. Va fi util atunci când atât backup-urile, cât și instrumentul de reparare a căsuței primite eșuează.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparați datele SQL corupte și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com