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. Kajti kottart, 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. Pozneje bi moral odpočititart Outlook za aktiviranje novega projekta 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

Milost jeost nedvomno dejstvo, da je Outlook dovzeten za korupcijo. Zato je zelo zahtevna naloga zaščititi svoje podatke PST pred poškodbami. Kljub temu lahko najdete nekaj pravil in nasvetov. Na primer, da preprečite izgubo podatkov PST, lahko vztrajate pri rednem varnostnem kopiranju podatkov. Poleg tega lahko za takojšnje reševanje po zrušitvi Outlooka pripravite izkušenega 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