Kā ātri noņemt mapes Outlook vienumu dublikātus, izmantojot VBA

Ja vēlaties noņemt dublētus vienumus programmā Outlook, to meklēšana un noņemšana pa vienam būs diezgan sarežģīta. Šajā ierakstā ir aprakstīts, kā to ātri paveikt, izmantojot Outlook VBA.

Manā iepriekšējā rakstā - “Kā ātri atrast un noņemt dublētus e-pastus programmā Outlook”, Jūs varat iemācīties triku, lai atrastu un noņemtu e-pasta ziņojumu dublikātus, kuri vispirms sakārto e-pastus pēc tēmas, pēc tam pēc saņemtā laika un pēc tam pēc pielikumiem, lai uzzinātu vienumu dublikātus, un, visbeidzot, atlasiet dublikātus un nospiediet taustiņu“ Dzēst ”. Lai gan šī metode, šķiet, ir mazliet ērtāka, taču tā ir daudz apgrūtinošāka, salīdzinot ar Outlook VBA izmantošanu. Izmantojot šādus VBA kodus, jūs varat ātri noņemt vienumu dublikātus, vienkārši veicot vienu klikšķi, neatkarīgi no e-pastiem, uzdevumiem, kontaktiem vai tikšanās. Tagad lasiet tālāk, lai detalizēti iegūtu kodus.

Noņemiet mapē Outlook vienumu dublikātus

1. Lai sāktu, palaidiet savu Outlook programmu.
2. Pēc tam nospiediet taustiņu “Alt + F11” taustiņus.
3. Nākamajā VBA redaktora logā veiciet dubultklikšķi, lai atvērtu izmantoto moduli, vai tieši ievietojiet jaunu moduli, nospiežot “Insert”> “Module”.
4. Pēc tam modulī kopējiet un ielīmējiet šādus VBA kodus.

Sub RemoveDuplicateItems()
    Dim objFolder As Folder
    Dim objDictionary As Object
    Dim i As Long
    Dim objItem As Object
    Dim strKey As String

    Set objDictionary = CreateObject("scripting.dictionary")
    'Select a source folder
    Set objFolder = Outlook.Application.Session.PickFolder

    If Not (objFolder Is Nothing) Then
       For i = objFolder.Items.Count To 1 Step -1
           Set objItem = objFolder.Items.Item(i)
 
           Select Case objFolder.DefaultItemType
                  'Check email subject, body and sent time
                  Case olMailItem
                       strKey = objItem.Subject & "," & objItem.Body & "," & objItem.SentOn
                  'Check appointment subject, start time, duration, location and body
                  Case olAppointmentItem
                       strKey = objItem.Subject & "," & objItem.Start & "," & objItem.Duration & "," & objItem.Location & "," & objItem.Body
                  'Check contact full name and email address
                  Case olContactItem
                       strKey = objItem.FullName & "," & objItem.Email1Address & "," & objItem.Email2Address & "," & objItem.Email3Address
                  'Check task subject, start date, due date and body
                  Case olTaskItem
                       strKey = objItem.Subject & "," & objItem.StartDate & "," & objItem.DueDate & "," & objItem.Body
           End Select
 
           strKey = Replace(strKey, ", ", Chr(32))
 
           'Remove the duplicate items
           If objDictionary.Exists(strKey) = True Then
              objItem.Delete
           Else
              objDictionary.Add strKey, True
           End If
       Next i
    End If
End Sub

5. Pēc tam digitāli parakstiet šo makro un mainiet Outlook makro drošības līmeni uz zemu.
6. Vēlāk jūs varat vadīt šo jauno VBA projektu. Rīkjoslā tieši noklikšķiniet uz ikonas “Palaist”.
7. Pēc tam jums būs jāizvēlas mape, kurā vēlaties noņemt vienumu dublikātus.
8. Visbeidzot, vienumu dublikāti atlasītajā mapē tiks nekavējoties izdzēsti.

Aizsargājiet neaizsargātos PST datus

Sakarā ar to, ka PST fails ir pakļauts korupcijai, tāpēc jums vajadzētu tērēt daudz pūļu, lai aizsargātu savu PST failu. Piemēram, jums jānovērš Outlook nepareiza aizvēršana. Turklāt jums ir jāsagatavo izturīgs Outlook labojums rīks, piemēram, DataNumen Outlook Repair kas varēs savlaicīgi glābt jūsu PST.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt SQL Server un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar