Bagaimana saya dapat mengatur Outlook 2010 untuk secara otomatis menghapus rapat yang dibatalkan

10

Outlook 2010 memiliki satu opsi untuk menerima permintaan rapat secara otomatis dan menghapus rapat yang dibatalkan di bawah: File-> Opsi-> Kalender-> Penjadwalan sumber daya

Di bawah opsi ini, permintaan rapat diterima secara otomatis. Saya tidak menginginkan ini. Saya ingin melakukan hal berikut:

  • Hapus rapat yang dibatalkan dari kalender
  • Hapus Dibatalkan: ... rapat email dari Kotak Masuk saya
  • Jangan melakukan apa pun dengan permintaan rapat

Apakah ini mungkin?

pergi
sumber
Periksa artikel Microsoft di sini; technet.microsoft.com/en-us/library/dd335046(v=exchg.160).aspx (gulir ke bawah contoh dan buka 'Parameter'. Ada kemungkinan bahwa 'RemoveOldMeetingMessages' melakukan apa yang Anda inginkan, atau mungkin satu dari banyak lainnya
Aganju

Jawaban:

1

Saya menemukan jawabannya dengan mencari pertanyaan yang tepat yang Anda tanyakan.

Anda harus membuat makro dengan kode sumber berikut (Ubah nama kotak surat Anda sendiri):

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

Kutipan dari Halaman:

Makro ini akan mencari melalui kalender sumber daya dan menghapus item dengan "Dibatalkan:" di subjek. Anda juga harus memiliki izin yang tepat di kotak surat sumber daya agar ini berfungsi. Makro ini akan menghapus pertemuan yang dibatalkan akan menghapus baik pemesanan langsung maupun rapat yang diterima otomatis.

Malas halal
sumber