Hvis du tilføjer de samme helligdage til en og samme kalender to eller flere gange ved et uheld, vil du opdage, at kalenderen er fyldt med dobbelte helligdage. I dette scenarie skal du ønske at fjerne duplikaterne. Nu vil denne artikel lære dig 2 midler.
Outlook har en indbygget funktion til hurtigt at tilføje helligdage til standardkalenderen. Det er utvivlsomt ret praktisk for brugerne. Men hvis du fejlagtigt tilføjer helligdage to eller flere gange, udfyldes din standardkalender med de dobbelte helligdage. Nu i det følgende vil vi introducere dig to tilgange til hurtig fjernelse af duplikaterne.

Metode 1: Fjern alle helligdage og tilføj dem igen
- Til at begynde med skal du starte dit Outlook-program.
- Åbn derefter kildekalendermappen.
- Skift derefter til fanen "Vis", og vælg "Skift visning"> "Liste".
- Derefter skal du klikke på knappen "Kategorier" i gruppen "Arrangement".
- Dernæst vil du se, at alle aftaler er grupperet efter kategorier.
- Nu kan du finde ud af gruppen "Ferie".
- Klik til sidst på gruppehovedet "Ferie" og tryk derefter på "Slet" -tasten.
- Straks er alle eksisterende helligdage fjernet.
- Når du har slettet dem, kan du tilføje ferien igen. Gå først til "File"> Options ".
- I popup-vinduet "Outlook-indstillinger" kan du skifte til "Kalender" -fanen.
- Under denne fane vil du være i stand til at finde knappen "Tilføj helligdage".
- Vælg derefter en placering i den nye dialogboks, f.eks. “USA”, og tryk på “OK”.
- Til sidst er ferien importeret til standardkalenderen igen.
Metode 2: Fjern duplikerede helligdage med VBA
- I begyndelsen skal du trykke på “Alt + F11” -tasten.
- Dernæst får du adgang til Outlook VBA-editorvinduet, hvor du kan åbne et ubrugt modul.
- Kopier derefter følgende VBA-kode til dette modul.
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
- I sidste ende kan du prøve denne makro.
- Klik ind i "FjernDuplicateHolidays" underrutinen.
- Tryk derefter på F5-tasten for at køre den.
- Når det er afsluttet, fjernes alle de dobbelte helligdage i alle dine Outlook-kalendere.
Hent værdifulde Outlook-data
Det er en ubestridt kendsgerning, at intet program kan garantere, at det kan være immun mod fejl og korruption. Det samme gælder for Outlook. Derfor, for at beskytte dine Outlook-data, skulle du hellere foretage regelmæssige sikkerhedskopier af data. Desuden skal du planlægge en Outlook-gendannelsesplan på forhånd. Sidst men ikke mindst er det klogt at forberede et velrenommeret fix-værktøj, såsom DataNumen Outlook Repair. Det er i stand til reparere Outlook problemer i en smule og få maksimale Outlook-data tilbage fra kompromitteret fil.
Forfatter Introduktion:
Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder genvinde Sql Server og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com



