Ja nejauši pievienojat vienas un tās pašas brīvdienas vienam un tam pašam kalendāram divas vai vairākas reizes, jūs pamanīsit, ka kalendārs ir piepildīts ar brīvdienu dublikātiem. Šādā gadījumā jums ir jānoņem dublikāti. Tagad šis raksts jums iemācīs 2 līdzekļus.
Programmā Outlook ir iebūvēta funkcija, lai ātri pievienotu brīvdienas noklusējuma kalendāram. Tas neapšaubāmi ir diezgan ērti lietotājiem. Tomēr, ja brīvdienas divas vai vairākas reizes pievienojat kļūdaini, noklusējuma kalendārs tiks aizpildīts ar brīvdienu dublikātiem. Turpmāk mēs iepazīstināsim jūs ar 2 pieejām, kā ātri noņemt dublikātus.
1. metode: noņemiet visas brīvdienas un pievienojiet tās vēlreiz
- Lai sāktu, palaidiet savu Outlook programmu.
- Pēc tam piekļūstiet avota kalendāra mapei.
- Tālāk pārslēdzieties uz cilni “Skats” un izvēlieties “Mainīt skatu”> “Saraksts”.
- Pēc tam jums vajadzētu noklikšķināt uz pogas “Kategorijas” grupā “Vienošanās”.
- Tālāk jūs redzēsit, ka visas tikšanās ir sagrupētas pēc kategorijām.
- Tagad jūs varat uzzināt grupu “Brīvdienas”.
- Visbeidzot, noklikšķiniet uz grupas “Brīvdienas” galvenes un pēc tam nospiediet taustiņu “Dzēst”.
- Uzreiz visas esošās brīvdienas ir noņemtas.
- Pēc to dzēšanas jūs varat atkārtoti pievienot brīvdienu. Pirmkārt, dodieties uz “Fails”> Opcijas.
- Uznirstošajā logā “Outlook opcijas” varat pārslēgties uz cilni “Kalendārs”.
- Šajā cilnē jūs varēsit atrast pogu “Pievienot brīvdienas”.
- Pēc tam jaunajā dialoglodziņā atlasiet atrašanās vietu, piemēram, “Amerikas Savienotās Valstis”, un nospiediet “Labi”.
- Galu galā brīvdienas atkal ir importētas noklusējuma kalendārā.
2. metode: noņemiet brīvdienu dublikātus, izmantojot VBA
- Pašā sākumā nospiediet taustiņu “Alt + F11”.
- Pēc tam jūs piekļūstat Outlook VBA redaktora logam, kurā varat atvērt neizmantotu moduli.
- Pēc tam šajā modulī nokopējiet šādu VBA kodu.
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
- Galu galā jūs varat izmēģināt šo makro.
- Noklikšķiniet uz apakšprogrammas “RemoveDuplicateHolidays”.
- Pēc tam nospiediet taustiņu F5, lai to palaistu.
- Kad tas ir pabeigts, tiek noņemti visi brīvdienu dublikāti visos jūsu Outlook kalendāros.
Iegūt vērtīgus Outlook datus
Tas ir neapšaubāms fakts, ka neviena programma nevar garantēt, ka tā var būt imūna pret kļūdām un korupciju. Tas pats attiecas uz Outlook. Tāpēc, lai aizsargātu savus Outlook datus, labāk regulāri veikt datu dublējumus. Turklāt jums iepriekš jāplāno Outlook atkopšanas plāns. Visbeidzot, ir saprātīgi sagatavot cienījamu labošanas rīku, piemēram, DataNumen Outlook Repair. Tas ir spējīgs labot Outlook problēmas īsā laikā un atgūt maksimālos Outlook datus no apdraudētā faila.
Autora ievads:
Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt Sql Server un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar