Jak automaticky ukládat konkrétní přílohy e-mailů pomocí aplikace Outlook VBA

Mnoho uživatelů doufá, že Outlook může automaticky vyhledat konkrétní slova v názvech příloh a poté uložit konkrétní přílohy do místní složky v jejich počítačích. Tento článek vás naučí, jak toho dosáhnout pomocí aplikace Outlook VBA.

Pokud v mých každodenních pracích nejsou přílohy v přijatých e-mailech příliš důležité, raději je neukládám na svůj místní disk, prostě je čtu přímo v Outlooku. Pokud jsou ale přílohy důležité, jako jsou personální předpisy, měsíční pracovní zpráva, uložím je do konkrétní složky v počítači. V takovém případě bych chtěl nakonfigurovat Outlook tak, aby automaticky ukládal e-mailové přílohy, jejichž jména obsahují konkrétní slova, do určité složky. Takže zjistím rychlou metodu, jak to realizovat pomocí aplikace Outlook VBA. Zde jsou propracované kódy a kroky VBA:

Automatické ukládání konkrétních e-mailových příloh

1. Nejprve byste měli spustit Outlook a přejít na kartu „Vývojář“.
2. Následně klikněte na tlačítko „Visual Basic“ ve skupině „Code“.
3. V okně „Visual Basic“ byste měli otevřít projekt „ThisOutlookSession“ a zkopírovat do něj následující kódy.

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim NewMail As Outlook.MailItem
    Dim Atts As Attachments
    Dim Att As Attachment
    Dim strPath As String
    Dim strName As String
 
    If Item.Class = olMail Then
       Set NewMail = Item
    End If
 
    Set Atts = Item.Attachments
 
    If Atts.Count > 0 Then
       For Each Att In Atts
           'Replace "test" with what you want to look for in attachment name
           If InStr(LCase(Att.FileName), "test") > 0 Then
              'Use your wanted destination folder path to save the attachments
              strPath = "C:\Attachments\"
              strName = NewMail.Subject & " " & Chr(45) & " " & Att.FileName
              Att.SaveAsFile strPath & strName
           End If
       Next
    End If
End Sub

4. Poté byste měli tento kód podepsat.

• Nejprve vytvořte certifikát pomocí digitálního certifikátu pro projekty VBA.
• Poté přiřaďte certifikát k tomuto kódu, jak ukazuje následující obrázek:

5. Poté můžete opustit aktuální okno „Visual Basic“ a kliknout na tlačítko „Nastavení makra“ ve skupině „Kód“ na kartě „Vývojář“.
6. Od této chvíle bude Outlook automaticky ukládat přílohy, jejichž názvy obsahují konkrétní slova, do zadané místní složky.

Zotavte se z těžké korupce v aplikaci Outlook

Navzdory tomu, že se chlubí několika funkcemi, je Outlook stále náchylný k poškození. Proto byste měli mít přehled o všech problémech, které se mohou ve vašem Outlooku vyskytnout, například Chyba pošty PST„Outlook nereaguje atd. Když budete konfrontováni s chybami, můžete je opravit pomocí vestavěného nástroje pro opravu aplikace Outlook ScanPST.exe. Pokud selže, využijte výkonnější nástroj.

Ú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ě opravit SQL Server problém se souborem mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com