Ako zobraziť počet príloh v zozname e-mailov s programom Outlook VBA

Zdieľať teraz:

Ak chcete rýchlo získať počet príloh v každom e-maile v zozname e-mailov, môžete použiť kód VBA v tomto článku. Automaticky spočíta prílohy v každom prichádzajúcom e-maile a zobrazí počet v novom stĺpci.

Niektorí používatelia často musia počítať prílohy e-mailov. Prečo v tomto scenári nevytvoriť a nepovoliť exkluzívny stĺpec na zobrazovanie počtu príloh? V nasledujúcom texte vás naučíme, ako dosiahnuť, aby program Outlook automaticky počítal prílohy e-mailov a ukazoval počet v takom novom stĺpci.

Zobrazte počet príloh v zozname e-mailov pomocou aplikácie Outlook VBA

Zobraziť počet príloh v zozname e-mailov

  1. Na začiatok spustite aplikáciu Outlook.
  2. Potom stlačte klávesy „Alt + F11“ v hlavnom okne programu Outlook.
  3. Ďalej v novom okne editora Outlook VBA musíte otvoriť modul, ktorý sa nepoužíva.
  4. Následne skopírujte a prilepte nasledujúci kód VBA do tohto modulu.
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

Kód VBA - zobrazenie počtu príloh v zozname e-mailov

  1. Potom môžete ukončiť súčasné okno „Microsoft Visual Basic for Applications“.
  2. Neskôr budete musieť vytvoriť nové pravidlo pre spustenie tohto skriptu na každý prichádzajúci e-mail.
  • Najskôr prejdite do ponuky „Súbor“ a na karte „Informácie“ kliknite na tlačidlo „Spravovať pravidlá a upozornenia“.
  • Potom v novom dialógovom okne stlačte tlačidlo „Nové pravidlo“.
  • Na nasledujúcej obrazovke „Sprievodca pravidlami“ vyberte „Použiť pravidlo na správy, ktoré dostávam“ a stlačte „Ďalej“.
  • Ďalej ignorujte „Vybrať podmienky“ a kliknite na „Ďalej“.
  • Potom vyberte akciu „spustiť skript“ a vyberte predtým pridané makro, napríklad na nasledujúcom obrázku.Vyberte akciu „spustiť skript“
  • Potom kliknite na niekoľko ďalších, až kým sa nedostanete na poslednú obrazovku „Dokončiť nastavenie pravidla“.
  • Neskôr budete musieť určiť nový názov tohto pravidla a povoliť možnosť „Spustiť toto pravidlo pre správy, ktoré sú už v priečinku„ Doručená pošta ““ a „Zapnúť toto pravidlo“.
  • Nakoniec kliknite na tlačidlo „Dokončiť“.Dokončite nastavenie pravidla
  1. Potom by ste mali pridať stĺpec „Počet príloh“ vytvorený kódom VBA. Postupujte podľa nasledujúcich krokov:
  • Najskôr prejdite na kartu „Zobraziť“ na obrazovke so zoznamom e-mailov.
  • Potom kliknite na tlačidlo „Zobraziť nastavenia“.
  • V novo vyskakovacom dialógovom okne stlačte tlačidlo „Stĺpce“.
  • Potom v okne „Zobraziť stĺpce“ vyhľadajte a vyberte stĺpec „Počet príloh“ v sekcii „Používateľom definované stĺpce v doručenej pošte“ a stlačte tlačidlo „Pridať“.Pridajte stĺpec „Počet príloh“
  • Nakoniec kliknite na tlačidlo „OK“ na uloženie zmien.
  1. Nakoniec môžete v zozname e-mailov vidieť stĺpec „Počet príloh“, ktorý zobrazuje počet príloh pre každý e-mail, ako obrázok nižšie:Počet príloh v zozname e-mailov

Vyvarujte sa frustrujúcej straty dát PST

Predpokladá sa, že nikto nie je ochotný akceptovať stratu údajov PST. To isté musí platiť aj pre vás. Preto musíte urobiť určité preventívne opatrenia, napríklad zálohovanie dát vášho súboru PST a získanie renomovaného nástroja na opravu, ako je napríklad DataNumen Outlook Repair, Môže opraviť Outlook problémy bez toho, aby ste sa zapotili.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S

Zdieľať teraz:

Komentáre sú uzavreté.