ฉันจะตั้งค่า Outlook 2010 ให้ลบการประชุมที่ถูกยกเลิกโดยอัตโนมัติได้อย่างไร


10

Outlook 2010 มีตัวเลือกเดียวสำหรับการรับคำขอประชุมโดยอัตโนมัติและลบการประชุมที่ถูกยกเลิกภายใต้: ไฟล์ -> ตัวเลือก -> ปฏิทิน -> การกำหนดเวลาทรัพยากร

ภายใต้ตัวเลือกการร้องขอการประชุมนี้จะได้รับการยอมรับโดยอัตโนมัติ ฉันไม่ต้องการสิ่งนี้ ฉันต้องการทำสิ่งต่อไปนี้:

  • ลบการประชุมที่ถูกยกเลิกออกจากปฏิทิน
  • ลบยกเลิก: ... พบอีเมลจากกล่องจดหมายเข้าของฉัน
  • อย่าทำอะไรกับการร้องขอการประชุม

เป็นไปได้ไหม


ตรวจสอบบทความของ Microsoft ที่นี่; technet.microsoft.com/en-us/library/dd335046(v=exchg.160).aspx (เลื่อนลงไปด้านล่างตัวอย่างและเปิด 'พารามิเตอร์' มีโอกาสที่ 'RemoveOldMeetingMessages' อาจเป็นสิ่งที่คุณต้องการ จากคนอื่น ๆ อีกมากมาย
แกนจู

คำตอบ:


1

ฉันพบคำตอบโดยค้นหาคำถามที่คุณถาม

คุณจะต้องสร้างแมโครด้วยซอร์สโค้ดต่อไปนี้ (เปลี่ยนชื่อของกล่องจดหมายเป็นของคุณเอง):

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

อ้างอิงจากหน้า:

มาโครนี้จะค้นหาในปฏิทินทรัพยากรและลบรายการด้วย "ยกเลิก:" ในหัวเรื่อง คุณต้องมีสิทธิ์ที่เหมาะสมในกล่องจดหมายของทรัพยากรเพื่อให้สามารถทำงาน มาโครนี้จะลบการประชุมที่ถูกยกเลิกจะลบทั้งการจองโดยตรงและการประชุมที่ยอมรับอัตโนมัติ

โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.