Ինչպես մուտքային նամակներն ավտոմատ տեղափոխել հատուկ թղթապանակներ՝ հիմնվելով կցված ֆայլերի անունների վրա

Շատ օգտատերեր հույս ունեն, որ 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.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում SQL Server վերականգնում և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com