Liitteiden määrän näyttäminen sähköpostiluettelossa Outlook VBA:lla

Jos haluat saada nopeasti kunkin sähköpostiluettelon sähköpostin liitteiden määrän, voit käyttää tämän artikkelin VBA-koodia. Se laskee automaattisesti jokaisen saapuvan sähköpostin liitteet ja näyttää määrän uudessa sarakkeessa.

Joidenkin käyttäjien on usein laskettava sähköpostin liitteet. Mikset tässä skenaariossa luo ja ota käyttöön yksinomaista saraketta liitteiden määrän näyttämistä varten? Seuraavassa opetamme, kuinka Outlook saa automaattisesti laskemaan sähköpostin liitteet ja näyttämään määrän tällaisessa uudessa sarakkeessa.

Näytä liitteiden määrä sähköpostiluettelossa

1. Aloita käynnistämällä Outlook-sovelluksesi.
2. Paina sitten "Alt + F11" -näppäimiä Outlookin pääikkunassa.
3. Seuraavaksi uudessa Outlook VBA -editoriikkunassa sinun on avattava moduuli, joka ei ole käytössä.
4. Kopioi ja liitä seuraava VBA-koodi tähän moduuliin.

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. Tämän jälkeen voit poistua nykyisestä "Microsoft Visual Basic for Applications" -ikkunasta.
6. Myöhemmin sinun on luotava uusi sääntö tämän skriptin suorittamiseksi jokaisessa saapuvassa sähköpostissa.

• Siirry ensin "Tiedosto" -valikkoon ja napsauta "Tiedot" -välilehden "Hallinnoi sääntöjä ja hälytyksiä" -painiketta.
• Napsauta sitten uudessa valintaikkunassa "Uusi sääntö" -painiketta.
• Valitse seuraavassa "Sääntövelho" -näytössä "Käytä sääntöä vastaanottamissani viesteissä" ja paina "Seuraava".
• Ohita seuraavaksi "Valitse ehdot" ja napsauta "Seuraava".
• Valitse sitten "Suorita komentosarja" -toiminto ja valitse aiemmin lisätty makro, kuten seuraava kuvakaappaus.
• Napsauta sen jälkeen useita "Seuraava", kunnes saavutat lopullisen "Finish rule setup" -näytön.
• Myöhemmin sinun on määritettävä tälle säännölle uusi nimi ja otettava käyttöön "Suorita tämä sääntö viesteille, jotka ovat jo "Saapuneet-kansiossa"" ja "Ota tämä sääntö käyttöön".
• Napsauta lopuksi "Valmis" -painiketta.

7. Sen jälkeen sinun tulee lisätä VBA-koodin luoma sarake "Attachment Count". Tee vain seuraavat vaiheet alla:

• Siirry ensin "Näytä"-välilehteen sähköpostiluettelonäytössä.
• Napsauta sitten "Näytä asetukset" -painiketta.
• Napsauta vasta ponnahdusikkunassa "Sarakkeet" -painiketta.
• Etsi ja valitse sitten Näytä sarakkeet -ikkunasta "Käyttäjän määrittämät sarakkeet Saapuneet-kansiossa" -sarake ja valitse "Lisää" -painike.
• Napsauta lopuksi "OK" -painiketta tallentaaksesi muutokset.

8. Lopulta näet sähköpostiluettelossa "Attachment Count" -sarakkeen, joka näyttää kunkin sähköpostin liitemäärän alla olevan kuvan mukaisesti:

Vältä turhauttavaa PST-tietojen menetystä

Uskotaan, että kukaan ei ole valmis hyväksymään PST-tietojen menetystä. Saman täytyy päteä myös sinulle. Siksi sinun on tehtävä joitain varotoimia, kuten varmuuskopioitava PST-tiedostosi tiedoista ja hankittava hyvämaineinen korjaustyökalu, kuten DataNumen Outlook Repair. Se voi korjata Outlook aiheita hikoilematta.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql-korjaus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com