როგორ სწრაფად გავაერთიანოთ ელემენტები მრავალი საქაღალდედან დუბლიკატების გარეშე Outlook-ში

თუ გსურთ ყველა ელემენტის გაერთიანება Outlook-ის მრავალი საქაღალდედან და დაზღვეული არ იყოს დუბლიკატი, შეგიძლიათ გამოიყენოთ ამ სტატიაში წარმოდგენილი მეთოდი. ის იყენებს VBA კოდს, რათა დაგეხმაროთ მის შესრულებაში, როგორც კორკი.

ზოგჯერ შეიძლება გინდოდეთ ერთეულების შერწყმა რამდენიმე Outlook საქაღალდედან, მაგალითად, რამდენიმე Outlook Contacts საქაღალდის ყველა კონტაქტის შერწყმა. ამ სიტუაციაში, თუ ამ საქაღალდეებს შორის არის რამდენიმე დუბლირებული კონტაქტი, უნდა გქონდეთ იმედი, რომ დუბლიკატები შეიძლება ავტომატურად წაიშალოს გაერთიანების დროს. ამ ვითარებაში, შეგიძლიათ გამოიყენოთ შემდეგი 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

5. მოგვიანებით თქვენ უნდა შეამოწმოთ თქვენი Outlook მაკრო პარამეტრები, დარწმუნდით, რომ მაკრო ჩართულია.
6. საბოლოოდ შეგიძლიათ სცადოთ.

• პირველ რიგში, დაუბრუნდით მოდულის ახალ ფანჯარას.
• შემდეგ დააჭირეთ F5 ღილაკს ამ მაკროს გასააქტიურებლად.
• შემდეგ თქვენ უნდა აირჩიოთ ორი საქაღალდე, რომელიც უნდა გაერთიანდეს. პირველი არის წყარო, ხოლო მეორე არის tarმიიღეთ ერთი.
• ამის შემდეგ, Outlook დაიწყებს ყველა ელემენტის გადატანას წყაროს საქაღალდიდან საქაღალდეში tarმიიღეთ ერთი. ასევე, ამასობაში, დუბლიკატები ავტომატურად წაიშლება.
• საბოლოო ჯამში, თქვენ შეიძლება მიიღოთ შეტყობინება წაშლილი დუბლიკატების რაოდენობის შესახებ, როგორიცაა ქვემოთ მოცემული ეკრანის სურათი:

მცირე შეცდომებმა შეიძლება გამოიწვიოს დიდი ავარია

მიუხედავად იმისა, რომ დატვირთულია შესანიშნავი ფუნქციებით, Outlook კვლავ მგრძნობიარეა შეცდომებისა და კორუფციის მიმართ. შესაძლოა თქვენ შეგხვედრიათ Outlook-ის სხვადასხვა პრობლემა. ბევრი მომხმარებელი მიდრეკილია უგულებელყოს შემთხვევითი შეცდომები. თუმცა, ეს არის პატარა შეცდომა, რომელიც იწვევს Outlook-ის სერიოზულ ავარიას, რაც საფრთხეს უქმნის Outlook ფაილს. ამრიგად, არ უნდა უგულებელყოთ მცირე შეცდომები. ამის ნაცვლად, თქვენ უნდა აღმოფხვრათ ისინი რაც შეიძლება მალე. გარდა ამისა, ჯობია შეინარჩუნო ბინა PST შეკეთება ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair. მისი მაღალი აღდგენის სიჩქარის გამო, ამ კომუნალურმა პროგრამამ გვერდი აუარა თავის თანატოლებს.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაზიანებული sql და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად