Hvis du legger til de samme helligdagene i den samme kalenderen to eller flere ganger ved et uhell, vil du oppdage at kalenderen er fylt med dupliserte helligdager. I dette scenariet må du ønske å fjerne duplikatene. Nå vil denne artikkelen lære deg to måter.
Outlook har en innebygd funksjon for raskt å legge til helligdager i standardkalenderen. Det er utvilsomt ganske praktisk for brukere. Men hvis du legger til helligdagene to ganger eller flere ganger ved en feiltakelse, vil standardkalenderen fylles opp med de dupliserte helligdagene. Nå, i det følgende, vil vi introdusere deg 2 metoder for å raskt fjerne duplikatene.

Metode 1: Fjern alle høytider og legg dem til igjen
- For å begynne, start Outlook-programmet ditt.
- Gå deretter til kildekalendermappen.
- Bytt deretter til «Vis»-fanen og velg «Endre visning» > «Liste».
- Etter det bør du klikke på "Kategorier"-knappen i "Arrangement"-gruppen.
- Deretter vil du se at alle avtalene er gruppert etter kategorier.
- Nå kan du finne ut "Ferie"-gruppen.
- Til slutt klikker du på "Ferie"-gruppeoverskriften og trykker deretter på "Slett"-tasten.
- Med en gang er alle de eksisterende helligdagene fjernet.
- Etter å ha slettet dem, kan du legge til ferien på nytt. Gå først til "Fil"> Alternativer.
- I popup-vinduet "Outlook-alternativer" kan du bytte til fanen "Kalender".
- Under denne fanen vil du kunne finne "Legg til helligdager"-knappen.
- Velg deretter et sted i den nye dialogboksen, for eksempel "USA" og trykk "OK".
- Etter hvert har helligdagene blitt importert til standardkalenderen igjen.
Metode 2: Fjern dupliserte helligdager med VBA
- Helt i begynnelsen trykker du på "Alt + F11"-tastene.
- Deretter får du tilgang til Outlook VBA-redigeringsvinduet, der du kan åpne en ubrukt modul.
- Kopier deretter følgende VBA-kode inn i denne modulen.
Sub RemoveDuplicateHolidays()
Dim objStores As Outlook.Stores
Dim objStore As Outlook.Store
Dim objPSTFile As Outlook.Folder
Dim objFolders As Outlook.folders
Dim objFolder As Object
Set objStores = Outlook.Application.Session.Stores
'Process all Outlook PST files in your Outlook
For Each objStore In objStores
Set objPSTFile = objStore.GetRootFolder
For Each objFolder In objPSTFile.folders
Call ProcessFolders(objFolder)
Next
Next
End Sub
Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
Dim objDictionary As Object
Dim i As Long
Dim objItem As Object
Dim strKey As String
Set objDictionary = CreateObject("Scripting.Dictionary")
If objCurrentFolder.DefaultItemType = olAppointmentItem Then
For i = objCurrentFolder.Items.count To 1 Step -1
Set objItem = objCurrentFolder.Items.Item(i)
'Get all holidays based on the "Holiday" category
If objItem.Categories = "Holiday" Then
strKey = objItem.Subject & "," & objItem.Location & "," & objItem.Body & "," & objItem.Categories
strKey = Replace(strKey, ", ", Chr(32))
If objDictionary.Exists(strKey) = True Then
objItem.Delete
Else
objDictionary.Add strKey, True
End If
End If
Next i
End If
End Sub
- Til syvende og sist kan du prøve denne makroen.
- Klikk på "RemoveDuplicateHolidays"-underrutinen.
- Trykk deretter på F5-tasten for å kjøre den.
- Etter at den er fullført, fjernes alle dupliserte helligdager i alle Outlook-kalendere.
Hent verdifulle Outlook-data
Det er et ubestridt faktum at intet program kan garantere at det kan være immunt mot feil og korrupsjon. Det samme gjelder for Outlook. Derfor, for å beskytte Outlook-dataene dine, bør du ta regelmessige sikkerhetskopier av data. Dessuten må du planlegge en Outlook-gjenopprettingsplan på forhånd. Sist, men ikke minst, er det fornuftig å utarbeide et anerkjent fikseverktøy, som f.eks DataNumen Outlook Repair. Det er i stand til reparere Outlook problemer på et blunk og få tilbake maksimale Outlook-data fra kompromittert fil.
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette Sql Server og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med



