Sok felhasználó azt reméli, hogy az Outlook automatikusan át tudja helyezni és archiválni a bejövő e-maileket adott levélmappákba a csatolt fájlneveknek megfelelően. Ezért ebben a cikkben bemutatunk egy gyors módszert, amely segít elérni az Outlook VBA-val.
Ha automatikusan át szeretné helyezni a bejövő e-maileket az adott mappákba a mellékleteik fájlnevének megfelelően, akkor minden bizonnyal az Outlook-szabály használatára kell gondolnia. Végül azonban rájön, hogy az Outlook-szabály nem rendelkezik a mellékletfájlnév ellenőrzésére szolgáló funkcióval. Ezért, ha valóban meg szeretné valósítani, más módokat kell használnia, például egy harmadik féltől származó bővítményen vagy az Outlook VBA-n keresztül. Tehát itt megtanítjuk, hogyan érheti el ezt a VBA-val. Olvassa el a részletes műveleteket és a konkrét VBA-kódokat.
A bejövő e-mailek automatikus áthelyezése adott mappákba a mellékletek alapján
- Mert minttart, indítsa el az Outlook programot a szokásos módon.
- Ezután nyomja meg az „Alt + F11” billentyűket a VBA-szerkesztő eléréséhez.
- A következő „Microsoft Visual Basic for Applications” ablakban megtalálhatja a bal oldalon található „ThisOutlookSession” projektet, és kattintson rá duplán.
- Ezután a megnyílt „ThisOutlookSession” projekt ablakban másolja ki és illessze be a következő VBA-kódokat.
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
- Ezt követően digitálisan alá kell írnia az új VBA projektet.
- Először is használhatja a beépített eszközt – Digitális tanúsítványokat VBA projektekhez a személyes tanúsítvány létrehozásához.
- Ezután a VBA-szerkesztőben kattintson az „Eszközök” > „Digitális aláírás” elemre az eszköztáron.
- Kövesse a képernyőn megjelenő utasításokat az aláíráshoz.
- Ezt követően kiléphet a VBA-szerkesztőből, és alacsonyra állíthatja az Outlook makróbiztonságát.
- Később res kellenetart Outlook az új VBA-projekt aktiválásához.
- Végül mostantól az Outlook automatikusan ellenőrzi az összes bejövő e-mail mellékleteinek fájlnevét, és áthelyezi az adottakat adott mappákba.
Óvja PST-adatait
Ez alamizsnaost megkérdőjelezhetetlen tény, hogy az Outlook érzékeny a korrupcióra. Ezért meglehetősen nehéz feladat a PST-adatok védelme a sérülésekkel szemben. De még mindig találhat néhány szabályt és tippet. Például a PST-adatvesztés elkerülése érdekében kitarthat a rendszeres adatmentés mellett. Sőt, az Outlook összeomlása utáni azonnali mentés érdekében felkészülhet egy tapasztalt PST javítás eszköz, pl DataNumen Outlook Repair.
Szerző Bevezetés:
Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve SQL Server felépülés és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com