AppointmentItem.MeetingStatus (Outlook)

Returns or sets an OlMeetingStatus constant specifying the meeting status of the appointment. Possible return values are olMeeting - The meeting has been scheduled, olMeetingCanceled - The scheduled meeting has been cancelled, olMeetingReceived - The meeting request has been received, olMeetingReceivedAndCanceled - The scheduled meeting has been cancelled but still appears on the user's calendar, olNonMeeting - An Appointment item without attendees has been scheduled. This status can be used to set up holidays on a calendar.

Use this property to make a MeetingItem object available for the appointment.

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 = "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