Outlook бағдарламасында белгілі бір күндер ауқымында жоспарланған барлық кездесулерден бас тартқыңыз келсе, осы мақалада келтірілген құралдарды пайдалана аласыз. Ол сізді осындай жиналыстарды қолмен іздеуден және болдырмаудан сақтайды.
Егер қандай да бір себептермен сіз белгілі бір болашақ күн диапазонында өтетін жиналыстарды ұйымдастыра алмасаңыз немесе оған қатыса алмасаңыз, мұндай кездесулердің барлығын тоқтатқыңыз келуі мүмкін. Жалпы, алдымен оларды біліп, содан кейін бірінен соң бірін жою керек. Бұл өте қиын болады. Сондықтан, келесіде біз сізге әлдеқайда ыңғайлы басқа жолды бөлісеміз.
Белгілі бір күн диапазонында жоспарланған барлық жиналыстардан бас тарту
- Ең басында Outlook бағдарламаңызды іске қосыңыз.
- Содан кейін Outlook бағдарламасында «Alt + F11» пернелерін басу керек.
- Содан кейін сіз «Қолданбаларға арналған Microsoft Visual Basic» терезесіне кіресіз.
- Бұл терезеде пайдаланылмаған модульді ашу керек немесе жай ғана жаңасын енгізу керек.
- Кейіннен келесі модульге келесі VBA кодын көшіруге болады.
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
- Ақыр соңында, сіз дәл қазір бұл макросты іске қоса аласыз.
- Ағымдағы макрос терезесінде «F5» пернесін басыңыз.
- Әрі қарай, сізден күндер ауқымын көрсету талап етіледі.
- Осыдан кейін бастапқы күнтізбе қалтасын таңдауды талап ететін басқа диалогтық терезе көрсетіледі және «OK» түймесін басыңыз.
- Соңында, макрос аяқталған кезде, сіз белгілі бір күндер ауқымындағы барлық жиналыстардың тоқтатылғанын көре аласыз.
- «Жіберілген элементтер» қалтасында төмендегі скриншот сияқты жиналыстан бас тартуды таба аласыз:
Outlook қателерін түзетіңіз
Outlook бағдарламасын ондаған жылдар бойы пайдалансаңыз, бірнеше қателерге тап болуыңыз керек. Бақытымызға орай, Outlook кірістірілген жөндеу құралымен жабдықталған - Scanpst. Сіз оны пайдалана аласыз Outlook бағдарламасын түзетіңіз қателер. Дегенмен, егер ол сәтсіз болса, сіздің соңғы шараңыз сыртқы түзету құралдары сияқты DataNumen Outlook RepairОл Outlook файлын сканерлеп, көптеген қателерді түзете алады, тіпті зақымдалған Outlook деректерін оңай қалпына келтіре алады.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. sql түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com