Ako automaticky ukladať konkrétne e-mailové prílohy s programom Outlook VBA

Mnoho používateľov dúfa, že program Outlook dokáže automaticky vyhľadať konkrétne slová v názvoch príloh a potom ich uložiť do lokálneho priečinka v počítačoch. Tento článok vás naučí, ako to dosiahnuť pomocou aplikácie Outlook VBA.

Pokiaľ v mojich každodenných prácach nie sú prílohy v prijatých e-mailoch veľmi dôležité, radšej ich neukladám na môj lokálny disk, iba si ich prečítam priamo v Outlooku. Ale ak sú prílohy dôležité, ako napríklad personálne predpisy, mesačná pracovná správa, uložím ich do konkrétneho priečinka v počítači. V takom prípade by som chcel nakonfigurovať program Outlook tak, aby automaticky ukladal prílohy e-mailov, ktorých mená obsahujú konkrétne slová, do určitého priečinka. Takže nájdem rýchlu metódu, ako to zrealizovať pomocou aplikácie Outlook VBA. Tu sú prepracované kódy VBA a kroky:

Automatické ukladanie konkrétnych e-mailových príloh

1. Najskôr by ste mali spustiť program Outlook a prejsť na kartu Vývojár.
2. Následne kliknite na tlačidlo „Visual Basic“ v skupine „Code“.
3. Potom v okne „Visual Basic“ by ste mali otvoriť projekt „ThisOutlookSession“ a skopírovať doň nasledujúce 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. Potom by ste mali podpísať tento kód.

• Najprv vytvorte certifikát pomocou digitálneho certifikátu pre projekty VBA.
• Potom priraďte certifikát k tomuto kódu, ako je to znázornené na nasledujúcom obrázku:

5. Potom môžete opustiť aktuálne okno „Visual Basic“ a kliknúť na tlačidlo „Nastavenia makra“ v skupine „Kód“ na karte „Vývojár“.
6. Odteraz bude Outlook automaticky ukladať prílohy, ktorých mená majú konkrétne slová, do zadaného lokálneho priečinka.

Zotavte sa z ťažkej korupcie v programe Outlook

Napriek tomu, že sa program Outlook môže pochváliť viacerými funkciami, je stále náchylný na poškodenie. Mali by ste si preto udržiavať prehľad o všetkých problémoch, ktoré sa môžu vo vašom Outlooku vyskytnúť, ako napr Chyba pošty PST„Outlook nereaguje a pod. Keď budete konfrontovaní s chybami, môžete ich opraviť pomocou vstavaného nástroja na opravu programu Outlook ScanPST.exe. Ak zlyhá, použite silnejší nástroj.

Ú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 oprava SQL Server problém so súborom mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S