Adott e-mail mellékletek automatikus mentése az Outlook VBA segítségével

Sok felhasználó azt reméli, hogy az Outlook automatikusan meg tud keresni bizonyos szavakat a mellékletek nevében, majd elmenti az adott mellékleteket egy helyi mappába a számítógépén. Ebből a cikkből megtudhatja, hogyan érheti el ezt az Outlook VBA-val.

A napi munkám során, ha a beérkezett e-mailek mellékletei nem túl fontosak, inkább nem mentem a helyi lemezemre, csak közvetlenül az Outlookban olvasom el. De ha fontosak a mellékletek, mint például a személyi szabályzat, a havi munkajelentés, elmentem egy adott mappába a számítógépemen. Ebben az esetben szeretném beállítani az Outlookot, hogy automatikusan egy bizonyos mappába mentse az e-mail mellékleteket, amelyeknek neve meghatározott szavakat tartalmaz. Így kitaláltam egy gyors módszert, hogy megvalósítsam az Outlook VBA-val. Íme a kidolgozott VBA kódok és lépések:

Adott e-mail mellékletek automatikus mentése

1. Először is indítsa el az Outlookot, és lépjen a „Fejlesztő” fülre.
2. Ezt követően kattintson a „Visual Basic” gombra a „Kód” csoportban.
3. Ezután a „Visual Basic” ablakban nyissa meg a „ThisOutlookSession” projektet, és másolja bele a következő kódokat.

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. Ezt követően alá kell írnia ezt a kódot.

• Először is használja a Digital Certificate for VBA Projects szolgáltatást egy tanúsítvány létrehozásához.
• Ezután rendelje hozzá a tanúsítványt ehhez a kódhoz, az alábbi képen látható módon:

5. Ezt követően kiléphet a jelenlegi „Visual Basic” ablakból, és a „Fejlesztő” fül „Kód” csoportjában kattintson a „Makróbeállítások” gombra.
6. Mostantól az Outlook automatikusan a megadott helyi mappába menti a mellékleteket, amelyek nevükben meghatározott szavak szerepelnek.

Helyreállítás az Outlook súlyos korrupciójából

Annak ellenére, hogy számos funkcióval büszkélkedhet, az Outlook továbbra is hajlamos a korrupcióra. Ezért figyelnie kell minden olyan problémát, amely az Outlookban előfordulhat, mint pl PST mail hiba, az Outlook nem válaszol és így tovább. Ha szembesül a hibákkal, használhatja az Outlook beépített javítóeszközét, a ScanPST.exe-t a javításukhoz. Ha nem sikerül, akkor vegyen igénybe egy erősebb eszközt.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve javítás SQL Server mdf fájl probléma és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com