Kā automātiski saglabāt konkrētus e-pasta pielikumus, izmantojot programmu Outlook VBA

Daudzi lietotāji cer, ka programma Outlook var automātiski meklēt konkrētus vārdus pielikumu nosaukumos un pēc tam saglabāt konkrētos pielikumus vietējā mapē viņu datoros. Šis raksts jums iemācīs, kā to paveikt, izmantojot Outlook VBA.

Ikdienas darbos, ja saņemto e-pastu pielikumi nav īpaši svarīgi, es labāk tos neglabāt savā lokālajā diskā, vienkārši lasiet tos tieši programmā Outlook. Bet, ja pielikumi ir svarīgi, piemēram, personāla noteikumi, ikmēneša darba pārskats, es tos saglabāju noteiktā mapē savā datorā. Šādā gadījumā es vēlos konfigurēt programmu Outlook automātiski saglabāt e-pasta pielikumus, kuru nosaukumos ir konkrēti vārdi, noteiktā mapē. Tāpēc es uzzinu ātru metodi, kā to realizēt, izmantojot programmu Outlook VBA. Šeit ir izstrādāti VBA kodi un darbības:

Automātiski saglabāt konkrētus e-pasta pielikumus

1. Pirmkārt, jums vajadzētu palaist programmu Outlook un doties uz cilni “Izstrādātājs”.
2. Pēc tam grupā “Kods” noklikšķiniet uz pogas “Visual Basic”.
3. Pēc tam logā “Visual Basic” ir jāatver projekts “ThisOutlookSession” un tajā jākopē šādi kodi.

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. Pēc tam jums jāparaksta šis kods.

• Pirmkārt, lai izveidotu sertifikātu, izmantojiet digitālo sertifikātu VBA projektiem.
• Pēc tam piešķiriet sertifikātu šim kodam, kas parādīts kā šāds attēls:

5. Pēc tam jūs varat iziet no pašreizējā loga Visual Basic un cilnē “Izstrādātājs” grupā “Kods” noklikšķiniet uz pogas “Makro iestatījumi”.
6. Turpmāk Outlook automātiski saglabās pielikumus, kuru nosaukumos ir konkrēti vārdi, jūsu norādītajā vietējā mapē.

Atgūties no nopietnas perspektīvas korupcijas

Neskatoties uz to, ka lepojas ar vairākām funkcijām, Outlook joprojām ir pakļauta korupcijai. Tādējādi jums vajadzētu saglabāt cilnes par visiem jautājumiem, kas var rasties jūsu Outlook, piemēram, PST pasta kļūda, Outlook nereaģē un tā tālāk. Saskaroties ar kļūdām, to novēršanai varat izmantot Outlook iebūvēto remonta rīku ScanPST.exe. Ja tas neizdodas, izmantojiet jaudīgāku rīku.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp remonts SQL Server mdf faila problēma un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar