PropertyAccessor.SetProperty-Methode (Outlook)
Die durch SchemaName angegebene Eigenschaft wird auf den durch Value angegebenen Wert festgelegt.
Syntax
Ausdruck.
SetProperty( _SchemaName_ , _Value_ )
Ausdruck Eine Variable, die ein PropertyAccessor-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| SchemaName | Erforderlich | String | Der Name einer Eigenschaft, deren Wert gemäß der Angabe durch den Value-Parameter festgelegt werden soll. Auf die Eigenschaft wird mithilfe eines Namespace verwiesen. Weitere Informationen finden Sie unter Verweisen auf Eigenschaften mithilfe von Namespaces. |
| Wert | Erforderlich | Variant | Der Wert, der für die durch den SchemaName-Parameter angegebene Eigenschaft festgelegt werden soll. |
Hinweise
Wenn die Eigenschaft nicht vorhanden ist und der SchemaName einen gültigen Eigenschaftenbezeichner enthält, erstellt SetProperty die Eigenschaft und weist den durch Value festgelegten Wert zu. Wenn die Eigenschaft vorhanden ist und SchemaName gültig ist, weist SetProperty die Eigenschaft mit dem durch Value angegebenen Wert zu.
Beachten Sie, dass eine mithilfe von PropertyAccessor erstellte benutzerdefinierte Eigenschaft in einer benutzerdefinierten Ansicht nicht unterstützt wird. Wenn eine benutzerdefinierte Eigenschaft eines Elements angezeigt werden soll, erstellen Sie die Eigenschaft mithilfe der Add -Methode des UserProperties -Objekts.
Wenn das übergeordnete Objekt des PropertyAccessor eine explizite unterstützt Vorgang Speichern, und klicken Sie dann auf die Eigenschaften für das Objekt durch eine explizite Speichern gespeichert werden sollen Methodenaufruf. Wenn das Objekt nicht explizit unterstützt Vorgang Speichern, und klicken Sie dann auf die Eigenschaften auf das Objekt gespeichert werden, wenn SetProperties aufgerufen wird.
Gehen Sie vorsichtig vor, und stellen Sie sicher, dass alle Ausnahmen korrekt behandelt werden. Beispiele für Bedingungen, unter denen das Festlegen von Eigenschaften fehlschlägt:
Die Eigenschaft ist schreibgeschützt, da einige Outlook- und MAPI-Eigenschaften schreibgeschützt sind.
Die Eigenschaft, auf die durch den angegebenen Namespace verwiesen wird, wird nicht gefunden.
Die Eigenschaft ist in einem ungültigen Format angegeben und kann nicht analysiert werden.
Die Eigenschaft ist nicht vorhanden und kann nicht erstellt werden.
Die Eigenschaft ist vorhanden, aber es wird ein Wert eines falschen Typs übergeben.
Die Eigenschaft kann nicht geöffnet werden, da der Client offline ist.
Die Eigenschaft ist mit der UserProperties.Add -Methode erstellt. Wenn die Eigenschaft zum ersten Mal festlegen, müssen Sie die UserProperty.Value -Eigenschaft statt der SetProperties oder SetProperty -Methode des PropertyAccessor -Objekts verwenden.
Weitere Informationen zum Festlegen von Eigenschaften mithilfe des PropertyAccessor-Objekts finden Sie unter Bewährte Methoden zum Abrufen und Festlegen von Eigenschaften.
Beispiel
Das folgende Codebeispiel veranschaulicht, wie PropertyAccessor verwenden, um eine benutzerdefinierte Eigenschaft für ein MailItem -Objekt auf einen anderen Wert festzulegen. Wenn die benutzerdefinierte Eigenschaft nicht vorhanden ist, wird PropertyAccessor.SetProperty erstellen und setzen Sie die Eigenschaft. Mit der MailItem.Save -Methode wird die-Eigenschaft gespeichert.
Sub DemoPropertyAccessorSetProperty()
Dim myProp As String
Dim myValue As Variant
Dim oMail As Outlook.MailItem
Dim oPA As Outlook.PropertyAccessor
'Get first item in the inbox
Set oMail = _
Application.Session.GetDefaultFolder(olFolderInbox).Items(1)
'Name for custom property using the MAPI string namespace
myProp = "http://schemas.microsoft.com/mapi/string/" & _
"{FFF40745-D92F-4C11-9E14-92701F001EB3}/myCustomer"
myValue = "Dan Wilson"
'Set value with SetProperty call
'If the property does not exist, then SetProperty
'adds the property to the object when saved.
'The type of the property is the type of the element
'passed in myValue.
On Error GoTo ErrTrap
Set oPA = oMail.PropertyAccessor
oPA.SetProperty myProp, myValue
'Save the item
oMail.Save
Exit Sub
ErrTrap:
Debug.Print Err.Number, Err.Description
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.