UserDefinedProperties.Add-Methode (Outlook)

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.

HinwBemerkungeneise

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

UserDefinedProperties-Objekt

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.