Outlook 2010'u iptal edilen toplantıları otomatik olarak kaldırması için nasıl ayarlayabilirim

Outlook 2010, toplantı isteklerini otomatik olarak kabul etmek ve aşağıdaki iptal edilen toplantıları kaldırmak için tek bir seçeneğe sahiptir: Dosya- & gt; Seçenekler- & gt; Takvim- & gt; Kaynak planlaması

Bu seçenek altında toplantı istekleri otomatik olarak kabul edilir. Bunu istemiyorum Aşağıdakileri yapmak istiyorum:

İptal edilen toplantıları takvimden kaldırma
Silme İptal edildi: ... gelen kutumdan toplantı e-postaları
Toplantı istekleriyle hiçbir şey yapma

Mümkün mü?

microsoft-outlook-2010 calendar

— going
kaynak

Microsoft makalesini buradan inceleyin; technet.microsoft.com/en-us/library/dd335046(v=exchg.160).aspx (Örneklerin alt kısmında ilerleyin ve 'Parametreler'i açın.' RemoveOldMeetingMessages 'in istediğinizi veya belki de diğerlerinden birisini yapma şansı var.

— Aganju

ben cevabı buldum sorduğun soruyu arayarak.

Aşağıdaki kaynak kodla bir makro oluşturmanız gerekecektir (Posta kutusunun adını kendiniz için değiştirin):

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

Sayfadan Alıntı:

Bu makro bir kaynak takviminde arama yapar ve konudaki "İptal edildi:" olan öğeleri siler. Bunun çalışması için kaynak posta kutusunda uygun izinlere de sahip olmalısınız. Bu makro iptal edilen toplantıları kaldıracak hem doğrudan rezervasyon hem de otomatik olarak kabul edilen toplantıları kaldıracak.

— Lawful Lazy
kaynak