Kako automatski spremiti određene privitke e-pošte s programom Outlook VBA

Mnogi se korisnici nadaju da Outlook može automatski tražiti određene riječi u nazivima privitaka i zatim spremiti određene privitke u lokalnu mapu na svojim računalima. Ovaj članak će vas naučiti kako to postići s Outlook VBA.

U svojim svakodnevnim poslovima, ako privitci u primljenim e-porukama nisu jako važni, radije ih ne spremam na svoj lokalni disk, samo ih izravno čitam u Outlooku. Ali ako su prilozi važni, kao što je kadrovski pravilnik, mjesečno izvješće o radu, spremit ću ih u određenu mapu na računalu. U tom slučaju želim konfigurirati Outlook da automatski sprema privitke e-pošte čiji nazivi sadrže određene riječi u određenu mapu. Pa sam pronašao brzu metodu za realizaciju s Outlook VBA. Evo razrađenih VBA kodova i koraka:

Automatsko spremanje određenih privitaka e-pošte

1. Prvo, trebali biste pokrenuti Outlook i otići na karticu "Developer".
2. Nakon toga kliknite na gumb "Visual Basic" u grupi "Kôd".
3. Zatim u prozoru “Visual Basic” trebate otvoriti “ThisOutlookSession” projekt” i u njega kopirati sljedeće kodove.

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. Nakon toga trebate potpisati ovaj kod.

• Najprije upotrijebite Digitalni certifikat za VBA projekte za izradu certifikata.
• Zatim dodijelite certifikat ovom kodu, prikazanom na sljedećoj slici:

5. Nakon toga možete izaći iz trenutnog prozora "Visual Basic" i kliknuti gumb "Postavke makronaredbi" u grupi "Kôd" pod karticom "Razvojni programer".
6. Od sada će Outlook automatski spremati privitke, čiji nazivi imaju određene riječi, u vašu navedenu lokalnu mapu.

Oporavak od ozbiljnog oštećenja Outlooka

Unatoč tome što se može pohvaliti brojnim funkcijama, Outlook je još uvijek sklon korupciji. Stoga biste trebali pratiti sve probleme koji se mogu pojaviti u vašem Outlooku, kao što su Pogreška PST pošte, Outlook ne reagira i tako dalje. Kada se suočite s pogreškama, možete upotrijebiti Outlookov ugrađeni alat za popravak, ScanPST.exe da ih popravite. Ako ne uspije, pribjegnite moćnijem alatu.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak SQL Server problem s mdf datotekom i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com