Si të ruani automatikisht bashkëngjitjet specifike të postës elektronike me Outlook VBA

Shumë përdorues shpresojnë se Outlook mund të kërkojë automatikisht fjalë specifike në emrat e bashkëngjitjeve dhe më pas t'i ruajë bashkëngjitjet specifike në një dosje lokale në kompjuterët e tyre. Ky artikull do t'ju mësojë se si ta realizoni atë me Outlook VBA.

Në punët e mia të përditshme, nëse bashkëngjitjet në emailet e marra nuk janë shumë të rëndësishme, preferoj të mos i ruaj në diskun tim lokal, thjesht t'i lexoj direkt në Outlook. Por nëse bashkëngjitjet janë të rëndësishme, si rregulloret e personelit, raporti mujor i punës, unë do t'i ruaj ato në një dosje specifike në kompjuterin tim. Në një rast të tillë, dëshiroj të konfiguroj Outlook për të ruajtur automatikisht bashkëngjitjet e postës elektronike, emrat e të cilëve përmbajnë fjalë specifike, në një dosje të caktuar. Kështu që zbuloj një metodë të shpejtë për ta realizuar atë me Outlook VBA. Këtu janë kodet dhe hapat e përpunuar VBA:

Ruaj automatikisht bashkëngjitjet specifike të emailit

1. Së pari, duhet të hapni Outlook dhe të shkoni te skedari "Zhvilluesi".
2. Më pas, klikoni në butonin "Visual Basic" në grupin "Kodi".
3. Pastaj në dritaren "Visual Basic", duhet të hapni projektin "ThisOutlookSession" dhe të kopjoni kodet e mëposhtme në të.

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. Pas kësaj, ju duhet të nënshkruani këtë kod.

• Së pari, përdorni Certifikatën Dixhitale për Projektet VBA për të krijuar një certifikatë.
• Më pas caktojeni certifikatën në këtë kod, të paraqitur si fotografia e mëposhtme:

5. Pas kësaj, mund të dilni nga dritarja aktuale "Visual Basic" dhe të klikoni butonin "Macro Settings" në grupin "Code" nën skedën "Developer".
6. Tani e tutje, Outlook do të ruajë automatikisht bashkëngjitjet, emrat e të cilëve kanë fjalët specifike, në dosjen tuaj lokale të specifikuar.

Rimëkëmbja nga korrupsioni i rëndë i Outlook

Pavarësisht mburrjes me funksione të shumta, Outlook është ende i prirur ndaj korrupsionit. Kështu që ju duhet të mbani skeda për të gjitha çështjet që mund të ndodhin në Outlook tuaj, si p.sh Gabim poste PST, Outlook nuk përgjigjet dhe kështu me radhë. Kur përballeni me gabimet, mund të përdorni mjetin e integruar të riparimit të Outlook, ScanPST.exe për t'i rregulluar ato. Nëse dështon, atëherë përdorni një mjet më të fuqishëm.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim SQL Server problem me skedarin mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com