共用方式為


MeetingItem.GetAssociatedAppointment 方法 (Outlook)

會傳回 AppointmentItem 物件,代表與會議邀請相關聯的約會。

語法

expressionGetAssociatedAppointment( _AddToCalendar_ )

表達 代表 MeetingItem 物件的 變數。

參數

名稱 必要/選用 資料類型 描述
AddToCalendar 必要 布林值 True 是表示 將會議新增至預設 [ 行事曆 ] 資料夾。

傳回值

代表相關約會的 AppointmentItem 物件。

範例

這個 Visual Basic for Applications (VBA) 範例會在尚未回應的預設 [收件匣] 資料夾中尋找MeetingItem,並將相關聯的約會新增至 [行事曆] 資料夾。 接著,透過接受會議回覆寄件者。

Sub AcceptMeeting() 
 
 Dim myNameSpace As Outlook.NameSpace 
 
 Dim myFolder As Outlook.Folder 
 
 Dim myMtgReq As Outlook.MeetingItem 
 
 Dim myAppt As Outlook.AppointmentItem 
 
 Dim myMtg As Outlook.MeetingItem 
 
 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox) 
 
 Set myMtgReq = myFolder.Items.Find("[MessageClass] = 'IPM.Schedule.Meeting.Request'") 
 
 If TypeName(myMtgReq) <> "Nothing" Then 
 
 Set myAppt = myMtgReq.GetAssociatedAppointment(True) 
 
 Set myMtg = myAppt.Respond(olResponseAccepted, True) 
 
 myMtg.Send 
 
 End If 
 
End Sub

另請參閱

MeetingItem 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應