2 Mijloace de a elimina rapid vacanțele duplicate din calendarul dvs. Outlook

Dacă adăugați aceleași sărbători la același calendar de două ori sau de mai multe ori din întâmplare, veți descoperi că calendarul este plin de sărbători duplicate. În acest scenariu, trebuie să doriți să eliminați duplicatele. Acum, acest articol vă va învăța 2 mijloace.

Outlook are o funcție încorporată pentru a adăuga rapid sărbători în calendarul implicit. Este, fără îndoială, destul de convenabil pentru utilizatori. Cu toate acestea, dacă adăugați sărbătorile de două ori sau de mai multe ori din greșeală, calendarul dvs. implicit va fi completat cu sărbătorile duplicat. Acum, în cele ce urmează, vă vom prezenta 2 abordări pentru a elimina rapid duplicatele.

Metoda 1: Eliminați toate sărbătorile și adăugați-le din nou

1. Pentru început, lansați programul Outlook.
2. Apoi accesați folderul Calendar sursă.
3. Apoi comutați la fila „Vizualizare” și alegeți „Schimbați vizualizarea” > „Lista”.
4. După aceea, ar trebui să faceți clic pe butonul „Categorii” din grupul „Aranjament”.
5. În continuare, vei vedea că toate programările au fost grupate pe categorii.
6. Acum puteți afla grupul „Vacanță”.
7. În cele din urmă, faceți clic pe antetul grupului „Vacanță” și apoi apăsați tasta „Șterge”.
8. Deodată, toate vacanțele existente au fost eliminate.
9. După ce le ștergeți, puteți adăuga din nou vacanța. În primul rând, accesați „Fișier” > Opțiuni”.
10. În fereastra pop-up „Opțiuni Outlook”, puteți comuta la fila „Calendar”.
11. Sub această filă, veți putea găsi butonul „Adăugați vacanțe”.
12. Apoi, în noua casetă de dialog, selectați o locație, cum ar fi „Statele Unite” și apăsați „OK”.
13. În cele din urmă, sărbătorile au fost importate din nou în calendarul implicit.

Metoda 2: Eliminați vacanțele duplicate cu VBA

1. De la bun început, apăsați butoanele tastei „Alt + F11”.
2. Apoi, veți accesa fereastra editorului Outlook VBA, în care puteți deschide un modul neutilizat.
3. Ulterior, copiați următorul cod VBA în acest 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

4. În cele din urmă, puteți încerca această macrocomandă.

• Faceți clic în subrutina „RemoveDuplicateHolidays”.
• Apoi apăsați butonul tasta F5 pentru al rula.
• După ce se finalizează, toate sărbătorile duplicat din toate calendarele Outlook sunt eliminate.

Preluați date valoroase din Outlook

Este un fapt incontestabil că niciun program nu poate garanta că poate fi imun la erori și corupție. Același lucru este valabil și pentru Outlook. Prin urmare, pentru a vă proteja datele Outlook, ar fi bine să faceți copii de rezervă regulate ale datelor. În plus, trebuie să programați un plan de recuperare Outlook în avans. Nu în ultimul rând, este prudent să pregătiți un instrument de remediere reputat, cum ar fi DataNumen Outlook Repair. Este capabil să repara Outlook probleme într-o clipă și obțineți înapoi maximum de date Outlook din fișierul compromis.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera Sql Server și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com