Compartilhar via

MeetingStatus Property

  • Artigo

OlMeetingStatus

OlMeetingStatus can be one of these OlMeetingStatus constants.
olMeeting
olMeetingCanceled
olMeetingReceived
olNonMeeting

expression**.MeetingStatus**

*expression    * Required. An expression that returns an AppointmentItem object.

Example

This Visual Basic for Applications example uses CreateItem to create an appointment and uses MeetingStatus to set the meeting status to "Meeting" to turn it into a meeting request with both a required and an optional attendee.

Sub CreateAppt()
 Set myOlApp = CreateObject("Outlook.Application")
 Set myItem = myOlApp.CreateItem(olAppointmentItem)
 myItem.MeetingStatus = olMeeting
 myItem.Subject = "Strategy Meeting"
 myItem.Location = "Conference Room B"
 myItem.Start = #9/24/1997 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("Conference Room B")
 myResourceAttendee.Type = olResource
 myItem.Display
End Sub

If you use VBScript, you do not create the Application object, and you cannot use named constants. This example shows how to perform the same task using VBScript.

Sub CommandButton1_Click()
 Set myItem = Application.CreateItem(1)
 myItem.MeetingStatus = 1
 myItem.Subject = "Strategy Meeting"
 myItem.Location = "Conference Room B"
 myItem.Start = #9/24/97 1:30:00 PM#
 myItem.Duration = 90
 Set myRequiredAttendee = myItem.Recipients.Add ("Nate Sun")
 myRequiredAttendee.Type = 1
 Set myOptionalAttendee = myItem.Recipients.Add ("Kevin Kennedy")
 myOptionalAttendee.Type = 2
 Set myResourceAttendee = myItem.Recipients.Add("Conference Room B")
 myResourceAttendee.Type = 3
 myItem.Display
End Sub

Applies to | AppointmentItem Object