취소 된 모임을 자동으로 제거하도록 Outlook 2010을 설정하는 방법

Outlook 2010에는 모임 요청을 자동 수락하고 취소 된 모임을 제거하는 단일 옵션이 있습니다. 파일-> 옵션-> 달력-> 자원 예약

이 옵션에서는 회의 요청이 자동으로 수락됩니다. 나는 이것을 원하지 않습니다. 나는 다음을하고 싶다 :

• 캘린더에서 취소 된 미팅 제거
• 삭제 취소 : ...받은 편지함에서 회의 이메일
• 모임 요청으로 아무 것도하지 마십시오

이게 가능해?

나는 당신이 묻는 정확한 질문을 검색 하여 답 을 찾았습니다 .

다음 소스 코드를 사용하여 매크로를 만들어야합니다 (사서함 이름을 원하는대로 변경).

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

페이지에서 인용 :

이 매크로는 자원 달력을 검색하고 제목에 "Canceled :"가있는 항목을 삭제합니다. 이 작업을 수행하려면 리소스 사서함에 대한 적절한 권한이 있어야합니다. 이 매크로는 취소 된 회의를 제거하고 직접 예약 및 자동 수락 된 회의를 모두 제거합니다.