Ako dvaput ili više puta slučajno dodate iste praznike u isti kalendar, vidjet ćete da je kalendar prepun dvostrukih praznika. U ovom scenariju morate željeti ukloniti duplikate. Sada, ovaj članak će vas naučiti 2 sredstva.
Outlook ima ugrađenu značajku za brzo dodavanje praznika u zadani kalendar. Nedvojbeno je prilično pogodan za korisnike. Međutim, ako dvaput ili više puta greškom dodate praznike, vaš će zadani kalendar biti ispunjen duplikatima praznika. Sada ćemo vam u nastavku predstaviti 2 pristupa za brzo uklanjanje duplikata.
Metoda 1: Uklonite sve praznike i dodajte ih ponovno
- Za početak, pokrenite Outlook program.
- Zatim pristupite izvornoj mapi Kalendar.
- Zatim prijeđite na karticu "Prikaz" i odaberite "Promijeni prikaz" > "Popis".
- Nakon toga treba kliknuti na gumb “Kategorije” u grupi “Aranžman”.
- Zatim ćete vidjeti da su svi termini grupirani po kategorijama.
- Sada možete saznati grupu "Odmor".
- Na kraju kliknite na zaglavlje grupe “Holiday” i zatim pritisnite tipku “Delete”.
- Odjednom su uklonjeni svi postojeći praznici.
- Nakon što ih izbrišete, možete ponovno dodati praznik. Prvo idite na “Datoteka” > Opcije”.
- U skočnom prozoru "Opcije programa Outlook" možete se prebaciti na karticu "Kalendar".
- Pod ovom karticom moći ćete pronaći gumb "Dodaj praznike".
- Zatim u novom dijaloškom okviru odaberite lokaciju, poput "Sjedinjene Američke Države" i pritisnite "U redu".
- Na kraju su praznici ponovno uvezeni u zadani Kalendar.
Metoda 2: Uklonite duplikate praznika pomoću VBA
- Na samom početku pritisnite tipke "Alt + F11".
- Zatim ćete pristupiti Outlook VBA prozoru uređivača u kojem možete otvoriti neiskorišteni modul.
- Nakon toga kopirajte sljedeći VBA kod u ovaj 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
- U konačnici, možete isprobati ovaj makro.
- Kliknite na potprogram “RemoveDuplicateHolidays”.
- Zatim pritisnite tipku F5 za pokretanje.
- Nakon dovršetka uklanjaju se svi dvostruki praznici u svim vašim Outlook kalendarima.
Dohvatite vrijedne Outlook podatke
Neupitna je činjenica da nijedan program ne može jamčiti da može biti imun na pogreške i kvarove. Isto vrijedi i za Outlook. Stoga, kako biste zaštitili svoje Outlook podatke, bolje je da redovito izrađujete sigurnosne kopije podataka. Osim toga, morate unaprijed zakazati plan oporavka programa Outlook. Posljednje, ali ne manje važno, mudro je pripremiti renomirani alat za popravak, kao što je DataNumen Outlook Repair, U stanju je popraviti Outlook probleme u tren oka i vratite maksimalan broj Outlook podataka iz ugrožene datoteke.
Uvod za autora:
Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti se Sql Server i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com