Partager via

Envoyer une invitation de partage pour un flux RSS

  • Article

Le partage de messages, y compris le partage d’invitations, de demandes de partage et de réponses de partage, est représenté dans Microsoft Outlook par l’élément SharingItem](.. /.. /.. Objet /api/Outlook.SharingItem.md ). La méthode CreateSharingItem de l’objet NameSpace est utilisée pour créer des objets SharingItem pour le partage d’invitations et de demandes de partage. Les réponses de partage sont automatiquement créées par Outlook lorsque les méthodes Reply ou ReplyAll d’un objet SharingItem qui représente une invitation de partage ou une demande de partage sont appelées.

Cet exemple de code utilise la méthode OpenSharingItem pour créer un objet SharingItem qui représente une invitation de partage pour un flux RSS (Really Simple Syndication). Une fois partagé, le destinataire peut utiliser la méthode OpenSharedFolder de l’objet NameSpace ou la méthode OpenSharedFolder de l’objet SharingItem pour ouvrir le flux RSS.

  1. L’exemple crée d’abord une référence d’objet ameSpace à l’espace de noms MAPI.

  2. Il utilise ensuite la méthode CreateSharingItem pour créer un nouvel objet SharingItem, à l’aide de l’URL du flux RSS pour établir le contexte de partage utilisé par l’objet SharingItem.

  3. Enfin, la méthode Add de la collection Recipients de l’objet SharingItem nouvellement créé est appelée pour ajouter le destinataire spécifié et la méthode Send est utilisée pour envoyer l’objet SharingItem.

Public Sub ShareRSSByInvitation() 
 Dim oNamespace As NameSpace 
 Dim sRSSurl As String 
 Dim oSharingItem As SharingItem 
 
 On Error GoTo ErrRoutine 
 
 ' Specify the RSS feed URL for which sharing is to 
 ' be requested. 
 sRSSurl = "feed://example.com/rss.xml" 
 
 ' Get a reference to the MAPI namespace. 
 Set oNamespace = Application.GetNamespace("MAPI") 
 
 ' Create a new sharing request, using the RSS feed 
 ' URL to establish sharing context. 
 Set oSharingItem = oNamespace.CreateSharingItem(sRSSurl) 
 
 ' Add a recipient to the Recipients collection of 
 ' the sharing invitation. 
 oSharingItem.Recipients.Add "someone@example.com" 
 
 ' Send the sharing invitation. 
 oSharingItem.Send 
 
EndRoutine: 
 On Error GoTo 0 
 Set oSharingItem = Nothing 
 Set oFolder = Nothing 
 Set oNamespace = Nothing 
Exit Sub 
 
ErrRoutine: 
 Select Case Err.Number 
 Case 287 ' &H0000011F 
 ' The user denied access to the Address Book. 
 ' This error occurs if the code is run by an 
 ' untrusted application, and the user chose not to 
 ' allow access. 
 MsgBox "Access to Outlook was denied by the user.", _ 
 vbOKOnly, _ 
 Err.Number & " - " & Err.Source 
 Case -313393143 ' &HED520009 
 ' This error typically occurs if you set the 
 ' AllowWriteAccess property to true for a 
 ' default folder. 
 MsgBox Err.Description, _ 
 vbOKOnly, _ 
 Err.Number & " - " & Err.Source 
 Case -2147467259 ' &H80004005 
 ' This error typically occurs if the SharingItem 
 ' cannot be sent because of incorrect or 
 ' conflicting property settings. 
 MsgBox Err.Description, _ 
 vbOKOnly, _ 
 Err.Number & " - " & Err.Source 
 Case Else 
 ' Any other error that may occur. 
 MsgBox Err.Description, _ 
 vbOKOnly, _ 
 Err.Number & " - " & Err.Source 
 End Select 
 
 GoTo EndRoutine 
End Sub

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.