Konkreetsete meilimanuste automaatne salvestamine Outlook VBA abil

Paljud kasutajad loodavad, et Outlook suudab automaatselt otsida manuste nimedest konkreetseid sõnu ja seejärel salvestada konkreetsed manused oma arvutis kohalikku kausta. See artikkel õpetab teile, kuidas seda Outlook VBA abil teha.

Kui vastuvõetud e-kirjade manused ei ole oma igapäevatöös eriti olulised, eelistan ma neid mitte oma kohalikule kettale salvestada, vaid lugeda neid otse Outlookis. Aga kui manused on olulised, näiteks personalimäärused, igakuine tööaruanne, salvestan need oma arvutis kindlasse kausta. Sel juhul soovin konfigureerida Outlooki nii, et see salvestaks e-kirjade manused, mille nimed sisaldavad kindlaid sõnu, automaatselt teatud kausta. Nii et leian kiire meetodi selle realiseerimiseks Outlook VBA abil. Siin on üksikasjalikud VBA koodid ja sammud:

Konkreetsete meilimanuste automaatne salvestamine

1. Esiteks peaksite käivitama Outlooki ja minema vahekaardile "Arendaja".
2. Seejärel klõpsake rühmas "Kood" nuppu "Visual Basic".
3. Seejärel peaksite aknas "Visual Basic" avama "ThisOutlookSession" projekti ja kopeerima sellesse järgmised koodid.

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ärast seda peaksite sellele koodile alla kirjutama.

• Esiteks kasutage sertifikaadi loomiseks VBA projektide jaoks mõeldud digitaalset sertifikaati.
• Seejärel määrake sellele koodile sertifikaat, mis on näidatud järgmisel pildil:

5. Pärast seda saate praegusest "Visual Basicu" aknast väljuda ja klõpsata vahekaardi "Arendaja" rühmas "Kood" nuppu "Makro sätted".
6. Nüüdsest salvestab Outlook automaatselt teie määratud kohalikku kausta manused, mille nimed sisaldavad konkreetseid sõnu.

Toibuge tõsisest Outlooki korruptsioonist

Vaatamata paljude funktsioonide uhkustamisele on Outlook endiselt altid korruptsioonile. Seega peaksite jälgima kõiki probleeme, mis teie Outlookiga võivad tekkida, näiteks PST-posti viga, Outlook ei reageeri ja nii edasi. Vigadega silmitsi seistes saate nende parandamiseks kasutada Outlooki sisseehitatud parandustööriista ScanPST.exe. Kui see ebaõnnestub, kasutage võimsamat tööriista.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont SQL Server probleem mdf failiga ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom