Kako automatski sačuvati određene priloge e-pošte pomoću Outlook VBA

Mnogi korisnici se nadaju da Outlook može automatski tražiti određene riječi u nazivima priloga, a zatim spremiti određene priloge u lokalnu mapu na svojim računarima. Ovaj članak će vas naučiti kako to postići pomoću Outlook VBA.

U mom svakodnevnom radu, ako prilozi u primljenim mejlovima nisu od velike važnosti, radije ih ne spremam na svoj lokalni disk, već ih čitam direktno u Outlooku. Ali ako su prilozi važni, kao što su kadrovski propisi, mjesečni izvještaj o radu, sačuvaću ih u određenom folderu na svom računaru. U tom slučaju želim da konfigurišem Outlook da automatski sprema priloge e-pošte, čija imena sadrže određene reči, u određeni folder. Tako sam pronašao brzi način da to ostvarim pomoću Outlook VBA. Evo detaljnih VBA kodova i koraka:

Automatsko spremanje određenih priloga e-pošte

1. Prvo, trebali biste pokrenuti Outlook i otići na karticu "Developer".
2. Zatim kliknite na dugme „Visual Basic“ u grupi „Kod“.
3. Zatim u prozoru „Visual Basic“ treba da otvorite projekat „ThisOutlookSession“ i kopirate sledeće kodove u njega.

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, trebali biste potpisati ovaj kod.

• Prvo, koristite digitalni certifikat za VBA projekte da kreirate certifikat.
• Zatim dodelite sertifikat ovom kodu, prikazanom na sledećoj slici:

5. Nakon toga, možete izaći iz trenutnog prozora "Visual Basic" i kliknuti na dugme "Macro Settings" u grupi "Code" pod karticom "Developer".
6. Od sada, Outlook će automatski spremati priloge, čija imena sadrže određene riječi, u vašu navedenu lokalnu mapu.

Oporavak od ozbiljnog oštećenja Outlooka

Unatoč tome što se može pohvaliti višestrukim funkcijama, Outlook je i dalje podložan korupciji. Stoga biste trebali pratiti sve probleme koji se mogu pojaviti u vašem Outlooku, kao što su Greška PST pošte, Outlook ne reaguje i tako dalje. Kada se suočite s greškama, možete koristiti ugrađeni alat za popravku programa Outlook, ScanPST.exe da ih popravite. Ako ne uspije, pribjegnite moćnijem alatu.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Popravak SQL Server problem sa mdf fajlom i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com