Mnogi se korisnici nadaju da Outlook može automatski premjestiti i arhivirati dolaznu e-poštu u određene mape pošte prema nazivima datoteka privitaka. Stoga ćemo u ovom članku izložiti brzi način da vam pomognemo da ga dobijete pomoću programa Outlook VBA.
Ako želite automatski premjestiti dolaznu e-poštu u određene mape prema nazivima datoteka njihovih privitaka, svakako ćete prvo razmisliti o korištenju Outlook pravila. Međutim, konačno ćete otkriti da Outlookovo pravilo nema značajku za provjeru naziva datoteke privitka. Stoga, ako to doista želite realizirati, morate koristiti druge načine, na primjer, preko dodatka treće strane ili Outlook VBA. Stoga ćemo vas ovdje naučiti kako to postići s VBA. Čitajte dalje kako biste saznali detaljne operacije i konkretne VBA kodove.
Automatski premjestite dolaznu e-poštu u određene mape na temelju privitaka
- Za astart, pokrenite svoj program Outlook kao i obično.
- Zatim pritisnite tipke "Alt + F11" za pristup VBA editoru.
- U sljedećem prozoru "Microsoft Visual Basic za aplikacije" možete pronaći i dvaput kliknuti na projekt "ThisOutlookSession" na lijevoj 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 projekt.
- Prvo, možete koristiti ugrađeni alat – Digitalni certifikati za VBA projekte za izradu osobnog certifikata.
- Zatim u uređivaču VBA kliknite "Alati" > "Digitalni potpis" na alatnoj traci.
- Zatim slijedite upute na zaslonu da biste ga potpisali.
- Nakon toga možete izaći iz uređivača VBA i promijeniti sigurnost makroa programa Outlook na nisku.
- Kasnije biste trebali restart Outlook za aktiviranje novog VBA projekta.
- Od sada će Outlook automatski provjeravati nazive datoteka privitaka svih dolaznih poruka e-pošte i premještati određene u određene mape.
Zaštitite svoje PST podatke
To je milostinjaost neupitna činjenica da je Outlook osjetljiv na korupciju. Stoga je prilično težak zadatak zaštititi vaše PST podatke od oštećenja. Ali ipak možete pronaći neka pravila i savjete. Na primjer, kako biste spriječili gubitak PST podataka, možete ustrajati u izradi redovite sigurnosne kopije podataka. Štoviše, kako biste pružili trenutno spašavanje nakon pada Outlooka, možete pripremiti iskusnog PST popravak alat, poput DataNumen Outlook Repair.
Uvod za autora:
Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući SQL Server oporavak i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com