2 midler til hurtigt at fjerne duplikerede helligdage i din Outlook-kalender

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.

Fjern hurtigt duplikerede helligdage i din Outlook-kalender

Metode 1: Fjern alle helligdage og tilføj dem igen

  1. Til at begynde med skal du starte dit Outlook-program.
  2. Åbn derefter kildekalendermappen.
  3. Skift derefter til fanen "Vis", og vælg "Skift visning"> "Liste".Skift kalendervisning til listevisning
  4. Derefter skal du klikke på knappen "Kategorier" i gruppen "Arrangement".
  5. Dernæst vil du se, at alle aftaler er grupperet efter kategorier.
  6. Nu kan du finde ud af gruppen "Ferie".
  7. Klik til sidst på gruppehovedet "Ferie" og tryk derefter på "Slet" -tasten.Gruppér efter kategorier & Slet alle helligdage
  8. Straks er alle eksisterende helligdage fjernet.
  9. Når du har slettet dem, kan du tilføje ferien igen. Gå først til "File"> Options ".
  10. I popup-vinduet "Outlook-indstillinger" kan du skifte til "Kalender" -fanen.
  11. Under denne fane vil du være i stand til at finde knappen "Tilføj helligdage".
  12. Vælg derefter en placering i den nye dialogboks, f.eks. “USA”, og tryk på “OK”.Gen tilføj helligdage
  13. Til sidst er ferien importeret til standardkalenderen igen.

Metode 2: Fjern duplikerede helligdage med VBA

  1. I begyndelsen skal du trykke på “Alt + F11” -tasten.
  2. Dernæst får du adgang til Outlook VBA-editorvinduet, hvor du kan åbne et ubrugt modul.
  3. 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

VBA-kode - Fjern hurtigt duplikerede helligdage i din Outlook-kalender

  1. 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

Kommentarer er lukket.