MeetingItem.GetAssociatedAppointment 方法 (Outlook)
會傳回 AppointmentItem 物件，代表與會議邀請相關聯的約會。
語法
expression。 GetAssociatedAppointment( _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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。