Kaip automatiškai išsaugoti konkrečius el. pašto priedus naudojant „Outlook VBA“.

Daugelis vartotojų tikisi, kad „Outlook“ gali automatiškai ieškoti konkrečių žodžių priedų pavadinimuose ir išsaugoti konkrečius priedus vietiniame savo kompiuterių aplanke. Šiame straipsnyje sužinosite, kaip tai padaryti naudojant „Outlook VBA“.

Kasdieniame darbe, jei gautų laiškų priedai nėra labai svarbūs, aš nenoriu jų įrašyti į vietinį diską, tiesiog perskaitau juos tiesiogiai Outlook. Bet jei priedai yra svarbūs, pavyzdžiui, personalo nuostatai, mėnesinė darbo ataskaita, išsaugosiu juos tam tikrame kompiuterio aplanke. Tokiu atveju noriu sukonfigūruoti „Outlook“, kad el. pašto priedai, kurių pavadinimuose yra tam tikrų žodžių, būtų automatiškai įrašyti į tam tikrą aplanką. Taigi aš surandu greitą būdą tai įgyvendinti naudojant „Outlook VBA“. Štai sudėtingi VBA kodai ir veiksmai:

Automatiškai išsaugokite konkrečius el. pašto priedus

1. Pirmiausia turėtumėte paleisti „Outlook“ ir eiti į skirtuką „Kūrėjas“.
2. Tada grupėje „Kodas“ spustelėkite mygtuką „Visual Basic“.
3. Tada „Visual Basic“ lange turėtumėte atidaryti „ThisOutlookSession“ projektą ir į jį nukopijuoti šiuos kodus.

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. Po to turėtumėte pasirašyti šį kodą.

• Pirma, norėdami sukurti sertifikatą, naudokite VBA projektų skaitmeninį sertifikatą.
• Tada priskirkite sertifikatą šiam kodui, kaip parodyta paveikslėlyje:

5. Po to galite išeiti iš dabartinio „Visual Basic“ lango ir skirtuko „Kūrėjas“ grupėje „Kodas“ spustelėti mygtuką „Makrokomandos nustatymai“.
6. Nuo šiol „Outlook“ automatiškai išsaugos priedus, kurių pavadinimai turi tam tikrus žodžius, jūsų nurodytame vietiniame aplanke.

Atsigaukite po sunkios „Outlook“ korupcijos

Nepaisant daugybės funkcijų, „Outlook“ vis dar yra linkusi į korupciją. Taigi turėtumėte stebėti visas problemas, kurios gali kilti jūsų „Outlook“, pvz., PST pašto klaida, Outlook neatsako ir pan. Susidūrę su klaidomis galite naudoti „Outlook“ integruotą taisymo įrankį ScanPST.exe, kad jas ištaisytumėte. Jei nepavyksta, pasinaudokite galingesniu įrankiu.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas SQL Server mdf failo problema ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com