Ako slučajno dodate iste praznike u isti kalendar dva ili više puta, otkrit ćete da je kalendar prepun dupliranih praznika. U ovom scenariju, morate željeti ukloniti duplikate. Sada, ovaj članak će vas naučiti 2 načina.
Outlook ima ugrađenu funkciju za brzo dodavanje praznika u zadani kalendar. Nesumnjivo je prilično zgodan za korisnike. Međutim, ako dodate praznike dva ili više puta greškom, vaš zadani kalendar će biti popunjen duplim praznicima. Sada ćemo vam u nastavku predstaviti 2 pristupa za brzo uklanjanje duplikata.
Metoda 1: Uklonite sve praznike i dodajte ih ponovo
- Za početak, pokrenite Outlook program.
- Zatim pristupite izvornom folderu Kalendar.
- Zatim se prebacite na karticu “Prikaz” i odaberite “Promijeni prikaz” > “Lista”.
- Nakon toga treba da kliknete na dugme „Kategorije“ u grupi „Aranžman“.
- Zatim ćete vidjeti da su svi sastanci grupisani po kategorijama.
- Sada možete saznati grupu “Praznik”.
- Na kraju, kliknite na zaglavlje grupe „Praznik“, a zatim pritisnite tipku „Izbriši“.
- Svi postojeći praznici su odjednom uklonjeni.
- Nakon što ih izbrišete, možete ponovo dodati praznik. Prvo idite na “File” > Options”.
- U iskačućem prozoru „Opcije Outlooka“ možete se prebaciti na karticu „Kalendar“.
- Na ovoj kartici moći ćete pronaći dugme „Dodaj praznike“.
- Zatim, u novom dijaloškom okviru, odaberite lokaciju, kao što je "Sjedinjene Američke Države" i pritisnite "OK".
- Na kraju, praznici su ponovo uvezeni u podrazumevani kalendar.
Metod 2: Uklonite duple praznike pomoću VBA
- Na samom početku pritisnite tipke “Alt + F11”.
- Zatim ćete pristupiti prozoru Outlook VBA editora 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
- Na kraju, možete isprobati ovaj makro.
- Kliknite na potprogram “RemoveDuplicateHolidays”.
- Zatim pritisnite dugme F5 da biste ga pokrenuli.
- Nakon što se završi, uklanjaju se svi dupli praznici u svim vašim Outlook kalendarima.
Dohvatite vrijedne Outlook podatke
Neupitna je činjenica da nijedan program ne može garantovati da može biti imun na greške i korupciju. Isto važi i za Outlook. Stoga, kako biste zaštitili svoje Outlook podatke, bolje je praviti redovne sigurnosne kopije podataka. Osim toga, morate unaprijed zakazati plan oporavka programa Outlook. Na kraju, ali ne i najmanje važno, razumno je pripremiti renomirani alat za popravku, kao što je npr DataNumen Outlook Repair. To je u stanju popraviti Outlook problemi u trenu i vratite maksimalan broj Outlook podataka iz kompromitovane datoteke.
Uvod za autora:
Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporavi se Sql Server i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com