Kako prikazati broj priloga na listi e-pošte sa Outlook VBA

Ako želite brzo dobiti broj priloga u svakoj e-pošti na listi e-pošte, možete koristiti VBA kod u ovom članku. Automatski će brojati priloge u svakoj dolaznoj e-pošti i prikazati broj u novoj koloni.

Neki korisnici često moraju brojati priloge e-pošte. U ovom scenariju, zašto ne kreirati i omogućiti ekskluzivnu kolonu za prikaz broja priloga? U nastavku ćemo vas naučiti kako da Outlook automatski broji privitke e-pošte i prikaže broj u takvoj novoj koloni.

Prikaži broj priloga na listi 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 Outlook VBA editora potrebno je da otvorite 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 ćete morati kreirati novo pravilo za pokretanje ove skripte za svaku dolaznu e-poštu.

• Prvo idite na meni „Datoteka“ i kliknite na dugme „Upravljanje pravilima i upozorenjima“ ispod kartice „Informacije“.
• Zatim u novom dijaloškom okviru pritisnite dugme „Novo pravilo“.
• U sljedećem ekranu "Čarobnjak za pravila" odaberite "Primijeni pravilo na poruke koje primam" i pritisnite "Dalje".
• Zatim zanemarite “Odaberite uslove” i kliknite “Dalje”.
• Zatim odaberite akciju “pokreni skriptu” i odaberite prethodno dodani makro, kao na sljedećem snimku ekrana.
• Nakon toga, kliknite nekoliko "Dalje" dok ne dođete do konačnog ekrana "Završi postavljanje pravila".
• Kasnije ćete morati navesti novo ime za ovo pravilo i omogućiti opciju “Pokreni ovo pravilo za poruke koje su već u “Primljeno”” i 'Uključi ovo pravilo”.
• Na kraju kliknite na dugme „Završi“.

7. Nakon toga, trebalo bi da dodate kolonu „Broj priloga“ kreiranu VBA kodom. Samo poduzmite sljedeće korake:

• Prvo idite na karticu "Prikaz" na ekranu liste e-pošte.
• Zatim kliknite na dugme "Pregled postavki".
• U novom dijaloškom okviru, pritisnite dugme „Kolone“.
• Zatim u prozoru "Prikaži kolone" pronađite i odaberite kolonu "Broj priloga" pod "Korisnički definirane kolone u prijemnom sandučetu" i pritisnite gumb "Dodaj".
• Na kraju kliknite na dugme “OK” da sačuvate promene.

8. Na kraju, možete vidjeti kolonu „Broj priloga“ na listi e-pošte, koja prikazuje broj priloga za svaku e-poštu, prikazanu na slici ispod:

Izbjegnite frustrirajući gubitak PST podataka

Vjeruje se da niko nije voljan prihvatiti gubitak PST podataka. Isto mora da važi i za vas. Stoga morate poduzeti neke mjere opreza, kao što je pravljenje sigurnosne kopije podataka vaše PST datoteke i nabavka renomiranih alata za popravke kao što je DataNumen Outlook Repair. Može popraviti Outlook problema bez znojenja.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući sql fix i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com