在行事曆上建立約會做為會議

本主題說明 Visual Basic for Applications (VBA) 程式 ， CreateAppt 以程式設計方式建立約會、設定各種屬性，以及傳送約會來要求會議。 CreateAppt 會使用 CreateItem 方法來建立 AppointmentItem 物件。 它會將AppointmentItem的MeetingStatus屬性設定為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 支援與意見反應。