Дахин төлөвлөсөн томилолтын амралтын өдрүүдэд тохиолдсон тохиолдлуудын талаархи санамжийг хэрхэн хурдан арилгах вэ?

Та Outlook календартаа давтагдах уулзалтыг товлосны дараа амралтын өдрүүдэд тохиолдох үзэгдлийн санамжийг арилгахыг хүсвэл энэ нийтлэлд оруулсан аргыг ашиглаж болно.

Таны Outlook хуанли дээр давтагдах уулзалтууд байна уу? Жишээлбэл, та 4 хоног тутамд давтагдах уулзалтыг товлосон болно. Энэ тохиолдолд энэ томилгооны зарим тохиолдол амралтын өдрүүдэд тохиолдох болно. Энэ үед эдгээр амралтын өдрүүдэд тохиолдсон явдлыг сануулах нь танд ашиггүй байж магадгүй юм. Тиймээс та тэдний сануулгыг арилгахыг хүсч байна. Энэхүү шаардлагад анхаарлаа төвлөрүүлснээр бид үр дүнтэй, тохиромжтой аргыг танилцуулах болно.

Дахин томилогдох долоо хоногийн амралтын өдрүүдэд тохиолдсон тохиолдлуудын талаархи санамжуудыг устгана уу

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

4. Үүний дараа та цонхыг хааж болно.
5. Дараа нь “Өгүүлэлд үзүүлсэн алхмуудыг дагана уу.Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ"Энэ макрог Quick Access Toolbar дээр нэмэх.
6. Эцэст нь энэ макро одоо ажиллуулаарай.

• Эхлээд давтагдах уулзалтын нэг тохиолдлыг сонгоно уу.
• Дараа нь Quick Access Toolbar дээрх макро товчийг дарна уу.
• Макро дууссаны дараа амралтын өдрүүдэд төлөвлөсөн тохиолдлуудын санамжийг арилгах болно. Мөн сэдвүүдийг дараахь дэлгэцийн агшин шиг кодын үндсэн дээр өөрчлөх болно.

Төлөвлөгөөг авлигаас хамгаалах

Word баримт бичиг, Excel-ийн ажлын хуудас гэх мэт бусад нийтлэг файлуудын нэгэн адил Outlook мэдээллийн файл эмзэг байдаг. Ингэснээр та Outlook-ийн авлигад өртөх магадлалыг бууруулахын тулд зарим хүчтэй арга хэмжээ авах хэрэгтэй. Жишээлбэл, та PST өгөгдлийг тогтмол нөөцлөх хэрэгтэй. Үүнээс гадна өгөгдөл алдахаас урьдчилан сэргийлэхийн тулд Outlook засварын хэрэгслийг ойролцоо байлгах хэрэгтэй DataNumen Outlook Repair. Энэ нь боломжтой Outlook програмыг засах бэрхшээлгүй, хялбар.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql авлига програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com