Топтаманың 2 тәсілі Outlook бағдарламасындағы барлық тегін немесе болжалды күнтізбе элементтерінен еске салғыштарды жою

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

Мүмкін сіз барлық күнтізбе элементтері үшін әдепкі еске салу уақытын конфигурациялаған боларсыз. Бұл жағдайда бос емес, кеңседе жоқ, тегін немесе болжалды заттарға қарамастан, олар әрдайым еске салғышты қосады. Алайда, әдетте, ақысыз және болжамды заттар еске салуды қажет етпейді. Демек, сіз осындай элементтерден еске салғыштарды алып тастағыңыз келеді. Сонымен, міне, біз сізге мұны іске асырудың екі әдісін үйретеміз.

1-әдіс: Бір күнтізбеде буманы қолмен жою

1. Алдымен күнтізбені ашыңыз.
2. Содан кейін «Көру» қойындысына ауысып, «Көріністі өзгерту»> «Тізім» батырмасын басыңыз.
3. Содан кейін «Параметрлерді қарау» батырмасын басыңыз.
4. Қалқымалы диалог терезесінде «Топтастыру» батырмасын басыңыз.
5. Осыдан кейін тағы бір жаңа диалог терезесінде «Топтау элементтері» ішінен «Еске салғышты» таңдап, «ОК» батырмасын басыңыз.
6. Кейінірек «Бағандар» батырмасын басыңыз.
7. «Бағандарды көрсету» диалогтық терезесінде «Уақытты қалай көрсету керек» бағанын қосып, «ОК» батырмасын басыңыз.
8. Кейіннен көру параметрлерін сақтау үшін «OK» батырмасын басыңыз.
9. Күнтізбе элементтерінің тізімінен «Еске салғыш: Иә» тобындағы барлық еркін / болжалды заттарды тауып таңдаңыз.
10. Соңында оларды «Еске салғыш: Жоқ» тобына апарып тастаңыз.

2-әдіс: VBA-мен барлық күнтізбелерде пакеттік жою

1. Бірінші кезекте VBA редакторын қосу үшін «Alt + F11» пернелерін басыңыз.
2. Содан кейін төмендегі VBA кодын модульге көшіріңіз.

Sub RemoveReminders_TentativeCalendarItems()
    Dim objStore As Outlook.Store
    Dim objFolder As Outlook.Folder
 
    For Each objStore In Application.Session.Stores
        'Process all Calendar folders
        For Each objFolder In objStore.GetRootFolder.Folders
            If objFolder.DefaultItemType = olAppointmentItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCalendar As Outlook.Folder)
    Dim i As Long
    Dim objAppointment As Outlook.AppointmentItem
    Dim objSubCalendar As Outlook.Folder
 
    'Remove Reminders from Free/Tentative Calendar Items
    For i = objCalendar.Items.Count To 1 Step -1
        Set objAppointment = objCalendar.Items(i)
        If objAppointment.BusyStatus = olFree Or objAppointment.BusyStatus = olTentative Then
           If objAppointment.ReminderSet = True Then
              objAppointment.ReminderSet = False
              objAppointment.Save
           End If
        End If
    Next
 
    'Process Subfolders Recursively
    If objCalendar.Folders.Count > 0 Then
       For Each objSubCalendar In objCalendar.Folders
           Call ProcessFolders(objSubCalendar)
       Next
    End If
End Sub

3. Содан кейін курсорды бірінші ішкі бағдарламаға жылжытыңыз.
4. Соңында «F5» пернесін басыңыз.
5. Бірден, күнтізбелік ақысыз немесе болжалды элементтер туралы барлық ескертулер жойылады.

Outlook алаңдаушылығымен күресу

Outlook бағдарламасында PST файлын зақымдау, вирусты жұқтыру, элементті кездейсоқ жою және т.с.с. сияқты әр түрлі проблемалар жиі кездеседі, оларды уақтылы және тиімді шешу үшін сенімділікті сақтаған жөн. PST жөндеу сияқты құрал DataNumen Outlook Repair. Бұл сізді тітіркендіргіш Outlook деректерін жоғалтудан құтқара алады.

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

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