Làm cách nào tôi có thể đặt Outlook 2010 để tự động xóa các cuộc họp đã hủy

Outlook 2010 có một tùy chọn duy nhất để tự động chấp nhận yêu cầu họp và xóa các cuộc họp bị hủy trong: Tệp-> Tùy chọn-> Lịch-> Lập lịch tài nguyên

Theo tùy chọn cuộc họp yêu cầu này được tự động chấp nhận. Tôi không muốn điều này. Tôi muốn làm như sau:

• Xóa các cuộc họp đã hủy khỏi lịch
• Xóa Đã hủy: ... email cuộc họp từ Hộp thư đến của tôi
• Đừng làm bất cứ điều gì với yêu cầu gặp mặt

Điều này có thể không?

Tôi tìm thấy câu trả lời bằng cách tìm kiếm chính xác câu hỏi bạn đang hỏi.

Bạn sẽ phải tạo một macro với mã nguồn sau (Thay đổi tên hộp thư thành của riêng bạn):

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

Trích dẫn từ Trang:

Macro này sẽ tìm kiếm thông qua lịch tài nguyên và xóa các mục có "Đã hủy:" trong chủ đề. Bạn cũng phải có quyền thích hợp trên hộp thư tài nguyên để làm việc này. Macro này sẽ xóa các cuộc họp bị hủy sẽ xóa cả cuộc họp đặt phòng trực tiếp và cuộc họp tự động.