Dacă doriți să obțineți rapid numărul de atașamente din fiecare e-mail din lista de e-mail, puteți utiliza codul VBA din acest articol. Acesta va număra automat atașamentele din fiecare e-mail primit și va afișa numărul într-o coloană nouă.
Unii utilizatori trebuie frecvent să numere atașamentele de e-mail. În acest scenariu, de ce să nu creați și să activați o coloană exclusivă pentru afișarea numărului de atașamente? În cele ce urmează, vă vom învăța cum să faceți ca Outlook să conteze automat atașamentele de e-mail și să afișați numărul într-o astfel de coloană nouă.
Afișează numărul de atașamente în lista de e-mail
- Pentru început, lansați aplicația Outlook.
- Apoi apăsați butoanele tastei „Alt + F11” în fereastra principală a Outlook.
- Apoi, în noua fereastră de editor Outlook VBA, trebuie să deschideți un modul care nu este utilizat.
- Ulterior, copiați și inserați următorul cod VBA în acest modul.
Sub AutoCountAttachments(objMail As Outlook.MailItem)
Dim objAttachments As Outlook.Attachments
Dim objProperties As Outlook.UserProperties
Dim objProperty As Outlook.UserProperty
Dim strPropertyName As String
Set objAttachments = objMail.Attachments
strPropertyName = "Attachment Count"
Set objProperties = objMail.UserProperties
'Check if there is already a column in this name
Set objProperty = objProperties.Find(strPropertyName, True)
If objProperty Is Nothing Then
'If not, add this column
Set objProperty = objProperties.Add(strPropertyName, olText, True)
End If
'Set the column value equal to the count of attachments
objProperty.value = objAttachments.Count
objMail.Save
End Sub
- După aceea, puteți ieși din fereastra actuală „Microsoft Visual Basic for Applications”.
- Mai târziu, trebuie să creați o nouă regulă pentru rularea acestui script pe fiecare e-mail primit.
- În primul rând, accesați meniul „Fișier” și faceți clic pe butonul „Gestionați regulile și alertele” din fila „Informații”.
- Apoi, în noua casetă de dialog, apăsați butonul „Regulă nouă”.
- În ecranul următor „Rule Wizard”, selectați „Aplicați regula la mesajele pe care le primesc” și apăsați „Next”.
- Apoi ignorați „Selectați condițiile” și faceți clic pe „Următorul”.
- Apoi selectați acțiunea „Rulați un script” și selectați macrocomandă adăugată anterior, cum ar fi următoarea captură de ecran.
- După aceea, faceți clic pe mai multe „Următorul” până ajungeți la ecranul final „Finish rule setup”.
- Mai târziu, trebuie să specificați un nou nume pentru această regulă și să activați opțiunea „Rulați această regulă pentru mesajele aflate deja în „Inbox”” și „Activați această regulă”.
- În cele din urmă, faceți clic pe butonul „Terminare”.
- După aceea, ar trebui să adăugați coloana „Număr de atașamente” creată de codul VBA. Doar urmați următorii pași de mai jos:
- Mai întâi, accesați fila „Vizualizare” din ecranul listei de e-mail.
- Apoi faceți clic pe butonul „Vizualizare setări”.
- În noua casetă de dialog pop-up, apăsați butonul „Coloane”.
- Apoi, în fereastra „Afișați coloanele”, găsiți și selectați coloana „Număr de atașamente” sub „Coloane definite de utilizator în Inbox” și apăsați butonul „Adăugați”.
- În cele din urmă, faceți clic pe butonul „OK” pentru a salva modificările.
- În cele din urmă, puteți vedea o coloană „Număr de atașamente” în lista de e-mail, care afișează numărul de atașamente pentru fiecare e-mail, afișat ca imaginea de mai jos:
Evitați pierderea frustrantă de date PST
Se crede că nimeni nu este dispus să accepte pierderea datelor PST. Același lucru trebuie să fie valabil și pentru tine. Prin urmare, trebuie să luați câteva măsuri de precauție, cum ar fi să faceți copii de siguranță ale fișierului dvs. PST și să obțineți un instrument de remediere reputat, cum ar fi DataNumen Outlook Repair. Poate repara Outlook probleme fără a transpira.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv remediere sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com