Как автоматично да премествате входящи имейли в конкретни папки въз основа на имена на прикачени файлове

Много потребители се надяват, че Outlook може автоматично да премести и архивира входящите имейли в конкретни пощенски папки според имената на прикачените файлове. Затова в тази статия ще разкрием бърз начин да ви помогнем да го получите с Outlook VBA.

Ако желаете автоматично да преместите входящите имейли в конкретните папки според имената на файловете на техните прикачени файлове, определено ще помислите да използвате правилото на Outlook на първо място. Най-накрая обаче ще откриете, че правилото на Outlook няма функция за проверка на името на прикачения файл. Следователно, ако наистина искате да го реализирате, трябва да използвате други начини, например чрез добавка на трета страна или Outlook VBA. Така че тук ще ви научим как да го постигнете с VBA. Прочетете, за да получите подробни операции и конкретни VBA кодове.

Автоматично преместване на входящи имейли в конкретни папки въз основа на прикачени файлове

1. За катоtart, стартирайте вашата програма Outlook както обикновено.
2. След това натиснете клавишните бутони „Alt + F11“ за достъп до VBA редактор.
3. В следващия прозорец „Microsoft Visual Basic за приложения“ можете да намерите и щракнете двукратно върху проекта „ThisOutlookSession“ от лявата страна.
4. След това в отворения прозорец на проекта „ThisOutlookSession“ копирайте и поставете следните 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. Впоследствие трябва да подпишете цифрово новия VBA проект.

• Първо, можете да използвате вградения инструмент – Цифрови сертификати за VBA проекти, за да създадете личен сертификат.
• След това в редактора на VBA щракнете върху „Инструменти“ > „Цифров подпис“ в лентата с инструменти.
• След това следвайте инструкциите на екрана, за да го подпишете.

6. След това можете да излезете от редактора на VBA и да промените макросигурността на Outlook на ниска.
7. По-късно трябва да решитеtart Outlook, за да активирате новия VBA проект.
8. В крайна сметка отсега нататък Outlook автоматично ще проверява имената на прикачените файлове на всички входящи имейли и ще премества конкретните в конкретни папки.

Защитете вашите PST данни

Това е милостиняost безспорен факт, че Outlook е податлив на корупция. Следователно е доста трудна задача да защитите вашите PST данни от повреда. Но все пак можете да намерите някои правила и съвети. Например, за да предотвратите загуба на PST данни, можете да продължите да правите редовно архивиране на данни. Освен това, за да осигурите незабавно спасяване след срив на Outlook, можете да подготвите опитен PST корекция инструмент, като DataNumen Outlook Repair.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително SQL Server възстановяване и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com