Método Recipient.FreeBusy (Outlook)
Retorna informações de disponibilidade referentes ao destinatário.
Sintaxe
expression. FreeBusy( _Start_ , _MinPerChar_ , _CompleteFormat_ )
Expressão Uma variável que representa um objeto Destinatário .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Start | Obrigatório | Date | A data inicial para o período retornado de informações de disponibilidade. |
| MinPerChar | Obrigatório | Long | O número de minutos por caractere representado na sequência de caracteres de disponibilidade retornada. |
| CompleteFormat | Opcional | Variant | True se a cadeia de caracteres retornada deve conter não apenas informações de disponibilidade informações, mas também valores para cada caractere, de acordo com as constantes OlBusyStatus. |
Valor de retorno
Um valor String que representa as informações de disponibilidade.
Comentários
O padrão é retornar uma sequência de caracteres que representa um mês de informações de disponibilidade compatíveis com o formato Microsoft Schedule+ Automation (isto é, a sequência de caracteres contém um caractere para cada minuto MinPerChar, até um mês de informações a partir da data Start especificada).
Se o argumento opcional CompleteFormat for omitido ou False, então "disponível" será indicado pelo caractere 0 e todos os outros estados serão indicados pelo caractere 1.
Se CompleteFormat for True, a mesma sequência de caracteres de comprimento será retornada como definido acima, mas agora os caracteres corresponderão às constantes OlBusyStatus.
Exemplo
Este exemplo Visual Basic for Applications (VBA) usa o método FreeBusy para retornar uma cadeia de caracteres de informações de disponibilidade com um caractere para cada dia. Este exemplo permite a possibilidade de que as informações de disponibilidade para o destinatário não estão acessíveis. Para executar esse exemplo, você precisará substituir 'Nate Sun' por um nome válido do destinatário.
Public Sub GetFreeBusyInfo()
Dim myNameSpace As Outlook.NameSpace
Dim myRecipient As Outlook.Recipient
Dim myFBInfo As String
Set myNameSpace = Application.GetNamespace("MAPI")
Set myRecipient = myNameSpace.CreateRecipient("Nate Sun")
On Error GoTo ErrorHandler
myFBInfo = myRecipient.FreeBusy(#11/11/2003#, 60 * 24)
MsgBox myFBInfo
Exit Sub
ErrorHandler:
MsgBox "Cannot access the information. "
End Sub
Este exemplo do VBA retorna uma sequência de caracteres de informações de disponibilidade com um caractere para cada hora (formato completo).
Set myRecipient = myNameSpace.CreateRecipient("Nate Sun")
myFBInfo = myRecipient.FreeBusy(#8/1/03#, 60, True)
Confira também
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.