Método NameSpace.OpenSharedFolder (Outlook)

Abre una carpeta compartida a la que se hace referencia mediante una dirección URL o un nombre de archivo.

Sintaxis

expresión. OpenSharedFolder( _Path_ , _Name_ , _DownloadAttachments_ , _UseTTL_ )

Expresión Expresión que devuelve un objeto NameSpace .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Path	Obligatorio	String	Dirección URL o nombre de archivo local de la carpeta compartida que se abrirá.
Name	Opcional	Variant	Nombre de la fuente RSS (Really Simple Syndication) o del calendario Webcal. Este parámetro se omite para los demás tipos de carpetas compartidas.
DownloadAttachments	Opcional	Variant	Indica si se descargarán los documentos adjuntos (para las fuentes RSS) o los datos adjuntos (para los calendarios Webcal). Este parámetro se omite para los demás tipos de carpetas compartidas.
UseTTL	Opcional	Variant	Indica si se debe utilizar el valor de tiempo restante de una fuente RSS o un calendario Webcal. Este parámetro se omite para los demás tipos de carpetas compartidas.

Valor devuelto

Objeto Folder que representa la carpeta compartida.

Comentarios

Este método se utiliza para tener acceso a los siguientes tipos de carpetas compartidas:

• Calendarios webcal (webcal:// mysite / mycalendar )

• Fuentes RSS (feed:// mysite / myfeed )

• Carpetas de Microsoft SharePoint Foundation (stssync:// mysite / myfolder )

• Archivos de calendario iCalendar (.ics)

• Archivos de contactos vCard (.vcf)

• Archivos de mensajes de Outlook (.msg)

Nota:

[!NOTA] Este método no es compatible con archivos de citas iCalendar (.ics). Para abrir archivos de citas iCalendar, puede utilizar el método OpenSharedItem del objeto NameSpace.

Use el método GetSharedDefaultFolder del objeto Namespace para compartir carpetas predeterminadas, como la carpeta Bandeja de entrada, en Exchange.

Ejemplo:

En el ejemplo siguiente de Visual Basic para Aplicaciones (VBA) se abre y muestra un calendario 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

Consulte también

Objeto NameSpace

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.