Paano Mag-auto-save ng Mga Tiyak na Mga Attachment ng Email sa Outlook VBA

Maraming mga gumagamit ang umaasa na ang Outlook ay maaaring awtomatikong maghanap ng mga tukoy na salita sa mga pangalan ng kalakip at pagkatapos ay i-save ang mga tukoy na attachment sa isang lokal na folder sa kanilang mga computer. Ituturo sa iyo ng artikulong ito kung paano ito magagawa sa Outlook VBA.

Sa aking pang-araw-araw na gawain, kung ang mga kalakip sa natanggap na mga email ay hindi masyadong mahalaga, mas gusto ko na hindi i-save ang mga ito sa aking lokal na disk, basahin lamang ang mga ito sa Outlook nang direkta. Ngunit kung ang mga kalakip ay mahalaga, tulad ng mga regulasyon ng tauhan, buwanang ulat sa pagtatrabaho, ise-save ko sila sa isang tukoy na folder sa aking computer. Sa ganitong kaso, nais kong i-configure ang Outlook upang awtomatikong mai-save ang mga kalakip na email, na ang mga pangalan ay naglalaman ng mga tiyak na salita, sa isang tiyak na folder. Kaya't nalaman ko ang isang mabilis na pamamaraan upang mapagtanto ito sa Outlook VBA. Narito ang mga detalyadong mga VBA code at hakbang:

Awtomatikong I-save ang Mga Tiyak na Mga Attachment ng Email

1. Una, dapat mong ilunsad ang Outlook at pumunta sa tab na "Developer".
2. Kasunod, mag-click sa pindutang "Visual Basic" sa pangkat na "Code".
3. Pagkatapos sa window na "Visual Basic", dapat mong buksan ang proyekto na "ThisOutlookSession" "at kopyahin ang mga sumusunod na code dito.

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. Pagkatapos nito, dapat mong lagdaan ang code na ito.

• Una, gumamit ng Digital Certificate para sa mga Proyekto ng VBA upang lumikha ng isang sertipiko.
• Pagkatapos italaga ang sertipiko sa code na ito, ipinapakita bilang sumusunod na larawan:

5. Pagkatapos nito, maaari kang lumabas sa kasalukuyang window na "Visual Basic" at i-click ang pindutang "Mga Setting ng Macro" sa pangkat na "Code" sa ilalim ng tab na "Developer".
6. Mula ngayon, awtomatikong mai-save ng Outlook ang mga kalakip, na ang mga pangalan ay may mga tukoy na salita, sa iyong tinukoy na lokal na folder.

Mabawi mula sa Malubhang Korapsyon sa Outlook

Sa kabila ng pagmamalaki ng maraming pag-andar, ang Outlook ay madaling kapitan ng katiwalian. Sa gayon dapat mong panatilihin ang mga tab sa lahat ng mga isyu na maaaring mangyari sa iyong Outlook, tulad ng Error sa PST mail, Hindi tumutugon ang Outlook at iba pa. Kapag naharap sa mga error, maaari mong magamit ang built-in na tool sa pag-aayos ng Outlook, ScanPST.exe upang ayusin ang mga ito. Kung nabigo ito, pagkatapos ay tumawag sa isang mas malakas na tool.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang magkumpuni SQL Server problema sa file ng mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa