Ինչպես ավտոմատ վերանվանել կամ հեռացնել հին նամակները նույն թեմաներով, ինչ նոր մուտքայինները

Որոշ մարդիկ հույս ունեն, որ Outlook-ը կարող է ավտոմատ կերպով ստուգել հին նամակների թեմաները, երբ նոր էլ. Սա պահանջում է Outlook VBA-ի օգտագործումը: Այս հոդվածը կօգնի ձեզ հասնել դրան:

Դուք երբևէ ստացել եք բազմաթիվ նամակներ, որոնք ունեն նույն թեմաները: Արդյո՞ք ձեզ համար մի փոքր դժվար է նույնականացնել և տարբերակել դրանք էլփոստի ցանկում: Թե՞ կարծում եք, որ այդ հին նամակները ձեզ համար անիմաստ են: Եթե ​​այո, ապա դուք պետք է ցանկանաք թույլ տալ Outlook-ին ավտոմատ սկանավորել և ստուգել բոլոր առկա նամակները, երբ նոր նամակներ են գալիս: Երբ կան նամակներ, որոնք ունեն նույն թեմաները, ինչ նորը, Outlook-ը կարող է ձեզ հարցնել՝ վերանվանե՞լ դրանք, թե՞ ջնջել դրանք: Առանց կասկածի, Outlook-ը օգտվողներին չի տրամադրում նման հնարավորություն: Հետևաբար, դուք պետք է դիմեք VBA-ին: Այստեղ մենք ձեզ կներկայացնենք մանրամասն ծածկագրերը և գործողությունները:

Ավտոմատ վերանվանել կամ հեռացնել հին նամակները

1. Սկզբում կարող եք գործարկել Outlook-ը և անցնել «Մշակող» ներդիրին։
2. Այնուհետև դուք կկարողանաք գտնել և սեղմել «Visual Basic» կոճակը:
3. Այն հարվածելուց հետո դուք մուտք կունենաք VBA խմբագրի պատուհան: Դրանում դուք պետք է բացեք «ThisOutlookSession» նախագիծը:
4. Այնուհետև դուք պետք է պատճենեք և տեղադրեք հետևյալ VBA կոդերը դրա մեջ:

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    'Specify the Emails in Inbox folder
    Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim i As Long
    Dim objVariant As Variant
    Dim strMsg As String
    Dim nRes As Integer

    For i = 1 To olItems.Count
        Set objVariant = olItems.Item(i)
        If TypeOf objVariant Is MailItem Then
           If objVariant.Subject = Item.Subject And objVariant.ReceivedTime < Item.ReceivedTime Then
              nDateDiff = DateDiff("d", objVariant.ReceivedTime, Now)
              'Add "(Old)" suffix to the email subjects
              objVariant.Subject = objVariant.Subject & "(Old)"
              objVariant.Save
              'If the old emails have been recieved for 60 days, ask you whether to delete
              If nDateDiff > 60 Then
                 strMsg = "There are some older emails whcih have the same subjects with the new email and have been recieved for 2 months. Do you want to delete them?"
                 nRes = MsgBox(strMsg, vbExclamation + vbYesNo, "Find Older Emails")
                 If nRes = vbYes Then
                    objVariant.Delete
                 End If
              End If
           End If
        End If
    Next
End Sub

5. Հետագայում ձեզանից կպահանջվի թվային կերպով ստորագրել այս կոդը: Կտտացրեք «Գործիքներ» > «Թվային ստորագրություն»: Այնուհետև բացվող երկխոսության վանդակում կարող եք ընտրել մեկ առկա վկայագիր: Եթե ​​պատրաստի վկայական չկա, ապա կարող եք օգտագործել «Թվային վկայականներ VBA նախագծերի համար»՝ նորը ստեղծելու համար:
6. Դրանից հետո դուք կարող եք դուրս գալ ընթացիկ պատուհանից և շարունակել փոխել մակրո կարգավորումները՝ թույլատրելով միայն թվային ստորագրված մակրոները:
7. Ի վերջո, կարող եք վերագործարկել Outlook-ը՝ նոր մակրոն ակտիվացնելու համար: Այսուհետ, երբ նոր էլ. նամակներ են ստացվում «Ներմուծվող արկղ», Outlook-ը ավտոմատ կերպով կստուգի բոլոր առկա էլ. նամակները:

• Եթե ​​հին նամակներն ունեն նույն թեման, ինչ նորը, ապա Outlook-ը էլփոստի թեմայի վրա ավտոմատ կավելացնի «(Հին)» վերջածանցը:
• Եվ եթե հին նամակները պահվել են Inbox-ում ավելի քան 2 ամիս, ապա դուք կստանաք հաղորդագրություն, որը կհարցնի ձեզ, թե արդյոք ցանկանում եք ջնջել դրանք, ինչպես ստորև ներկայացված նկարում: Դուք կարող եք ընտրել «Այո» կամ «Ոչ»՝ ելնելով ձեր սեփական կարիքներից:

 Outlook ֆայլի կոռումպացվածությունը մեծ չափի պատճառով

Որոշ մարդիկ սովորություն չունեն Outlook-ում հին ֆայլերը պարբերաբար ջնջելու։ Այսպիսով, նրանց Outlook ֆայլը կլինի մեծ չափի, ինչը խիստ անխորհուրդ է տրվում։ Դա պայմանավորված է նրանով, որ չափազանց մեծ Outlook ֆայլը շատ ավելի խոցելի է, քան փոքր չափի ֆայլը։ Երբ ֆայլը վնասվում է, ներկառուցված վերականգնման գործիքը՝ Scanpst.exe-ը, շատ դեպքերում անօգնական կլինի։ Ձեր եզակի լուծումը կարող է լինել ուշագրավ և լավ ապացուցված։ կոռումպացված Outlook PST վերանորոգման գործիքՆման DataNumen Outlook Repair.

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

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