Wie kann ich Outlook 2010 so einstellen, dass abgesagte Besprechungen automatisch entfernt werden?

10

Outlook 2010 bietet eine einzige Option zum automatischen Akzeptieren von Besprechungsanforderungen und zum Entfernen abgebrochener Besprechungen unter: Datei-> Optionen-> Kalender-> Ressourcenplanung

Bei dieser Option werden Besprechungsanfragen automatisch akzeptiert. Ich will das nicht Ich möchte Folgendes tun:

  • Entfernen Sie abgesagte Besprechungen aus dem Kalender
  • Löschen Abgebrochen: ... Besprechungs-E-Mails aus meinem Posteingang
  • Machen Sie nichts mit Besprechungsanfragen

Ist das möglich?

gehen
quelle
Lesen Sie hier den Microsoft-Artikel. technet.microsoft.com/en-us/library/dd335046(v=exchg.160).aspx (scrollen Sie unter den Beispielen nach unten und öffnen Sie 'Parameter'. Es besteht die Möglichkeit, dass 'RemoveOldMeetingMessages' das tut, was Sie wollen, oder vielleicht eines von den vielen anderen
Aganju

Antworten:

1

Ich habe die Antwort gefunden, indem ich genau nach der Frage gesucht habe, die Sie gestellt haben.

Sie müssen ein Makro mit dem folgenden Quellcode erstellen (Ändern Sie den Namen des Postfachs in Ihren eigenen):

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

Zitat aus der Seite:

Dieses Makro durchsucht einen Ressourcenkalender und löscht Elemente mit dem Betreff "Abgebrochen:". Sie müssen außerdem über die entsprechenden Berechtigungen für das Ressourcenpostfach verfügen, damit dies funktioniert. Dieses Makro entfernt stornierte Besprechungen und entfernt sowohl direkte Buchungen als auch automatisch akzeptierte Besprechungen.

Rechtmäßig faul
quelle