Kako samodejno premakniti dohodna e-poštna sporočila v določene mape na podlagi imen datotek priloge

Mnogi uporabniki upajo, da lahko Outlook samodejno premakne in arhivira dohodna e-poštna sporočila v določene poštne mape glede na imena datotek priloge. Tako bomo v tem članku predstavili hiter način, s katerim ga boste dobili z Outlook VBA.

Če želite samodejno premakniti dohodna e-poštna sporočila v določene mape v skladu z imeni datotek njihovih prilog, boste zagotovo najprej pomislili na uporabo Outlookovega pravila. Vendar boste končno odkrili, da pravilo Outlook nima funkcije za preverjanje imena datoteke priloge. Če bi to res želeli uresničiti, morate uporabiti druge načine, na primer prek dodatka tretje osebe ali Outlook VBA. Torej, tukaj vas bomo naučili, kako to doseči z VBA. V nadaljevanju boste našli podrobne operacije in konkretne kode VBA.

Samodejno premakni dohodno e-pošto v določene mape na podlagi prilog

1. Za začetek zaženite program Outlook kot običajno.
2. Nato pritisnite tipko “Alt + F11” za dostop do urejevalnika VBA.
3. V naslednjem oknu »Microsoft Visual Basic for Applications« lahko na levi strani poiščete in dvokliknete projekt »ThisOutlookSession«.
4. Nato v odprto okno projekta »ThisOutlookSession« kopirajte in prilepite naslednje kode VBA.

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. Nato morate digitalno podpisati nov projekt VBA.

• Najprej lahko z vgrajenim orodjem - digitalna potrdila za projekte VBA ustvarite osebno potrdilo.
• Nato v urejevalniku VBA v orodni vrstici kliknite »Orodja«> »Digitalni podpis«.
• Nato sledite navodilom na zaslonu, da ga podpišete.

6. Po tem lahko zaprete urejevalnik VBA in spremenite varnost makra Outlook na nizko.
7. Kasneje morate znova zagnati Outlook, da aktivirate nov projekt VBA.
8. Sčasoma bo Outlook odslej samodejno preverjal imena datotek prilog vseh dohodnih e-poštnih sporočil in jih premaknil v določene mape.

Zaščitite svoje podatke PST

Skoraj nedvomno dejstvo je, da je Outlook dovzeten za poškodbe. Zato je zaščita podatkov PST pred poškodbami precej težka naloga. Vendar pa še vedno obstajajo nekatera pravila in nasveti. Na primer, da preprečite izgubo podatkov PST, lahko vztrajate pri rednem varnostnem kopiranju podatkov. Poleg tega lahko za takojšnjo rešitev po sesutju Outlooka pripravite izkušenega strokovnjaka. PST popravek orodje, kot DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z SQL Server okrevanje in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com