Pokud byste chtěli rychle získat počet příloh v každém e-mailu v seznamu e-mailů, můžete použít kód VBA v tomto článku. Automaticky spočítá přílohy v každém příchozím e-mailu a zobrazí počet v novém sloupci.
Někteří uživatelé často potřebují počítat přílohy e-mailů. Proč v tomto scénáři nevytvořit a nepovolit exkluzivní sloupec pro zobrazení počtu příloh? V následujícím textu vás naučíme, jak zajistit, aby aplikace Outlook automaticky počítala přílohy e-mailů a zobrazovala počet v takovém novém sloupci.
Zobrazení počtu příloh v seznamu e-mailů
- Pro začátek spusťte aplikaci Outlook.
- Poté stiskněte „Alt + F11“ v hlavním okně aplikace Outlook.
- Dále v novém okně editoru Outlook VBA musíte otevřít modul, který se nepoužívá.
- Následně zkopírujte a vložte následující kód VBA do tohoto 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
- Poté můžete ukončit aktuální okno „Microsoft Visual Basic for Applications“.
- Později je potřeba vytvořit nové pravidlo pro spouštění tohoto skriptu na každý příchozí e-mail.
- Nejprve přejděte do nabídky „Soubor“ a klikněte na tlačítko „Spravovat pravidla a upozornění“ na kartě „Informace“.
- Poté v novém dialogovém okně klikněte na tlačítko „Nové pravidlo“.
- Na následující obrazovce „Průvodce pravidly“ vyberte „Použít pravidlo na zprávy, které dostávám“ a stiskněte „Další“.
- Dále ignorujte „Vybrat podmínky“ a klikněte na „Další“.
- Poté vyberte akci „spustit skript“ a vyberte dříve přidané makro, jako na následujícím snímku obrazovky.
- Poté několikrát klikněte na „Další“, dokud se nedostanete na konečnou obrazovku „Dokončit nastavení pravidla“.
- Později budete muset zadat nový název tohoto pravidla a povolit možnost „Spouštět toto pravidlo pro zprávy, které jsou již v „Doručené poště““ a „Zapnout toto pravidlo“.
- Nakonec klikněte na tlačítko „Dokončit“.
- Poté byste měli přidat sloupec „Počet příloh“ vytvořený kódem VBA. Stačí provést následující kroky:
- Nejprve přejděte na kartu „Zobrazit“ na obrazovce seznamu e-mailů.
- Poté klikněte na tlačítko „Zobrazit nastavení“.
- V nově vyskakovacím dialogovém okně stiskněte tlačítko „Sloupce“.
- Poté v okně „Zobrazit sloupce“ najděte a vyberte sloupec „Počet příloh“ v části „Sloupce definované uživatelem v doručené poště“ a stiskněte tlačítko „Přidat“.
- Nakonec klikněte na tlačítko „OK“ pro uložení změn.
- Nakonec můžete v seznamu e-mailů vidět sloupec „Počet příloh“, který zobrazuje počet příloh pro každý e-mail, jak je znázorněno na obrázku níže:
Vyhněte se frustrující ztrátě dat PST
Předpokládá se, že nikdo není ochoten akceptovat ztrátu dat PST. Totéž musí platit pro vás. Proto musíte učinit některá opatření, jako je zálohování dat vašeho souboru PST a získání renomovaného nástroje pro opravy, jako je DataNumen Outlook Repair. To může opravit Outlook problémy bez potu.
Úvod autora:
Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně oprava sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com