Kako prikazati broj privitaka na popisu e-pošte uz Outlook VBA

Ako želite brzo dobiti broj privitaka u svakoj e-pošti na popisu e-pošte, možete koristiti VBA kod u ovom članku. Automatski će brojati privitke u svakoj dolaznoj e-pošti i prikazati broj u novom stupcu.

Neki korisnici često moraju brojati privitke e-pošte. U ovom scenariju, zašto ne biste stvorili i omogućili ekskluzivni stupac za prikaz broja privitaka? U nastavku ćemo vas naučiti kako natjerati Outlook da automatski broji privitke e-pošte i prikazuje broj u takvom novom stupcu.

Prikažite broj privitaka na popisu e-pošte

1. Za početak, pokrenite Outlook aplikaciju.
2. Zatim pritisnite tipke "Alt + F11" u glavnom prozoru programa Outlook.
3. Zatim u novom prozoru uređivača programa Outlook VBA trebate otvoriti modul koji se ne koristi.
4. Nakon toga kopirajte i zalijepite sljedeći VBA kod u ovaj 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

5. Nakon toga možete izaći iz trenutnog prozora "Microsoft Visual Basic za aplikacije".
6. Kasnije morate stvoriti novo pravilo za pokretanje ove skripte na svakoj dolaznoj e-pošti.

• Prvo idite na izbornik "Datoteka" i kliknite gumb "Upravljanje pravilima i upozorenjima" pod karticom "Informacije".
• Zatim u novom dijaloškom okviru pritisnite gumb "Novo pravilo".
• Na sljedećem zaslonu "Čarobnjaka za pravila" odaberite "Primijeni pravilo na poruke koje primam" i pritisnite "Dalje".
• Zatim zanemarite "Odaberi uvjete" i kliknite "Dalje".
• Zatim odaberite radnju "pokreni skriptu" i odaberite prethodno dodanu makronaredbu, kao na sljedećoj snimci zaslona.
• Nakon toga nekoliko puta pritisnite "Dalje" dok ne dođete do konačnog zaslona "Završi postavljanje pravila".
• Kasnije trebate navesti novi naziv za ovo pravilo i uključiti opciju “Pokreni ovo pravilo za poruke koje su već u “Inbox”” i “Uključi ovo pravilo”.
• Na kraju kliknite gumb "Završi".

7. Nakon toga, trebali biste dodati stupac “Attachment Count” kreiran pomoću VBA koda. Samo poduzmite sljedeće korake u nastavku:

• Prvo idite na karticu "Prikaz" na zaslonu popisa e-pošte.
• Zatim kliknite gumb "View Settings".
• U novom skočnom dijaloškom okviru pritisnite gumb "Stupci".
• Zatim u prozoru "Prikaži stupce" pronađite i odaberite stupac "Broj privitaka" pod "Korisnički definirani stupci u ulaznoj pošti" i pritisnite gumb "Dodaj".
• Na kraju kliknite gumb "OK" za spremanje promjena.

8. Na kraju možete vidjeti stupac "Broj privitaka" na popisu e-pošte, koji prikazuje broj privitaka za svaku e-poštu, prikazan kao slika ispod:

Izbjegnite frustrirajući gubitak PST podataka

Vjeruje se da nitko nije spreman prihvatiti gubitak PST podataka. Isto mora vrijediti i za vas. Stoga morate poduzeti neke mjere opreza, poput izrade sigurnosnih kopija podataka vaše PST datoteke i nabave renomiranog alata za popravak kao što je DataNumen Outlook Repair. To može popraviti Outlook pitanja bez da se oznojite.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql popravak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com