2 Outlook күнтізбесінде қайталанатын мерекелерді жылдам жоюға арналған құралдар

Егер сіз бірдей күнтізбелерді бір күнтізбеге кездейсоқ түрде екі немесе одан да көп рет қоссаңыз, онда сіз күнтізбенің қайталанатын мерекелермен толтырылғанын көресіз. Бұл сценарийде сіз телнұсқаларды алып тастауды қалауыңыз керек. Енді, бұл мақала сізге 2 құрал үйретеді.

Outlook бағдарламасында демалыс күндерін әдепкі күнтізбеге жылдам қосу үшін кіріктірілген мүмкіндігі бар. Бұл пайдаланушылар үшін сөзсіз өте ыңғайлы. Алайда, сіз мейрамдарды екі рет немесе одан да көп рет қателесіп қоссаңыз, әдепкі күнтізбеңіз қайталанатын мерекелермен толтырылады. Енді, төменде біз сізге телнұсқаларды тез жоюдың 2 тәсілін ұсынамыз.

1-әдіс: Барлық мерекелерді алып тастаңыз және оларды қайтадан қосыңыз

1. Бастау үшін Outlook бағдарламаңызды іске қосыңыз.
2. Содан кейін бастапқы күнтізбе қалтасына кіріңіз.
3. «Көру» қойындысына өтіп, «Көріністі өзгерту»> «Тізім» тармағын таңдаңыз.
4. Осыдан кейін сіз «Реттеу» тобындағы «Санаттар» батырмасын басуыңыз керек.
5. Әрі қарай, барлық тағайындаулар санаттар бойынша топтастырылғанын көресіз.
6. Енді сіз «Мереке» тобын біле аласыз.
7. Соңында «Демалыс» тобының тақырыбын басыңыз, содан кейін «Жою» пернесін басыңыз.
8. Бірден барлық қолданыстағы мерекелер алынып тасталды.
9. Оларды жойғаннан кейін демалысты қайта қосуға болады. Біріншіден, «Файл»> Параметрлер »тармағына өтіңіз.
10. Қалқымалы «Outlook параметрлері» терезесінде сіз «Күнтізбе» қойындысына ауыса аласыз.
11. Осы қойындының астында сіз «Демалыс қосу» батырмасын таба аласыз.
12. Содан кейін, жаңа диалогтық терезеде «Америка Құрама Штаттары» сияқты орынды таңдап, «OK» түймесін басыңыз.
13. Сайып келгенде, мерекелер қайтадан әдепкі күнтізбеге импортталды.

2-әдіс: VBA көмегімен қайталанатын мерекелерді алып тастаңыз

1. Ең басында «Alt + F11» батырмаларын басыңыз.
2. Одан кейін сіз пайдаланылмаған модульді аша алатын Outlook VBA редакторы терезесіне кіресіз.
3. Осы модульге келесі VBA кодын көшіріңіз.

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. Сайып келгенде, сіз осы макросты көре аласыз.

• «RemoveDuplicateHolidays» ішкі бағдарламасын нұқыңыз.
• Содан кейін оны іске қосу үшін F5 батырмасын басыңыз.
• Ол аяқталғаннан кейін барлық Outlook күнтізбелеріндегі барлық қайталанатын мерекелер жойылады.

Бағалы Outlook деректерін шығарып алыңыз

Ешқандай бағдарлама оның қателіктерден және сыбайлас жемқорлықтан қорғануға болатындығына кепілдік бере алмайтыны сөзсіз. Outlook үшін де дәл солай. Сондықтан, Outlook деректерін қорғау үшін сіз жүйелі түрде деректердің сақтық көшірмелерін жасап отырғаныңыз жөн. Сонымен қатар, сіз Outlook бағдарламасын қалпына келтіру жоспарын алдын-ала жоспарлауыңыз керек. Соңғысы, әйгілі, мысалы, беделді түзету құралын дайындау өте орынды DataNumen Outlook Repair. Бұл қабілетті Outlook бағдарламасын жөндеу тез арада шығарады және бүлінген файлдан Outlook максималды деректерін алады.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. қалпына келтіру Sql Server және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com