Freigeben über

Senden einer Freigabeeinladung für einen RSS-Feed

  • Artikel

Freigabenachrichten, einschließlich Freigabeaufladungen, Freigabeanforderungen und Freigabeantworten, werden in Microsoft Outlook durch das SharingItem](.) dargestellt. /.. /.. /api/Outlook.SharingItem.md) -Objekt. Die CreateSharingItem-Methode des NameSpace-Objekts wird verwendet, um SharingItem-Objekte zum Freigeben von Einladungen und Freigabeanforderungen zu erstellen. Freigabeantworten werden automatisch von Outlook erstellt, wenn die Reply- oder ReplyAll-Methode eines SharingItem-Objekts aufgerufen wird, das eine Freigabe-Einladung oder Freigabeanforderung darstellt.

In diesem Beispiel wird die OpenSharingItem-Methode zum Erstellen eines SharingItem verwendet, das eine Freigabeeinladung für einen RSS-Feed darstellt. Nach der Freigabe kann der Empfänger dann die OpenSharedFolder-Methode des NameSpace-Objekts oder die OpenSharedFolder-Methode des SharingItem-Objekts verwenden, um den RSS-Feed zu öffnen.

  1. Im Beispiel wird zunächst ein ameSpace-Objektverweis auf den MAPI-Namespace erstellt.

  2. Anschließend wird die CreateSharingItem -Methode zum Erstellen eines neuen SharingItem -Objekts mithilfe des URI des RSS-Feeds verwendet, um den von SharingItem verwendeten Freigabekontext zu erstellen.

  3. Schließlich wird die Add -Methode für die Recipients -Auflistung des neu erstellten SharingItem -Objekts aufgerufen, um den angegebenen Empfänger hinzuzufügen. Die Send -Methode wird zum Senden des SharingItem verwendet.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.