Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
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.
Im Beispiel wird zunächst ein ameSpace-Objektverweis auf den MAPI-Namespace erstellt.
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.
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.