Kaip greitai sujungti elementus iš kelių aplankų be dublikatų programoje „Outlook“.

Jei norite sujungti visus elementus iš kelių "Outlook" aplankų ir užtikrinti, kad jie nepasikartotų, galite naudoti šiame straipsnyje aprašytą metodą. Jis naudoja VBA kodą, kad padėtų jums tai padaryti kaip kamštį.

Kartais galbūt norėsite sujungti elementus iš kelių "Outlook" aplankų, pvz., sujungti visus kelių "Outlook" kontaktų aplankų kontaktus. Esant tokiai situacijai, jei tarp šių aplankų yra pasikartojančių kontaktų, turite tikėtis, kad sujungimo metu dublikatus bus galima pašalinti automatiškai. Esant tokioms aplinkybėms, galite naudoti šį VBA kodą, kad jį lengvai įgyvendintumėte.

Sujunkite elementus iš kelių aplankų be dublikatų

1. Į start su, paleiskite „Outlook“ programą.
2. Tada turėtumėte pasiekti „Outlook VBA“ rengyklę paspausdami „Alt + F11“ klavišą pagrindiniame „Outlook“ ekrane.
3. Tada lange „Microsoft Visual Basic for Applications“ turite atidaryti nenaudojamą modulį.
4. Po to turėtumėte nukopijuoti šį VBA kodą į šį 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. Vėliau turėsite patikrinti „Outlook“ makrokomandos nustatymus ir įsitikinti, kad makrokomandos yra įjungtos.
6. Pagaliau galite pabandyti.

• Pirmiausia grįžkite į naujo modulio langą.
• Tada paspauskite F5 klavišą, kad suaktyvintumėte šią makrokomandą.
• Tada turite pasirinkti du aplankus, kuriuos norite sujungti. Pirmasis yra šaltinis, o antrasis yra targauti vieną.
• Po to „Outlook“ pradės perkelti visus elementus iš šaltinio aplanko į targauti vieną. Be to, tuo tarpu dublikatai bus automatiškai pašalinti.
• Galiausiai galite gauti pranešimą, raginantį apskaičiuoti pašalintų dublikatų skaičių, pvz., toliau pateiktoje ekrano kopijoje:

Mažos klaidos gali sukelti didelių avarijų

Nepaisant daugybės puikių funkcijų, „Outlook“ vis dar yra jautri klaidoms ir korupcijai. Galbūt susidūrėte su įvairiomis „Outlook“ problemomis. Daugelis vartotojų yra linkę ignoruoti atsitiktines klaidas. Tačiau tai yra maža klaida, kuri sukelia rimtų „Outlook“ gedimų, kurie sukels pavojų „Outlook“ failui. Taigi neturėtumėte nepaisyti jokių nedidelių klaidų. Vietoj to turėtumėte juos kuo greičiau pašalinti. Be to, geriau pasilikti apt PST remontas įrankis, pvz DataNumen Outlook Repair. Dėl didelio atkūrimo rodiklio ši priemonė nugalėjo savo bendraamžius.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com