Outlook-тағы тағайындаудың демалыс күндері туралы еске салғыштарды қалай тез жоюға болады

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Outlook күнтізбесінде қайталанатын кездесуді жоспарлағаннан кейін, демалыс күндері болатын оқиғалар туралы ескертулерді жойғыңыз келсе, осы мақалада енгізілген әдісті қолдануға болады.

Outlook күнтізбесінде қайталанатын кездесулер бар ма? Мысалы, сіз 4 күн сайын қайталанатын кездесуді жоспарладыңыз. Бұл жағдайда бұл кездесудің кейбір жағдайлары демалыс күндеріне сәйкес келеді. Осы уақытта осы демалыс күндері болатын еске салулар сіз үшін пайдасыз болуы мүмкін. Сондықтан олардың еске салғыштарын жойғыңыз келеді. Осы талапқа назар аудара отырып, біз мұнда тиімді және ыңғайлы тәсілді енгіземіз.

Outlook-тағы тағайындаудың демалыс күндері туралы ескертулерін тез алып тастаңыз

Демалыс күндері қайталанатын кездесу туралы ескертулерді алып тастаңыз

  1. Ең басында Outlook қосымшасын іске қосыңыз.
  2. Содан кейін «Alt + F11» пернелері арқылы Outlook VBA редакторына жүгініңіз.
  3. Келесі, VBA кодын жобаға немесе модульге салыңыз.
Sub RemoveRemindersOfWeekendOccurrencesOfRecurringAppointments()
    Dim objAppointment As Outlook.AppointmentItem
    Dim objCalendar As Outlook.Folder
    Dim objCalendarItems As Outlook.Items
    Dim objRecurrencePattern As RecurrencePattern
    Dim dStartDate, dEndDate As Date
    Dim dCurrentDate, dActualTime As Date
    Dim strFilter As String
    Dim objFoundAppointment As Outlook.AppointmentItem
    Dim objOccurrence As Outlook.AppointmentItem
   
    Set objAppointment = Application.ActiveExplorer.Selection.Item(1)
 
    Set objCalendar = Application.Session.GetDefaultFolder(olFolderCalendar)
    Set objCalendarItems = objCalendar.Items
    objCalendarItems.Sort "[Start]", False
    objCalendarItems.IncludeRecurrences = True
 
    Set objRecurrencePattern = objAppointment.GetRecurrencePattern
    dStartDate = Format(objRecurrencePattern.PatternStartDate, "MM/DD/YYYY")
    dEndDate = Format(objRecurrencePattern.PatternEndDate, "MM/DD/YYYY")
   
    dCurrentDate = dStartDate
    Do Until dCurrentDate >= dEndDate
       If Weekday(dCurrentDate) = vbSaturday Or Weekday(dCurrentDate) = vbSunday Then
          dActualTime = dCurrentDate & " " & objRecurrencePattern.StartTime
          dActualTime = Format(dActualTime, "ddddd hh:mm:ss AMPM")
 
          strFilter = "[Start] <= " & Chr(34) & dCurrentDate & " 11:59 PM" & Chr(34) & " AND [End] > " & Chr(34) & dCurrentDate & " 00:00 AM" & Chr(34) & " AND [Subject] = " & Chr(34) & objAppointment.Subject & Chr(34)
          Set objFoundAppointment = objCalendarItems.Find(strFilter)
 
          If Not objFoundAppointment Is Nothing Then
             'Get the occurrence on weekends
             Set objOccurrence = objRecurrencePattern.GetOccurrence(dActualTime)
 
             'Remove the reminders
             With objOccurrence
                 .Subject = "(C)" & objAppointment.Subject
                 .ReminderSet = False
                 .Save
             End With
           End If
       End If
       dCurrentDate = DateAdd("d", 1, dCurrentDate)
    Loop
End Sub

VBA коды - Демалыс күндері қайталанатын кездесу туралы еске салғыштарды алып тастаңыз

  1. Осыдан кейін сіз терезені жаба аласыз.
  2. Содан кейін «мақалада көрсетілген қадамдарды орындаңыз.Outlook бағдарламасында VBA кодын қалай іске қосуға болады«Осы макросты жылдам қол жеткізу құралдар тақтасына қосу үшін.
  3. Ақыр соңында, осы макросты қазір іске қосыңыз.
  • Біріншіден, қайталанатын кездесудің бірін таңдаңыз.
  • Әрі қарай, жылдам қол жеткізу құралдар тақтасындағы макро батырманы басыңыз.Макросты таңдалған кездесуде іске қосыңыз
  • Макро аяқталғаннан кейін демалыс күндеріне жоспарланған оқиғалар туралы ескертулер жойылады. Сондай-ақ, тақырыптар келесі скриншот сияқты код негізінде өзгертіледі:Еске салғыштар жойылды

Сыбайлас жемқорлықтан қорғаныс

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

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

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

Қазір бөлісу:

Пікірлер жабылды.