Compartilhar via


Criar um compromisso como uma reunião no calendário

Este tópico mostra um procedimento CreateApptde Visual Basic for Applications (VBA), que cria programaticamente um compromisso, define várias propriedades e envia o compromisso para solicitar uma reunião. CreateAppt usa o método CreateItem para criar um objeto AppointmentItem . Ele define a propriedade MeetingStatus do AppointmentItem como olMeeting para indicar o compromisso como uma solicitação de reunião e define um participante necessário, um participante opcional e um local de reunião como um recurso. O exemplo, em seguida, exibe e envia o item de compromisso.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.