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

Outlook լուծումներ Սեպտեմբեր 29, 2025
Կիսվել հիմա ՝

Եթե ​​ցանկանում եք միավորել Outlook- ի բազմաթիվ պանակներից բոլոր իրերը և ապահովագրել որևէ կրկնօրինակ, կարող եք օգտագործել այս հոդվածում ներկայացված մեթոդը: Այն օգտագործում է VBA կոդ, որը կօգնի ձեզ այն իրականացնել որպես խցան:

Արագ միաձուլեք տարրերը բազմաթիվ պանակներից ՝ առանց կրկնօրինակների Outlook- ում

Timesամանակ առ ժամանակ գուցե ցանկանաք միավորել իրերը Outlook- ի մի քանի պանակներից, օրինակ `միացնել Outlook Contact- ի մի քանի պանակների բոլոր կոնտակտները: Այս իրավիճակում, եթե այս պանակների մեջ կան կրկնօրինակված շփումներ, պետք է հուսալ, որ միաձուլման ընթացքում կրկնօրինակները կարող են ավտոմատ կերպով հեռացվել: Այս պայմաններում դուք կարող եք օգտվել հետևյալ VBA կոդից ՝ այն առանց հեշտության իրականացնելու:

Միացրեք տարրերը բազմաթիվ պանակներից ՝ առանց կրկնօրինակների

  1. Սtarգործարկել ձեր Outlook ծրագիրը:
  2. Դրանից հետո դուք պետք է մուտք գործեք Outlook VBA խմբագիր `Outlook- ի հիմնական էկրանին սեղմելով« Alt + F11 »ստեղնաշարի կոճակը:
  3. Հաջորդը, «Microsoft Visual Basic հավելվածների համար» պատուհանում, դուք պետք է բացեք չօգտագործվող մոդուլ:
  4. Դրանից հետո այս մոդուլում պետք է պատճենեք հետևյալ VBA կոդը:
'Here we take "merging two folders" as an example
Sub MergeOutlookFolders_WithoutDuplicates()
    Dim objSourceFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
    Dim i, n, x As Long
    Dim objItem As Object
    Dim objDictionary As Object
    Dim strKey As String
 
    Set objSourceFolder = Application.Session.PickFolder
    Set objTargetFolder = Application.Session.PickFolder

    If objSourceFolder.DefaultItemType <> objTargetFolder.DefaultItemType Then
       MsgBox "Error: The two folders are not in same type!", vbExclamation + vbOKOnly
    Else
       'Merge the two folders
       For i = objSourceFolder.Items.count To 1 Step -1
           Set objItem = objSourceFolder.Items.Item(i)
           objItem.Move objTargetFolder
       Next i
 
       Set objDictionary = CreateObject("scripting.dictionary")
 
       'Remove the duplicates
       x = 0
       For n = objTargetFolder.Items.count To 1 Step -1
           Set objItem = objTargetFolder.Items.Item(n)
 
           Select Case objItem.Class
                  Case olMail
                       strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
                  Case olAppointment
                       strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
                  Case olContact
                       strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
                  Case olTask
                       strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
           End Select
 
           strKey = Replace(strKey, ", ", Chr(32))
 
           If objDictionary.Exists(strKey) = True Then
              objItem.Delete
              x = x + 1
           Else
              objDictionary.Add strKey, True
           End If
      Next n
 
      'Prompt you of the count of removed duplicates
      If x <> 0 Then
         MsgBox x & " duplicates removed when merging!", vbInformation + vbOKOnly
      End If
    End If
End Sub

VBA կոդ - Միավորել տարրերը բազմաթիվ պանակներից ՝ առանց կրկնօրինակների

  1. Ավելի ուշ դուք պետք է ստուգեք ձեր Outlook մակրո պարամետրերը ՝ ապահովելով, որ մակրոը միացված է:
  2. Վերջապես կարող եք փորձել:
  • Նախ, վերադառնանք նոր մոդուլի պատուհան:
  • Հաջորդը սեղմեք F5 ստեղնի կոճակը ՝ այս մակրոը գործարկելու համար:
  • Ապա դուք պետք է ընտրեք երկու պանակները, որոնք պետք է միաձուլվեն: Առաջինը աղբյուրն է, իսկ երկրորդը `այն tarձեռք բերել մեկը:
  • Դրանից հետո Outlook- ը կսկսի տեղափոխել բոլոր կետերը աղբյուրի պանակից դեպի այն tarձեռք բերել մեկը: Բացի այդ, այդ ընթացքում կրկնօրինակները ավտոմատ կերպով կհեռացվեն:
  • Ի վերջո, դուք կարող եք հաղորդագրություն ստանալ, որը հուշում է հեռացված կրկնօրինակների հաշվարկին, ինչպես ստորև նշված էկրանի նկարը.Հաղորդագրությունը հուշում է հանված կրկնօրինակների հաշվարկի մասին

Փոքր սխալները կարող են հանգեցնել մեծ վթարի

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

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

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

Կիսվել հիմա ՝

Comments փակվում են: