Saapuvien sähköpostien automaattinen siirtäminen tiettyihin kansioihin liitetiedostojen nimien perusteella

Monet käyttäjät toivovat, että Outlook voi automaattisesti siirtää ja arkistoida saapuvat sähköpostit tiettyihin sähköpostikansioihin liitetiedostojen nimien mukaan. Siksi tässä artikkelissa paljastamme nopean tavan auttaa sinua saamaan sen Outlook VBA:n avulla.

Jos haluat siirtää saapuvat sähköpostit automaattisesti tiettyihin kansioihin niiden liitteiden tiedostonimien mukaisesti, sinun tulee ehdottomasti harkita Outlook-säännön käyttöä. Lopulta huomaat kuitenkin, että Outlookin säännössä ei ole ominaisuutta liitetiedostonimen tarkistamiseksi. Siksi, jos todella haluat toteuttaa sen, sinun on käytettävä muita tapoja, esimerkiksi kolmannen osapuolen apuohjelman tai Outlook VBA:n kautta. Joten tässä opetamme sinulle, kuinka se saavutetaan VBA:lla. Lue lisää saadaksesi yksityiskohtaiset toiminnot ja konkreettiset VBA-koodit.

Siirrä saapuvat sähköpostit automaattisesti tiettyihin kansioihin liitteiden perusteella

1. Sillä kutentart, käynnistä Outlook-ohjelma normaalisti.
2. Paina sitten Alt + F11 -näppäinpainikkeita päästäksesi VBA-editoriin.
3. Seuraavassa "Microsoft Visual Basic for Applications" -ikkunassa voit etsiä ja kaksoisnapsauttaa "ThisOutlookSession" -projektin vasemmalla puolella.
4. Kopioi ja liitä seuraavat VBA-koodit avautuvassa ”ThisOutlookSession” -projektiikkunassa.

Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
 Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim strAttachmentName As String
    Dim objInboxFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
 
    'Ensure the incoming item is an email
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objAttachments = objMail.attachments
 
       'Check if the incoming email contains one or more attachments
       If objAttachments.Count > 0 Then
          For Each objAttachment In objAttachments
              strAttachmentName = objAttachment.DisplayName
              Set objInboxFolder = Application.Session.GetDefaultFolder(olFolderInbox)
              'Check the names of all the attachments
              'Specify the target folders
              If InStr(LCase(strAttachmentName), "worklog") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("WorkLog")
              ElseIf InStr(LCase(strAttachmentName), "report") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Report")
              ElseIf InStr(LCase(strAttachmentName), "statistics") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Statistics")
              End If
         Next
         'Move the email to specific folder
          objMail.Move objTargetFolder
       End If
    End If
End Sub

5. Myöhemmin sinun on allekirjoitettava digitaalisesti uusi VBA-projekti.

• Ensinnäkin voit käyttää sisäänrakennettua työkalua – VBA-projektien digitaalisia sertifikaatteja luodaksesi henkilökohtaisen varmenteen.
• Napsauta sitten VBA-editorissa työkalupalkissa "Työkalut" > "Digitaalinen allekirjoitus".
• Allekirjoita se seuraamalla näytön ohjeita.

6. Tämän jälkeen voit poistua VBA-editorista ja muuttaa Outlookin makrosuojauksen alhaiseksi.
7. Myöhemmin sinun pitäisi restart Outlook aktivoi uuden VBA-projektin.
8. Lopulta tästä lähtien Outlook tarkistaa automaattisesti kaikkien saapuvien sähköpostien liitteiden tiedostonimet ja siirtää tietyt tiedostot tiettyihin kansioihin.

Suojaa PST-tietosi

Se on almost kiistaton tosiasia, että Outlook on alttiina korruptiolle. Siksi PST-tietojen suojaaminen vaurioilta on melko vaikea tehtävä. Mutta voit silti löytää joitain sääntöjä ja vinkkejä. Voit esimerkiksi välttää PST-tietojen katoamisen tekemällä säännöllisesti tietojen varmuuskopion. Lisäksi, jotta voit tarjota välitöntä pelastusta Outlookin kaatumisen jälkeen, voit valmistaa kokeneen PST-korjaus työkalu, kuten DataNumen Outlook Repair.

Tekijän esittely:

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