Kako brzo spojiti stavke iz više mapa bez duplikata u programu Outlook

Ako želite spojiti sve stavke iz više Outlook mapa i osigurati da nema duplikata, možete koristiti metodu predstavljenu u ovom članku. Koristi VBA kod da vam pomogne da to postignete poput čepa.

Ponekad ćete možda poželjeti spojiti stavke iz nekoliko mapa programa Outlook, poput spajanja svih kontakata iz nekoliko mapa kontakata programa Outlook. U ovoj situaciji, ako postoje duplicirani kontakti među ovim mapama, morate se nadati da će se duplikati moći automatski ukloniti tijekom spajanja. Pod ovim okolnostima, možete upotrijebiti sljedeći VBA kod da biste to realizirali s lakoćom bez napora.

Spajanje stavki iz više mapa bez duplikata

1. Za start pomoću, pokrenite svoju Outlook aplikaciju.
2. Zatim biste trebali pristupiti uređivaču Outlook VBA pritiskom tipke "Alt + F11" na glavnom zaslonu programa Outlook.
3. Zatim u prozoru “Microsoft Visual Basic for Applications” morate otvoriti modul koji se ne koristi.
4. Nakon toga trebate kopirati sljedeći VBA kod u ovaj modul.

'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. Kasnije trebate provjeriti svoje postavke makronaredbi programa Outlook i osigurati da je makronaredba omogućena.
6. Konačno možete pokušati.

• Prvo, vratite se na novi prozor modula.
• Zatim pritisnite tipku F5 za pokretanje ove makronaredbe.
• Zatim trebate odabrati dvije mape koje želite spojiti. Prvi je izvorni, a drugi je taruzmi jedan.
• Nakon toga, Outlook će početi premještati sve stavke iz izvorne mape u taruzmi jedan. Također, u međuvremenu će se duplikati automatski ukloniti.
• Naposljetku, možda ćete primiti poruku s upitom o broju uklonjenih duplikata, kao na slici ispod:

Sitne pogreške mogu dovesti do velikih padova

Unatoč velikom broju izvrsnih funkcija, Outlook je još uvijek osjetljiv na pogreške i oštećenja. Možda ste naišli na razne probleme s Outlookom. Mnogi su korisnici skloni ignorirati nasumične pogreške. Međutim, mala pogreška izaziva ozbiljna rušenja Outlooka, što će ugroziti Outlook datoteku. Stoga ne biste trebali zanemariti male pogreške. Umjesto toga, trebali biste ih eliminirati što je prije moguće. Nadalje, bolje da zadržite apt PST popravak alat, kao npr DataNumen Outlook Repair. Svojom visokom stopom oporavka ovaj je uslužni program prestigao svoje konkurente.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećeni sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com