Tiettyjen sähköpostiliitteiden automaattinen tallennus Outlook VBA: lla

Monet käyttäjät toivovat, että Outlook voi automaattisesti etsiä tiettyjä sanoja liitteiden nimistä ja tallentaa tietyt liitteet tietokoneidensa paikalliseen kansioon. Tämä artikkeli opettaa sinulle, miten se toteutetaan Outlook VBA: lla.

Päivittäisissä töissäni, jos vastaanotettujen sähköpostien liitetiedostot eivät ole kovin tärkeitä, en halua tallentaa niitä paikalliselle levylle, vaan lue ne suoraan Outlookissa. Mutta jos liitteet ovat tärkeitä, kuten henkilöstösäännöt, kuukausittainen työraportti, tallennan ne tiettyyn kansioon tietokoneellani. Tällöin haluan määrittää Outlookin tallentamaan sähköpostiliitteet, joiden nimet sisältävät tiettyjä sanoja, tiettyyn kansioon. Joten löydän nopean menetelmän sen toteuttamiseksi Outlook VBA: lla. Tässä ovat yksityiskohtaiset VBA-koodit ja vaiheet:

Tallenna tietyt sähköpostiliitteet automaattisesti

1. Ensinnäkin, sinun pitäisi käynnistää Outlook ja mennä "Kehittäjä" -välilehdelle.
2. Napsauta sitten ”Visual Basic” -painiketta ”Koodi” -ryhmässä.
3. Sitten Visual Basic -ikkunassa on avattava ThisOutlookSession-projekti ja kopioitava seuraavat koodit siihen.

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. Sen jälkeen sinun tulee allekirjoittaa tämä koodi.

• Ensinnäkin, luo sertifikaatti VBA-projektien digitaalisen varmenteen avulla.
• Määritä sitten varmenne tälle koodille, joka näkyy seuraavana kuvana:

5. Tämän jälkeen voit poistua nykyisestä Visual Basic -ikkunasta ja napsauttaa "Makroasetukset" -painiketta "Koodi" -ryhmässä "Kehittäjä" -välilehdessä.
6. Tästä lähtien Outlook tallentaa liitetiedostot, joiden nimillä on tietyt sanat, määritettyyn paikalliseen kansioon.

Palauta vakavasta Outlook-korruptiosta

Huolimatta siitä, että Outlookilla on useita toimintoja, Outlook on edelleen altis korruptiolle. Siksi sinun on pidettävä välilehtiä kaikista ongelmista, joita Outlook voi esiintyä, kuten PST-postivirhe, Outlook ei vastaa ja niin edelleen. Kun kohtaat virheitä, voit käyttää niiden korjaamiseen Outlookin sisäänrakennettua korjaustyökalua, ScanPST.exe. Jos se epäonnistuu, käytä tehokkaampaa työkalua.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaus SQL Server mdf-tiedosto-ongelma ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com