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

Создание встречи в качестве собрания в календаре

  • Статья

В этом разделе показана процедура CreateApptVisual Basic для приложений (VBA), которая программным способом создает встречу, задает различные свойства и отправляет встречу для приглашения на собрание. Процедура CreateAppt использует метод CreateItem, чтобы создать объект AppointmentItem. Она присваивает свойству MeetingStatus объекта AppointmentItem значение olMeeting, чтобы указать встречу в качестве приглашения на собрание, и задает обязательного участника, необязательного участника, а также место собрания в качестве ресурса. В примере затем отображается и отправляется элемент встречи.

Sub CreateAppt() 
 Dim myItem As Object 
 Dim myRequiredAttendee, myOptionalAttendee, myResourceAttendee As Outlook.Recipient 
 
 Set myItem = Application.CreateItem(olAppointmentItem) 
 myItem.MeetingStatus = olMeeting 
 myItem.Subject = "Strategy Meeting" 
 myItem.Location = "Conf Rm All Stars" 
 myItem.Start = #9/24/2009 1:30:00 PM# 
 myItem.Duration = 90 
 Set myRequiredAttendee = myItem.Recipients.Add("Nate Sun") 
 myRequiredAttendee.Type = olRequired 
 Set myOptionalAttendee = myItem.Recipients.Add("Kevin Kennedy") 
 myOptionalAttendee.Type = olOptional 
 Set myResourceAttendee = myItem.Recipients.Add("Conf Rm All Stars") 
 myResourceAttendee.Type = olResource 
 myItem.Display 
 myItem.Send 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.