আপনি যে সঠিক প্রশ্নটি জিজ্ঞাসা করেছিলেন তা অনুসন্ধান করে আমি উত্তরটি পেয়েছি ।
আপনাকে নিম্নলিখিত উত্স কোড সহ একটি ম্যাক্রো তৈরি করতে হবে (মেলবক্সের নামটি আপনার নিজের মধ্যে পরিবর্তন করুন):
Set olResCalendar = OpenMAPIFolder("\MailboxName\Calendar")
Sub RemoveCanceledAppointments()
Dim olResCalendar As Outlook.MAPIFolder, olApptItem As Outlook.AppointmentItem, intCounter As Integer
'Change the path to the resource calendar on the next line
Set olResCalendar = OpenMAPIFolder("\MailboxName\Calendar")
For intCounter = olResCalendar.Items.Count To 1 Step -1
Set olApptItem = olResCalendar.Items(intCounter)
If Left(olApptItem.Subject, 9) = "Canceled:" Then
olApptItem.Delete
End If
Next
Set olApptItem = Nothing
Set olResCalendar = Nothing
End Sub
Function OpenMAPIFolder(szPath)
Dim app, ns, flr, szDir, i
Set flr = Nothing
Set app = CreateObject("Outlook.Application")
If Left(szPath, Len("\")) = "\" Then
szPath = Mid(szPath, Len("\") + 1)
Else
Set flr = app.ActiveExplorer.CurrentFolder
End If
While szPath <> ""
i = InStr(szPath, "\")
If i Then
szDir = Left(szPath, i - 1)
szPath = Mid(szPath, i + Len("\"))
Else
szDir = szPath
szPath = ""
End If
If IsNothing(flr) Then
Set ns = app.GetNamespace("MAPI")
Set flr = ns.Folders(szDir)
Else
Set flr = flr.Folders(szDir)
End If
Wend
Set OpenMAPIFolder = flr
End Function
Function IsNothing(Obj)
If TypeName(Obj) = "Nothing" Then
IsNothing = True
Else
IsNothing = False
End If
End Function
পৃষ্ঠাটি থেকে উদ্ধৃতি:
এই ম্যাক্রো একটি রিসোর্স ক্যালেন্ডারের মাধ্যমে অনুসন্ধান করবে এবং বিষয়টিতে "বাতিল:" সহ আইটেমগুলি মুছবে। এটি কাজ করার জন্য আপনার অবশ্যই সংস্থান মেলবক্সে যথাযথ অনুমতি থাকতে হবে। এই ম্যাক্রো বাতিল সভাগুলি সরিয়ে দেবে প্রত্যক্ষ বুকিং এবং স্বয়ংক্রিয় গ্রহণযোগ্য মিটিং উভয়ই সরিয়ে ফেলবে।