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.
Erstellt ein neues UserDefinedProperty -Objekt und fügt es an die Auflistung an.
Syntax
Ausdruck. Hinzufügen (Name, Typ, DisplayFormat, Formel)
Ausdruck Eine Variable, die ein UserDefinedProperties-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Name | Erforderlich | String | Der Name der neuen benutzerdefinierten Eigenschaft. |
| Type | Erforderlich | OlUserPropertyType | Der Typ der neuen benutzerdefinierten Eigenschaft. |
| DisplayFormat | Optional | Variant | Das Anzeigeformat der neuen benutzerdefinierten Eigenschaft. Dieser Parameter kann auf einen Wert aus einer mehrere verschiedene Enumerationen, anhand der in der Type -Parameter angegebenen OlUserPropertyType -Konstante festgelegt werden. Weitere Informationen zur Interaktion von Type und DisplayFormat finden Sie unter DisplayFormat-Eigenschaft. |
| Formula | Optional | Variant | Die Formel zum Berechnen von Werten für die neue benutzerdefinierte Eigenschaft verwendet. Dieser Parameter wird ignoriert, wenn der Type-Parameter auf einen anderen Wert als olCombination oder olFormula festgelegt ist. |
Rückgabewert
Ein UserDefinedProperty -Objekt, das die neue benutzerdefinierte Eigenschaft darstellt.
Hinweise
Sie können eine Eigenschaft eines Typs, der durch die OlUserPropertyType -Aufzählung, außer für die folgenden Typen definierten erstellen: olEnumeration, olOutlookInternalund olSmartFrom.
Beispiel
Im folgende Visual Basic für Applikationen (VBA) verwendet die Add -Methode zum Erstellen und den Standardordner Posteingang mehrere UserDefinedProperty -Objekte hinzuzufügen.
Sub AddStatusProperties()
Dim objNamespace As NameSpace
Dim objFolder As Folder
Dim objProperty As UserDefinedProperty
' Obtain a Folder object reference to the
' Inbox default folder.
Set objNamespace = Application.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
' Add five user-defined properties, used to identify and
' track customer issues.
With objFolder.UserDefinedProperties
Set objProperty = .Add("Issue?", olYesNo, olFormatYesNoIcon)
Set objProperty = .Add("Issue Research Time", olDuration)
Set objProperty = .Add("Issue Resolution Time", olDuration)
Set objProperty = .Add("Customer Follow-Up", olYesNo, olFormatYesNoYesNo)
Set objProperty = .Add("Issue Closed", olYesNo, olFormatYesNoYesNo)
End With
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.