Compartilhar via


Método RecurrencePattern.GetOccurrence (Outlook)

Retorna uma instância específica do objeto AppointmentItem na data especificada.

Sintaxe

expression. GetOccurrence( _StartDate_ )

Expressão Uma variável que representa um objeto RecurrencePattern .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
StartDate Obrigatório Date Um valor de Data que representa a hora local.

Valor de retorno

Um objeto AppointmentItem que representa o compromisso especificado na data especificada.

Comentários

O método GetOccurrence gera um erro se nenhum compromisso dessa série existir na data especificada.

Quando você trabalha com itens de compromisso recorrente, você deve liberar qualquer referência anterior, obter novas referências para o item de compromisso recorrente antes de acessar ou modificar o item e liberar essas referências assim que você tiver terminado e salvou as alterações. Essa prática se aplica ao objeto AppointmentItem recorrente e qualquer objeto de exceção ou RecurrencePattern. Para liberar uma referência no Visual Basic for Applications (VBA) ou no Visual Basic, defina esse objeto existente como Nothing. Em c#, release explicitamente a memória para aquele objeto. Para obter um exemplo de código, consulte o tópico do objeto AppointmentItem.

Observe que, mesmo depois que você liberar seu referência e tenta obter uma referência de nova, se ainda houver uma referência de ativa, conduzida por outro suplemento ou no Outlook, como um dos objetos acima, sua nova referência continuarão a apontar para uma cópia desatualizada do objeto. Portanto, é importante que você libera seus referências assim que terminar com um compromisso recorrente.

Exemplo

Este exemplo Visual Basic for Applications (VBA) usa CreateItem para criar um objeto AppointmentItem. RecurrencePattern é obtido para esse item usando o método GetRecurrencePattern. Definindo as propriedades RecurrencePattern, RecurrenceType, PatternStartDate e PatternEndDate, os compromissos agora são uma série recorrente que ocorre diariamente pelo período de um ano.

Um objeto Exception é criado quando uma instância deste compromisso recorrente é obtida usando o método GetOccurrence e propriedades para esta instância forem alteradas. Essa exceção à série de compromissos é obtida usando o método GetRecurrencePattern para acessar a coleção Exceptions associada a esta série. Caixas de mensagem exibem o assunto e o OriginalDate original para essa exceção à série de compromissos e a data atual, hora e assunto da exceção.

Public Sub cmdExample() 
 
 Dim myApptItem As Outlook.AppointmentItem 
 
 Dim myRecurrPatt As Outlook.RecurrencePattern 
 
 Dim myNamespace As Outlook.NameSpace 
 
 Dim myFolder As Outlook.Folder 
 
 Dim myItems As Outlook.Items 
 
 Dim myDate As Date 
 
 Dim myOddApptItem As Outlook.AppointmentItem 
 
 Dim saveSubject As String 
 
 Dim newDate As Date 
 
 Dim myException As Outlook.Exception 
 
 
 
 Set myApptItem = Application.CreateItem(olAppointmentItem) 
 
 myApptItem.Start = #2/2/2003 3:00:00 PM# 
 
 myApptItem.End = #2/2/2003 4:00:00 PM# 
 
 myApptItem.Subject = "Meet with Boss" 
 
 
 
 'Get the recurrence pattern for this appointment 
 
 'and set it so that this is a daily appointment 
 
 'that begins on 2/2/03 and ends on 2/2/04 
 
 'and save it. 
 
 Set myRecurrPatt = myApptItem.GetRecurrencePattern 
 
 myRecurrPatt.RecurrenceType = olRecursDaily 
 
 myRecurrPatt.PatternStartDate = #2/2/2003# 
 
 myRecurrPatt.PatternEndDate = #2/2/2004# 
 
 myApptItem.Save 
 
 
 
 'Access the items in the Calendar folder to locate 
 
 'the master AppointmentItem for the new series. 
 
 Set myNamespace = Application.GetNamespace("MAPI") 
 
 Set myFolder = myNamespace.GetDefaultFolder(olFolderCalendar) 
 
 Set myItems = myFolder.Items 
 
 Set myApptItem = myItems("Meet with Boss") 
 
 
 
 'Get the recurrence pattern for this appointment 
 
 'and obtain the occurrence for 3/12/03. 
 
 myDate = #3/12/2003 3:00:00 PM# 
 
 Set myRecurrPatt = myApptItem.GetRecurrencePattern 
 
 Set myOddApptItem = myRecurrPatt.GetOccurrence(myDate) 
 
 
 
 'Save the existing subject. Change the subject and 
 
 'starting time for this particular appointment 
 
 'and save it. 
 
 saveSubject = myOddApptItem.Subject 
 
 myOddApptItem.Subject = "Meet NEW Boss" 
 
 newDate = #3/12/2003 3:30:00 PM# 
 
 myOddApptItem.Start = newDate 
 
 myOddApptItem.Save 
 
 
 
 'Release references to the appointment series 
 
 Set myApptItem = Nothing 
 
 Set myRecurrPatt = Nothing 
 
 
 
 'Get the recurrence pattern for the master 
 
 'AppointmentItem. Access the collection of 
 
 'exceptions to the regular appointments. 
 
 Set myItems = myFolder.Items 
 
 Set myApptItem = myItems("Meet with Boss") 
 
 
 
 Set myRecurrPatt = myApptItem.GetRecurrencePattern 
 
 Set myException = myRecurrPatt.Exceptions.Item(1) 
 
 
 
 'Display the original date, time, and subject 
 
 'for this exception. 
 
 MsgBox myException.OriginalDate & ": " & saveSubject 
 
 
 
 'Display the current date, time, and subject 
 
 'for this exception. 
 
 MsgBox myException.AppointmentItem.Start & ": " & _ 
 
 myException.AppointmentItem.Subject 
 
End Sub

Confira também

Objeto RecurrencePattern

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.