[英]Creating outlook item with custom Message Class IPM.CustomClass
[英]Create IPM.OLE.CLASS Exception item in Outlook
我需要在 Outlook 中創建一個異常 IPM.OLE.CLASS 項所以需要刪除或更改重復約會的一個約會實例也許我做不正確,都有 IPM。注意 class:( 如何制作?
在 Outlook 中創建了一個定期約會並刪除了其中的一個條目,無法獲取 IPM.OLE.CLASS
IPM.OLE.CLASS
class 對應於循環系列的異常項。 在 Outlook 中沒有一種從頭開始創建此類項目的簡單方法。您可以為新創建的和未保存的項目設置消息 class。 此外,您需要將項目與定期約會相關聯。
在 Outlook 中創建了一個定期約會並刪除了其中的一個條目,無法獲取 IPM.OLE.CLASS
您可以更改特定條目的時間並保存它,而不是刪除條目。 原始草圖:
Set myRecurrPatt = myApptItem.GetRecurrencePattern
myRecurrPatt.RecurrenceType = olRecursDaily
myRecurrPatt.PatternStartDate = #2/2/2023#
myRecurrPatt.PatternEndDate = #2/2/2024#
myApptItem.Save
'Access the items in the Calendar folder to locate
'the master AppointmentItem for the new series.
Set myNamespace = Application.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderCalendar)
Set myItems = myFolder.Items
Set myApptItem = myItems("Meet with Boss")
'Get the recurrence pattern for this appointment
'and obtain the occurrence for 3/12/23.
myDate = #3/12/2023 3:00:00 PM#
Set myRecurrPatt = myApptItem.GetRecurrencePattern
Set myOddApptItem = myRecurrPatt.GetOccurrence(myDate)
'Save the existing subject. Change the subject and
'starting time for this particular appointment and save it.
saveSubject = myOddApptItem.Subject
myOddApptItem.Subject = "Meet NEW Boss"
newDate = #3/12/2023 3:30:00 PM#
myOddApptItem.Start = newDate
myOddApptItem.Save
'Release references to the appointment series
Set myApptItem = Nothing
Set myRecurrPatt = Nothing
'Get the recurrence pattern for the master
'AppointmentItem. Access the collection of
'exceptions to the regular appointments.
Set myItems = myFolder.Items
Set myApptItem = myItems("Meet with Boss")
Set myRecurrPatt = myApptItem.GetRecurrencePattern
Set myException = myRecurrPatt.Exceptions.Item(1)
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.