Méthode NameSpace.OpenSharedFolder (Outlook)

  • Article

Ouvre un dossier partagé référencé par une URL ou un nom de fichier.

Syntaxe

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

Expression Expression qui renvoie un objet NameSpace .

Parameters

Nom Requis/Facultatif Type de données Description
Path Obligatoire String URL ou nom du fichier local du dossier partagé à ouvrir.
Name Facultatif Variant Nom du flux RSS (Really Simple Syndication) ou du calendrier Webcal. Ce paramètre est ignoré pour les autres types de dossiers partagés.
DownloadAttachments Facultatif Variant Indique si des pièces jointes (pour les flux RSS et les calendriers Webcal) doivent être téléchargées. Ce paramètre est ignoré pour les autres types de dossiers partagés.
UseTTL Facultatif Variant Indique si le paramètre TTL (Time To Live, durée de vie) dans un flux RSS ou un calendrier WebCal doit être utilisé. Ce paramètre est ignoré pour les autres types de dossiers partagés.

Valeur renvoyée

Objet Folder qui représente le dossier partagé.

Remarques

Cette méthode est utilisée pour accéder aux types de dossiers partagés suivants :

  • Calendriers Webcal (webcal:// mysite / mycalendar )

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

  • Dossiers Microsoft SharePoint Foundation (stssync:// mysite / myfolder )

  • Fichiers de calendrier iCalendar (.ics)

  • Fichiers de contact vCard (.vcd)

  • Fichiers de message Outlook (.msg)

Remarque

Cette méthode ne prend pas en charge les fichiers de rendez-vous iCalendar (.ics). Pour ouvrir les fichiers de rendez-vous iCalendar, vous pouvez utiliser la méthode OpenSharedItem de l’objet NameSpace .

Utilisez la méthode GetSharedDefaultFolder de l’objet Namespace pour partager des dossiers par défaut, tels que le dossier Boîte de réception, dans Exchange.

Exemple

L’exemple de code Visual Basic pour Applications (VBA) montre comment ouvrir et afficher un calendrier 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

Voir aussi

Objet NameSpace

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.