Mnogi korisnici se nadaju da Outlook može automatski premjestiti i arhivirati dolaznu e-poštu u određene mape pošte prema nazivima datoteka priloga. Stoga ćemo u ovom članku izložiti brz način da vam pomognemo da ga dobijete pomoću Outlook VBA.
Ako želite automatski premjestiti dolazne e-poruke u određene mape prema nazivima datoteka njihovih priloga, svakako ćete se sjetiti korištenja Outlookovog pravila na prvom mjestu. Međutim, konačno ćete otkriti da Outlook pravilo nema funkciju za provjeru naziva datoteke privitka. Stoga, ako to zaista želite realizirati, morate koristiti druge načine, na primjer, putem dodatka treće strane ili Outlook VBA. Dakle, ovdje ćemo vas naučiti kako to postići pomoću VBA. Čitajte dalje da biste dobili detaljne operacije i konkretne VBA kodove.
Automatsko premještanje dolaznih e-poruka u određene fascikle na osnovu priloga
- Za astart, pokrenite svoj Outlook program na uobičajeni način.
- Zatim pritisnite tipke “Alt + F11” za pristup VBA editoru.
- U sledećem prozoru „Microsoft Visual Basic za aplikacije“ možete pronaći i dvaput kliknuti na projekat „ThisOutlookSession“ na levoj strani.
- Zatim u otvorenom prozoru projekta “ThisOutlookSession” kopirajte i zalijepite sljedeće VBA kodove.
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
- Nakon toga, morate digitalno potpisati novi VBA projekat.
- Prvo, možete koristiti ugrađeni alat – Digitalni certifikati za VBA projekte za kreiranje ličnog certifikata.
- Zatim u VBA editoru kliknite na “Alati” > “Digitalni potpis” na traci sa alatkama.
- Zatim slijedite upute na ekranu da ga potpišete.
- Nakon toga, možete izaći iz VBA editora i promijeniti sigurnost makroa Outlooka na nisku.
- Kasnije bi trebalo da odustaneštart Outlook da aktivirate novi VBA projekat.
- Na kraju, od sada pa nadalje, Outlook će automatski provjeravati nazive datoteka priloga svih dolaznih e-poruka i premještati određene u određene mape.
Zaštitite svoje PST podatke
To je milostinjaost neupitna činjenica da je Outlook podložan korupciji. Stoga je prilično težak zadatak zaštititi vaše PST podatke od oštećenja. Ali još uvijek možete pronaći neka pravila i savjete. Na primjer, da biste spriječili gubitak PST podataka, možete ustrajati u pravljenju redovne sigurnosne kopije podataka. Štaviše, kako biste pružili neposrednu pomoć nakon pada Outlooka, možete pripremiti iskusnog PST fix alat, kao DataNumen Outlook Repair.
Uvod za autora:
Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server oporavak i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com