Paano Batch Kanselahin ang Lahat ng Mga Pagpupulong sa Outlook na Nakaiskedyul sa isang Tiyak na Saklaw ng Petsa

Ipamahagi ngayon:

Kung nais mong kanselahin ang lahat ng mga pagpupulong na naka-iskedyul sa isang tukoy na saklaw ng petsa sa iyong Outlook, maaari mong gamitin ang paraan na ipinakilala sa artikulong ito. Maaari kang makatipid mula sa paghahanap at pagkansela nang manu-mano sa mga naturang pagpupulong.

Kung, sa ilang kadahilanan, hindi ka makakapag-ayos o makilahok sa mga pagpupulong na gaganapin sa isang tiyak na saklaw ng petsa sa hinaharap, maaari mong hilingin na kanselahin ang lahat ng naturang pagpupulong. Pangkalahatan, kailangan mo munang malaman ang mga ito at pagkatapos ay kanselahin ang mga ito isa-isa. Ito ay magiging ganap na mahirap. Samakatuwid, sa mga sumusunod, magbabahagi kami sa iyo ng isa pang paraan, na mas maginhawa.

Batch Kanselahin ang Lahat ng Mga Pagpupulong sa Outlook na Nakaiskedyul sa isang Tiyak na Saklaw ng Petsa

Batch Kanselahin ang Lahat ng Mga Pagpupulong na Nakaiskedyul sa isang Tiyak na Saklaw ng Petsa

  1. Sa pinakasimula pa lang, simulan ang iyong programang Outlook.
  2. Pagkatapos, sa Outlook, kailangan mong pindutin ang mga pindutan ng "Alt + F11".
  3. Susunod, makakapasok ka sa window ng "Microsoft Visual Basic for Applications".
  4. Sa window na ito, dapat mong buksan ang isang hindi nagamit na module o maglagay lamang ng bago.
  5. Kasunod, maaari mong kopyahin ang sumusunod na VBA code sa modyul na ito.
Sub BatchCancelAllMeetingsInSpecificDateRange()
    Dim dStartDate As Date
    Dim dEndDate As Date
    Dim objCalendarFolder As Outlook.folder
    Dim objItems As Outlook.Items
    Dim objItemsInDateRange As Outlook.Items
    Dim objAppointment As Outlook.AppointmentItem
    Dim objResponse As Outlook.MeetingItem
 
    'Specify the start date and end date
    dStartDate = InputBox("Enter the start date:", , "10/1/2017")
    dEndDate = InputBox("Enter the end date:", , "10/8/2017")
 
    If dStartDate <> #1/1/4501# And dEndDate <> #1/1/4501# Then
       'Select a calendar folder
       Set objCalendarFolder = Outlook.Application.Session.PickFolder
       Set objItems = objCalendarFolder.Items
       objItems.IncludeRecurrences = True
       objItems.Sort "[Start]"
 
       'Get the appointments in the specific date range
       strFilter = "[Start] >= " & Chr(34) & dStartDate & " 00:00 AM" & Chr(34) & " AND [End] <= " & Chr(34) & dEndDate & " 11:59 PM" & Chr(34)
       Set objItemsInDateRange = objItems.Restrict(strFilter)
 
       objItemsInDateRange.Sort "[Start]"
       For Each objAppointment In objItemsInDateRange
           'Cancel the meetings in this date range
           If objAppointment.MeetingStatus = olMeeting Then
              If objAppointment.Organizer = Outlook.Session.CurrentUser Then
                 objAppointment.MeetingStatus = olMeetingCanceled
                 objAppointment.Save
                 objAppointment.Send
                 objAppointment.Delete
              Else
                 Set objResponse = objAppointment.Respond(olMeetingDeclined)
                 objResponse.Send
                 objAppointment.Delete
              End If
            End If
       Next
    End If
End Sub

VBA Code - Batch Kanselahin ang Lahat ng Mga Pagpupulong na Nakaiskedyul sa isang Tiyak na Saklaw ng Petsa

  1. Sa paglaon, mapapatakbo mo ngayon ang macro na ito.
  • Sa kasalukuyang window ng macro, pindutin ang "F5" key button.
  • Susunod, hihilingin sa iyo na tukuyin ang saklaw ng petsa.Tukuyin ang Saklaw ng Petsa
  • Pagkatapos nito, ipapakita ang isa pang kahon ng dayalogo, na hinihiling sa iyo na mag-opt para sa isang mapagkukunang folder ng kalendaryo at i-click ang "OK".
  • Panghuli, kapag natapos ang macro, maaari mong makita na ang lahat ng mga pagpupulong sa tukoy na saklaw ng petsa ay nakansela.
  • Sa folder na "Mga Naipadala na Item", mahahanap mo ang mga pagkansela sa pagpupulong, tulad ng screenshot sa ibaba:Pagkakansela sa Pagpupulong

Ayusin ang Mga Error sa Outlook

Kung gumamit ka ng Outlook ng mga dekada, dapat nakaranas ka ng maraming mga error. Sa kasamaang palad ang Outlook ay dumating na naka-pack na may isang built-in na tool sa pag-aayos - Scanpst. Maaari mo itong gamitin sa ayusin ang Outlook mga pagkakamali Gayunpaman, kung nabigo ito, ang iyong huling paraan ay ang panlabas na pag-aayos ng mga tool tulad ng DataNumen Outlook RepairKaya nitong i-scan ang Outlook file at ayusin ang karamihan sa mga error, at madali pa ngang maibalik ang sirang data ng Outlook.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang ayusin ang sql at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa

Ipamahagi ngayon:

Mga komento ay sarado.