Compartilhar via

Método NameSpace.OpenSharedFolder (Outlook)

  • Artigo

Abre uma pasta compartilhada indicada por uma URL ou um nome de arquivo.

Sintaxe

expression. OpenSharedFolder( _Path_ , _Name_ , _DownloadAttachments_ , _UseTTL_ )

Expressão Uma expressão que retorna um objeto NameSpace .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Path Obrigatório String A URL ou o nome do arquivo local da pasta compartilhada a ser aberta.
Name Opcional Variant O nome do Really Simple Syndication (RSS) feed ou calendário Webcal. Esse parâmetro é ignorado em outros tipos de pasta compartilhada.
DownloadAttachments Opcional Variant Indica se é necessário baixar inclusões (para RSS feeds) ou anexos (para calendários Webcal). Esse parâmetro é ignorado em outros tipos de pasta compartilhada.
UseTTL Opcional Variant Indica se a configuração de vida útil (TTL) em um RSS feed ou calendário WebCal deve ser usada. Esse parâmetro é ignorado em outros tipos de pasta compartilhada.

Valor de retorno

Um objeto Folder que representa a pasta compartilhada.

Comentários

Este método é usado para acessar os seguintes tipos de pasta compartilhada:

  • Calendários webcal (webcal:// mysite / mycalendar )

  • Feeds do RSS (feed:// mysite / myfeed )

  • Pastas do Microsoft SharePoint Foundation (stssync:// mysite / myfolder )

  • Arquivos de calendário iCalendar (.ics)

  • Arquivos de contato vCard (.vcf)

  • Arquivos de mensagem do Outlook (.msg)

Observação

[!OBSERVAçãO] Este método não dá suporte a arquivos de compromisso iCalendar (.ics). Para abrir esse tipo de arquivo, você pode usar o método OpenSharedItem do objeto NameSpace.

Use o método GetSharedDefaultFolder do objeto Namespace para compartilhar pastas padrão, como a pasta Caixa de Entrada, no Exchange.

Exemplo

O exemplo a seguir do Visual Basic for Applications (VBA) abre e exibe um calendário Webcal.

Public Sub OpenSharedHolidayCalendar() 
 
 
 
 Dim oNamespace As NameSpace 
 
 Dim oFolder As Folder 
 
 
 
 On Error GoTo ErrRoutine 
 
 
 
 Set oNamespace = Application.GetNamespace("MAPI") 
 
 Set oFolder = oNamespace.OpenSharedFolder( _ 
 
 "webcal://icalx.com/public/icalshare/US32Holidays.ics") 
 
 oFolder.Display 
 
 
 
EndRoutine: 
 
 On Error GoTo 0 
 
 Set oFolder = Nothing 
 
 Set oNamespace = Nothing 
 
Exit Sub 
 
 
 
ErrRoutine: 
 
 MsgBox Err.Description, vbOKOnly, Err.Number & " - " & Err.Source 
 
 GoTo EndRoutine 
 
End Sub

Confira também

Objeto NameSpace

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.