2 Outlook Təqviminizdə Dublikat Tətilləri Tez Silmək üçün Vasitə

Eyni bayramları təsadüfən eyni təqvimə iki və ya daha çox dəfə əlavə etsəniz, təqvimin dublikat bayramlarla dolu olduğunu görəcəksiniz. Bu ssenaridə dublikatları silmək istəməlisiniz. İndi bu məqalə sizə 2 vasitə öyrədəcək.

Outlook-un defolt təqvimə tətilləri tez əlavə etmək üçün daxili xüsusiyyəti var. Bu, şübhəsiz ki, istifadəçilər üçün olduqca əlverişlidir. Lakin, səhvən bayram günlərini iki və ya daha çox dəfə əlavə etsəniz, defolt təqviminiz dublikat bayramlarla doldurulacaq. İndi, aşağıda, biz sizə dublikatları sürətli silmək üçün 2 yanaşma təqdim edəcəyik.

Metod 1: Bütün bayramları silin və yenidən əlavə edin

1. Başlamaq üçün Outlook proqramınızı işə salın.
2. Sonra mənbə Təqvim qovluğuna daxil olun.
3. Sonra "Görünüş" sekmesine keçin və "Görünüşü dəyişdir" > "Siyahı" seçin.
4. Bundan sonra, "Aranjman" qrupunda "Kateqoriyalar" düyməsini sıxmalısınız.
5. Sonra, bütün təyinatların kateqoriyalara görə qruplaşdırıldığını görəcəksiniz.
6. İndi "Bayram" qrupunu tapa bilərsiniz.
7. Nəhayət, "Bayram" qrupunun başlığına klikləyin və sonra "Sil" düyməsini basın.
8. Bir anda bütün mövcud bayramlar silindi.
9. Onları sildikdən sonra bayramı yenidən əlavə edə bilərsiniz. Əvvəlcə “Fayl” > Seçimlər”ə keçin.
10. Açılan "Outlook Seçimləri" pəncərəsində "Təqvim" sekmesine keçə bilərsiniz.
11. Bu tabın altında siz "Bayram əlavə et" düyməsini tapa biləcəksiniz.
12. Sonra, yeni dialoq qutusunda "Amerika Birləşmiş Ştatları" kimi bir yer seçin və "OK" düyməsini basın.
13. Nəhayət, bayramlar yenidən standart Təqvimə idxal edildi.

Metod 2: Dublikat tətilləri VBA ilə silin

1. Ən başlanğıcda "Alt + F11" düymələrini basın.
2. Sonra, istifadə olunmamış modulu aça biləcəyiniz Outlook VBA redaktoru pəncərəsinə daxil olacaqsınız.
3. Sonradan aşağıdakı VBA kodunu bu modula köçürün.

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əhayət, bu makronu sınaya bilərsiniz.

• "RemoveDuplicateHolidays" alt proqramına klikləyin.
• Sonra onu işə salmaq üçün F5 düyməsini sıxın.
• Tamamlandıqdan sonra, bütün Outlook təqvimlərinizdəki bütün dublikat bayramlar silinir.

Dəyərli Outlook məlumatlarını əldə edin

Şübhəsiz ki, heç bir proqram onun səhvlərdən və korrupsiyadan qorunacağına zəmanət verə bilməz. Eyni şey Outlook üçün də keçərlidir. Buna görə də, Outlook məlumatlarınızı qorumaq üçün müntəzəm məlumatların ehtiyat nüsxəsini çıxartmağınız daha yaxşıdır. Bundan əlavə, əvvəlcədən Outlook bərpa planını planlaşdırmalısınız. Nəhayət, ən azı, məsələn, etibarlı bir düzəliş vasitəsi hazırlamaq ehtiyatlıdır DataNumen Outlook Repair. Bacarır Outlook-u təmir edin bir anda problemlər yaradın və təhlükəyə məruz qalmış fayldan maksimum Outlook məlumatlarını geri alın.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc bərpa edin Sql Server və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com