Ինչպես արագ հեռացնել Outlook-ի կրկնօրինակ տարրերը թղթապանակում VBA-ի միջոցով

Outlook լուծումներ Սեպտեմբեր 29, 2025

Եթե ցանկանում եք հեռացնել Outlook-ում կրկնօրինակ տարրերը, մեկ առ մեկ որոնելը և հեռացնելը բավականին դժվար կլինի: Այս գրառումը ձեզ կսովորեցնի, թե ինչպես արագ ավարտել դա Outlook VBA-ի միջոցով:

Իմ նախորդ հոդվածում ՝ «Ինչպես արագ գտնել և հեռացնել կրկնօրինակ նամակները Outlook-ումԴուք կարող եք սովորել կրկնօրինակ նամակներ գտնելու և հեռացնելու հնարք, որը սկզբում դասակարգում է նամակները ըստ թեմայի, ապա ըստ ստացված ժամանակի, ապա ըստ հավելվածների՝ պարզելու կրկնօրինակները և վերջում ընտրել կրկնօրինակները և սեղմել «Ջնջել» ստեղնը: Չնայած այս մեթոդը մի փոքր ավելի հարմար է թվում, բայց շատ ավելի անհանգիստ է Outlook VBA-ի օգտագործման համեմատ: Հետևյալ VBA կոդերի միջոցով դուք կարող եք արագ հեռացնել կրկնօրինակ տարրերը պարզապես մեկ սեղմումով, անկախ նամակներից, առաջադրանքներից, կոնտակտներից կամ հանդիպումներից: Այժմ կարդացեք կոդերը մանրամասնորեն ստանալու համար:

Հեռացրեք Outlook-ի կրկնօրինակ տարրերը թղթապանակում

Սկսելու համար գործարկեք ձեր Outlook ծրագիրը։
Դրանից հետո սեղմեք «Alt + F11» ստեղնաշարի կոճակները:
Հաջորդ VBA խմբագրիչի պատուհանում կրկնակի սեղմեք՝ գործածվող մոդուլը բացելու համար կամ ուղղակիորեն տեղադրեք նոր մոդուլ՝ «Տեղադրել» > «Մոդուլ»:
Հաջորդը պատճենեք և տեղադրեք հետևյալ VBA կոդերը մոդուլի մեջ:

Sub RemoveDuplicateItems()
    Dim objFolder As Folder
    Dim objDictionary As Object
    Dim i As Long
    Dim objItem As Object
    Dim strKey As String

    Set objDictionary = CreateObject("scripting.dictionary")
    'Select a source folder
    Set objFolder = Outlook.Application.Session.PickFolder

    If Not (objFolder Is Nothing) Then
       For i = objFolder.Items.Count To 1 Step -1
           Set objItem = objFolder.Items.Item(i)
 
           Select Case objFolder.DefaultItemType
                  'Check email subject, body and sent time
                  Case olMailItem
                       strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
                  'Check appointment subject, start time, duration, location and body
                  Case olAppointmentItem
                       strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
                  'Check contact full name and email address
                  Case olContactItem
                       strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
                  'Check task subject, start date, due date and body
                  Case olTaskItem
                       strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
           End Select
 
           strKey = Replace(strKey, ", ", Chr(32))
 
           'Remove the duplicate items
           If objDictionary.Exists(strKey) = True Then
              objItem.Delete
           Else
              objDictionary.Add strKey, True
           End If
       Next i
    End If
End Sub

Դրանից հետո թվային կերպով ստորագրեք այս մակրո և փոխեք ձեր Outlook մակրո անվտանգության մակարդակը ցածրի:
Ավելի ուշ դուք կարող եք գործարկել այս նոր VBA նախագիծը: Անմիջապես սեղմեք «Գործարկել» պատկերակը գործիքագոտում:
Այնուհետև ձեզանից կպահանջվի ընտրել թղթապանակ, որտեղ ցանկանում եք հեռացնել կրկնօրինակ տարրերը:
Ի վերջո, ընտրված թղթապանակի կրկնօրինակ տարրերը միանգամից կջնջվեն:

Պաշտպանեք խոցելի PST տվյալները

Շնորհիվ այն փաստի, որ PST ֆայլը ենթակա է կոռուպցիայի, հետևաբար դուք պետք է շատ ջանքեր գործադրեք ձեր PST ֆայլը պաշտպանելու համար: Օրինակ, դուք պետք է կանխեք Outlook-ի սխալ փակումը: Բացի այդ, դուք պետք է պատրաստեք ամուր Outlook- ի շտկում գործիք, ինչպիսիք են DataNumen Outlook Repair որը կկարողանա ժամանակին փրկել ձեր PST-ը:

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

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