Erstellen eines Termins als Besprechung im KalenderCreate an Appointment as a Meeting on the Calendar

In diesem Thema wird eine Visual Basic for Applications (VBA) Prozedur CreateApptgezeigt, die programmgesteuert einen Termin erstellt, verschiedene Eigenschaften festlegt und den Termin sendet, um eine Besprechung anzufordern.This topic shows a Visual Basic for Applications (VBA) procedure, CreateAppt, that programmatically creates an appointment, sets various properties, and sends the appointment to request a meeting. Die Prozedur CreateAppt verwendet die CreateItem -Methode zum Erstellen eines AppointmentItem -Objekts.CreateAppt uses the CreateItem method to create an AppointmentItem object. Hiermit wird die MeetingStatus -Eigenschaft von AppointmentItem auf olMeeting festgelegt, um den Termin als Besprechungsanfrage zu kennzeichnen.It sets the MeetingStatus property of the AppointmentItem to olMeeting to indicate the appointment as a meeting request, and sets a required attendee, an optional attendee, and a meeting location as a resource. Danach wird das Terminelement angezeigt und gesendet.The example then displays and sends the appointment item.

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

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.