Kako hitro združiti elemente iz več map brez dvojnikov v programu Outlook

Če bi radi združili vse elemente iz več Outlookovih map in se izognili dvojnikom, lahko uporabite metodo, predstavljeno v tem članku. Uporablja kodo VBA, ki vam pomaga, da jo dosežete kot pluta.

Včasih boste morda želeli združiti elemente iz več Outlookovih map, na primer združiti vse stike več map Outlookovih stikov. Če je med temi mapami nekaj podvojenih stikov, morate v tem primeru upati, da jih je mogoče med spajanjem samodejno odstraniti. V teh okoliščinah lahko uporabite naslednjo kodo VBA, da jo lahko preprosto uresničite.

Združi predmete iz več map brez podvojenih kopij

1. Za starZaženite aplikacijo Outlook.
2. Nato morate dostopati do urejevalnika Outlook VBA s pritiskom na tipko “Alt + F11” na glavnem zaslonu Outlooka.
3. Nato morate v oknu »Microsoft Visual Basic for Applications« odpreti modul, ki se ne uporablja.
4. Po tem kopirajte naslednjo kodo VBA v ta 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. Kasneje morate preveriti nastavitve makra v Outlooku in zagotoviti, da je makro omogočen.
6. Končno lahko poskusite.

• Najprej se vrnemo v novo okno modula.
• Nato pritisnite tipko F5, da sprožite ta makro.
• Nato morate izbrati dve mapi, ki ju želite združiti. Prva je izvorna, druga pa tarvzemi enega.
• Po tem bo Outlook začel premikati vse elemente iz izvorne mape v tarvzemi enega. V tem času bodo dvojniki samodejno odstranjeni.
• Na koncu boste morda prejeli sporočilo, ki bo zahtevalo število odstranjenih dvojnikov, na primer spodnji posnetek zaslona:

Drobne napake lahko vodijo do velikih zrušitev

Kljub številnim odličnim funkcijam je Outlook še vedno dovzeten za napake in korupcijo. Morda ste naleteli na različne težave z Outlookom. Mnogi uporabniki so nagnjeni k prezrtju naključnih napak. Vendar je drobna napaka tista, ki sproži resne zrušitve Outlooka, kar bo ogrozilo datoteko Outlook. Tako ne smete zanemarjati majhnih napak. Namesto tega jih morate čim prej odpraviti. Poleg tega raje imejte primerno Popravilo PST orodje, kot je DataNumen Outlook Repair. Zahvaljujoč visoki stopnji izterjave se je ta pripomoček zamašil nad svojimi vrstniki.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z poškodovan sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com