Jei norite pašalinti pasikartojančius elementus programoje „Outlook“, jų paieška ir šalinimas po vieną bus gana sudėtingas. Šiame įraše sužinosite, kaip greitai tai padaryti naudojant „Outlook VBA“.
Mano ankstesniame straipsnyje – „Kaip greitai rasti ir pašalinti pasikartojančius el. laiškus programoje „Outlook“.“, galite išmokti gudrybės, kaip rasti ir pašalinti pasikartojančius el. laiškus, kurie pirmiausia surūšiuoja laiškus pagal temą, tada pagal gavimo laiką ir pagal priedus, kad išsiaiškintų pasikartojančius elementus, galiausiai pasirinkite pasikartojančius ir paspauskite klavišą „Ištrinti“. Nors šis metodas atrodo šiek tiek patogesnis, tačiau jis yra daug varginantis, palyginti su Outlook VBA. Naudodami šiuos VBA kodus galite greitai pašalinti pasikartojančius elementus tiesiog vienu spustelėjimu, nesvarbu, el. laiškai, užduotys, kontaktai ar susitikimai. Dabar skaitykite toliau, kad gautumėte išsamius kodus.
Pašalinkite pasikartojančius „Outlook“ elementus iš aplanko
- Norėdami pradėti, paleiskite „Outlook“ programą.
- Tada paspauskite klavišų kombinaciją „Alt + F11“.
- Vėlesniame VBA redaktoriaus lange dukart spustelėkite, kad atidarytumėte naudojamą modulį, arba tiesiogiai įterpkite naują modulį naudodami „Įterpti“ > „Modulis“.
- Tada nukopijuokite ir įklijuokite šiuos VBA kodus į modulį.
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
- Po to skaitmeniniu būdu pasirašykite šią makrokomandą ir pakeiskite „Outlook“ makrokomandos saugos lygį į žemą.
- Vėliau galėsite vykdyti šį naują VBA projektą. Tiesiogiai spustelėkite piktogramą "Vykdyti" įrankių juostoje.
- Vėliau turėsite pasirinkti aplanką, kuriame norite pašalinti pasikartojančius elementus.
- Galiausiai pasikartojantys elementai pasirinktame aplanke bus ištrinti iš karto.
Apsaugokite pažeidžiamus PST duomenis
Dėl to, kad PST failas yra jautrus korupcijai, turėtumėte įdėti daug pastangų, kad apsaugotumėte savo PST failą. Pavyzdžiui, turėtumėte neleisti, kad „Outlook“ būtų uždaryta netinkamai. Be to, jums reikia paruošti tvirtą Outlook taisymas įrankis, pvz DataNumen Outlook Repair kuris galės laiku išgelbėti jūsų PST.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atsigauti SQL Server ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com