Hogyan lehet gyorsan egyesíteni az elemeket több mappából duplikációk nélkül az Outlookban

Ha szeretné egyesíteni az összes elemet több Outlook mappából, és biztosítani szeretné, hogy ne legyenek ismétlődések, használhatja az ebben a cikkben bemutatott módszert. VBA kódot használ, hogy segítsen megvalósítani, mint egy parafa.

Időnként előfordulhat, hogy több Outlook-mappa elemeit egyesítheti, például több Outlook névjegymappa névjegyeit egyesítheti. Ebben a helyzetben, ha van néhány duplikált névjegy ezek között a mappákban, remélnie kell, hogy a duplikátumok automatikusan eltávolíthatók az egyesítés során. Ilyen körülmények között a következő VBA-kód segítségével könnyedén megvalósíthatja azt.

Egyesítse az elemeket több mappából ismétlődések nélkül

1. A start és indítsa el az Outlook alkalmazást.
2. Ezután az Outlook főképernyőjén az „Alt + F11” billentyűkombináció megnyomásával kell elérnie az Outlook VBA szerkesztőjét.
3. Ezután a „Microsoft Visual Basic for Applications” ablakban meg kell nyitnia egy nem használt modult.
4. Ezt követően másolja be a következő VBA-kódot ebbe a modulba.

'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. Később ellenőriznie kell az Outlook makró beállításait, és meg kell győződnie arról, hogy a makró engedélyezve van.
6. Végre egy próbát tehetsz.

• Először is térjünk vissza az új modul ablakhoz.
• Ezután nyomja meg az F5 billentyűt a makró aktiválásához.
• Ezután ki kell választania az egyesítendő két mappát. Az első a forrás, a második pedig a tarkap egy.
• Ezt követően az Outlook elkezdi áthelyezni az összes elemet a forrásmappából a tarkap egy. Ezen túlmenően a másolatok automatikusan eltávolításra kerülnek.
• Végül egy üzenetet kaphat, amely az eltávolított ismétlődések számát kéri, például az alábbi képernyőképen:

Az apró hibák nagy összeomláshoz vezethetnek

Annak ellenére, hogy rengeteg kiváló funkcióval rendelkezik, az Outlook továbbra is érzékeny a hibákra és a korrupcióra. Lehet, hogy különböző Outlook-problémákkal találkozott. Sok felhasználó hajlamos figyelmen kívül hagyni a véletlenszerű hibákat. Azonban az apró hiba okozza az Outlook súlyos összeomlását, ami veszélyezteti az Outlook fájlt. Ezért nem szabad figyelmen kívül hagyni az apró hibákat sem. Ehelyett a lehető leghamarabb meg kell szüntetnie őket. Ezenkívül jobb, ha megtart egy apt PST javítás eszköz, mint pl DataNumen Outlook Repair. Magas helyreállítási arányának köszönhetően ez a segédprogram túlszárnyalja társait.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sérült sql és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com