次の方法で共有

MeetingItem.GetAssociatedAppointment メソッド (Outlook)

  • [アーティクル]

会議出席依頼に関連付けられている予定を表す AppointmentItem オブジェクトを返します。

構文

式。 GetAssociatedAppointment( _AddToCalendar_ )

式MeetingItem オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
AddToCalendar 必須 ブール型 (Boolean) True の 既定の 予定表フォルダーに会議を追加します。

戻り値

関連付けられた予定を表す AppointmentItem オブジェクト。

例

このVisual Basic for Applications (VBA) の例では、まだ応答されていない既定の受信トレイ フォルダー内の MeetingItem を検索し、関連する予定を Calendar フォルダーに追加します。 会議を承諾して、送信者に応答します。

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 のサポートおよびフィードバックを参照してください。