PropertyAccessor.GetProperty-Methode (Outlook)
Es wird ein Object-Wert zurückgegeben, der den Wert der durch SchemaName angegebenen Eigenschaft darstellt.
Syntax
Ausdruck.
GetProperty( _SchemaName_ )
Ausdruck Eine Variable, die ein PropertyAccessor-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| SchemaName | Erforderlich | String | Der Name der Eigenschaft, deren Wert zurückgegeben werden soll. Auf die Eigenschaft wird mithilfe eines Namespace verwiesen. Weitere Informationen finden Sie unter Verweisen auf Eigenschaften mithilfe von Namespaces. |
Rückgabewert
Ein Variant-Wert , der den Wert der angeforderten Eigenschaft darstellt, wie durch SchemaName angegeben.
Hinweise
Der Typ des Rückgabewerts wird der Typ der zugrunde liegenden-Eigenschaft identisch sein. Bestimmte unformatierte Eigenschaftstypen wie PT_OBJECT werden nicht unterstützt und löst einen Fehler. Wenn Sie eine Konvertierung des unformatierten Eigenschaftstyps benötigen, z. B. von PT_BINARY in eine Zeichenfolge oder von PT_SYSTIME in eine Ortszeit, verwenden Sie die Hilfsmethoden PropertyAccessor.BinaryToString und PropertyAccessor.UTCToLocalTime.
Weitere Informationen zum Abrufen von Eigenschaften mithilfe des PropertyAccessor-Objekts finden Sie unter Bewährte Methoden zum Abrufen und Festlegen von Eigenschaften.
Beispiel
Im folgenden Codebeispiel wird veranschaulicht, wie mit der GetProperty -Methode zum Lesen einer MAPI-Eigenschaft, die ein MailItem-Objekt gehört, aber nicht im Outlook-Objektmodell, PR_TRANSPORT_MESSAGE_HEADERS sichtbar.
Sub DemoPropertyAccessorGetProperty()
Dim PropName, Header As String
Dim oMail As Object
Dim oPA As Outlook.PropertyAccessor
'Get first item in the inbox
Set oMail = _
Application.Session.GetDefaultFolder(olFolderInbox).Items(1)
'PR_TRANSPORT_MESSAGE_HEADERS
PropName = "http://schemas.microsoft.com/mapi/proptag/0x007D001E"
'Obtain an instance of PropertyAccessor class
Set oPA = oMail.PropertyAccessor
'Call GetProperty
Header = oPA.GetProperty(PropName)
Debug.Print (Header)
End Sub
Siehe auch
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.