2 Outlook kalendaringizdagi ikki nusxadagi bayramlarni tezda olib tashlash vositalari

Agar siz bir xil bayramlarni bir taqvimga tasodifan ikki yoki undan ortiq marta qo'shsangiz, taqvim ikki nusxadagi bayramlar bilan to'ldirilganligini bilib olasiz. Ushbu stsenariyda siz dublikatlarni olib tashlashni xohlashingiz kerak. Endi ushbu maqola sizga ikkita vositani o'rgatadi.

Outlook standart taqvimga bayramlarni tezda qo'shish uchun o'rnatilgan xususiyatga ega. Bu, shubhasiz, foydalanuvchilar uchun juda qulay. Biroq, agar siz bayramlarni ikki yoki undan ko'p marta noto'g'ri qo'shsangiz, standart kalendaringiz ikki nusxadagi bayramlar bilan to'ldiriladi. Endi, quyida biz sizga dublikatlarni tezda olib tashlashning 2 ta yondashuvini taqdim etamiz.

1-usul: Barcha bayramlarni olib tashlang va ularni yana qo'shing

1. Boshlash uchun Outlook dasturingizni ishga tushiring.
2. Keyin manba Kalendar jildiga kiring.
3. Keyin "Ko'rish" yorlig'iga o'ting va "Ko'rinishni o'zgartirish" > "Ro'yxat" ni tanlang.
4. Shundan so'ng, siz "Tartibga solish" guruhidagi "Kategoriyalar" tugmasini bosishingiz kerak.
5. Keyinchalik, barcha uchrashuvlar toifalar bo'yicha guruhlanganligini ko'rasiz.
6. Endi siz "Bayram" guruhini bilib olishingiz mumkin.
7. Nihoyat, "Bayram" guruhi sarlavhasini bosing va keyin "O'chirish" tugmasini bosing.
8. Bir vaqtning o'zida barcha mavjud bayramlar olib tashlandi.
9. Ularni o'chirib tashlaganingizdan so'ng, bayramni qayta qo'shishingiz mumkin. Birinchidan, "Fayl" > Variantlar-ga o'ting.
10. Qalqib chiquvchi "Outlook Options" oynasida siz "Taqvim" yorlig'iga o'tishingiz mumkin.
11. Ushbu yorliq ostida siz "Bayramlarni qo'shish" tugmachasini topishingiz mumkin.
12. Keyin, yangi dialog oynasida "Amerika Qo'shma Shtatlari" kabi joyni tanlang va "OK" tugmasini bosing.
13. Oxir-oqibat, bayramlar yana standart kalendarga import qilindi.

2-usul: VBA bilan ikki nusxadagi bayramlarni olib tashlang

1. Eng boshida "Alt + F11" tugmachalarini bosing.
2. Keyinchalik, foydalanilmagan modulni ochishingiz mumkin bo'lgan Outlook VBA muharriri oynasiga kirasiz.
3. Keyinchalik, ushbu modulga quyidagi VBA kodini nusxalang.

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. Oxir-oqibat, siz ushbu makroni sinab ko'rishingiz mumkin.

• "RemoveDuplicateHolidays" kichik dasturini bosing.
• Keyin uni ishga tushirish uchun F5 tugmachasini bosing.
• U tugallangandan so'ng, barcha Outlook kalendarlaringizdagi barcha takroriy bayramlar o'chiriladi.

Qimmatli Outlook ma'lumotlarini oling

Hech bir dastur xato va korruptsiyadan himoyalanishiga kafolat bera olmasligi shubhasiz haqiqatdir. Xuddi shu narsa Outlook uchun ham amal qiladi. Shuning uchun, Outlook ma'lumotlaringizni himoya qilish uchun muntazam ravishda ma'lumotlarning zaxira nusxalarini yaratishingiz kerak edi. Bundan tashqari, Outlookni tiklash rejasini oldindan rejalashtirishingiz kerak. Va nihoyat, eng muhimi, obro'li tuzatish vositasini tayyorlash oqilona DataNumen Outlook Repair. Qodir Outlook-ni ta'mirlash bir zumda muammolarni hal qiling va buzilgan fayldan maksimal Outlook ma'lumotlarini oling.

Muallif kirish:

Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc tiklash Sql Server va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com