通过

在日历上创建约会作为会议

  • 项目

本主题介绍一个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 支持和反馈，获取有关如何接收支持和提供反馈的指南。