Mange brugere håber, at Outlook automatisk kan flytte og arkivere de indgående e-mails til specifikke e-mail-mapper i henhold til de vedhæftede filnavne. Derfor vil vi i denne artikel afsløre en hurtig måde at hjælpe dig med at få det med Outlook VBA.
Hvis du ønsker at automatisk flytte de indgående e-mails til de specifikke mapper i henhold til deres vedhæftede filnavne, vil du helt sikkert overveje at bruge Outlook-reglen i første omgang. Du vil dog endelig opdage, at Outlook-reglen ikke har en funktion til at kontrollere den vedhæftede fils navn. Derfor, hvis du virkelig gerne vil indse det, skal du bruge andre måder, for eksempel via et tredjeparts-tilføjelsesprogram eller Outlook VBA. Så her vil vi lære dig, hvordan du opnår det med VBA. Læs videre for at få de detaljerede operationer og konkrete VBA-koder.
Flyt automatisk indgående e-mails til specifikke mapper baseret på vedhæftede filer
- For somtart, start dit Outlook-program som normalt.
- Tryk derefter på "Alt + F11"-tasterne for at få adgang til VBA-editor.
- I det efterfølgende "Microsoft Visual Basic for Applications"-vindue kan du finde og dobbeltklikke på "ThisOutlookSession"-projektet i venstre side.
- Næste i det åbnede "ThisOutlookSession"-projektvindue skal du kopiere og indsætte følgende VBA-koder.
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
- Efterfølgende skal du digitalt underskrive det nye VBA-projekt.
- For det første kan du bruge indbygget værktøj - Digitale certifikater til VBA-projekter til at oprette et personligt certifikat.
- Klik derefter på "Værktøjer"> "Digital signatur" i værktøjslinjen i VBA-editor.
- Følg derefter instruktionerne på skærmen for at underskrive den.
- Derefter kan du afslutte VBA-editoren og ændre Outlook-makrosikkerheden til lav.
- Senere burde du restart Outlook for at aktivere det nye VBA-projekt.
- Til sidst, fra nu af, vil Outlook automatisk kontrollere vedhæftede filers filnavne på alle de indgående e-mails og flytte de specifikke til bestemte mapper.
Beskyt dine PST-data
Det er almost et ubestridt faktum, at Outlook er modtagelig for korruption. Derfor er det en ret besværlig opgave at beskytte dine PST-data mod skader. Men du kan stadig finde nogle regler og tips. For at undgå tab af PST-data kan du for eksempel blive ved med at lave en regelmæssig sikkerhedskopiering af data. Desuden, for at give øjeblikkelig redning efter Outlook-nedbrud, kan du forberede en erfaren PST-rettelse værktøj, ligesom DataNumen Outlook Repair.
Forfatter Introduktion:
Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder SQL Server opsving og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com