Метод MeetingItem.GetAssociatedAppointment (Outlook)

Статья
04/07/2023

Возвращает объект AppointmentItem , представляющий встречу, связанную с приглашением на собрание.

Синтаксис

выражение. GetAssociatedAppointment( _AddToCalendar_ )

Выражение Переменная, представляющая объект MeetingItem .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
AddToCalendar	Обязательный	Boolean	Значение true , чтобы добавить собрание в папку Календарь по умолчанию.

Возвращаемое значение

Объект AppointmentItem , представляющий связанную встречу.

Пример

Этот пример Visual Basic для приложений (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 и обратная связь.

Поделиться через