UserDefinedProperty-Objekt (Outlook)
Stellt die Definition einer benutzerdefinierten Eigenschaft für ein Folder -Objekt dar.
Hinweise
Verwenden Sie UserDefinedProperties (Index), wobei index ein Name oder eine Indexnummer ist, um ein einzelnes UserDefinedProperty-Objekt zurückzugeben.
Verwenden Sie die Add -Methode der UserDefinedProperties -Auflistung für ein Folder -Objekt, um eine benutzerdefinierte Eigenschaft für diesen Ordner zu definieren.
Verwenden Sie die Type -Eigenschaft, um den benutzerdefinierten Eigenschaftentyp und der DisplayFormat -Eigenschaft, um das Anzeigeformat für die benutzerdefinierte Eigenschaft zurückgeben zurückzugeben. Wenn die Type -Eigenschaft auf OlCombination oder OlFormula festgelegt ist, verwenden Sie die Formula -Eigenschaft, um die Formel zum Generieren von Werten für die benutzerdefinierte Eigenschaft zurückzugeben.
UserDefinedProperty -Objekt stellt nur die Definition einer benutzerdefinierten-Eigenschaft, die auf alle im Ordner enthaltenen Outlook-Elemente angewendet ist. Verwenden Sie zum Abrufen oder Ändern der Eigenschaftswerte für ein Outlook-Element in dem Ordner, der UserProperties -Eigenschaft des Outlook-Elements, wie ein MailItem -Objekt zum Abrufen der UserProperties -Auflistung für das Element. Klicken Sie dann können das UserProperty -Objekt für die entsprechende benutzerdefinierte Eigenschaft zum Abrufen oder ändern Sie den Wert der benutzerdefinierten Eigenschaft für das Outlook-Element.
Beispiel
Im folgenden Beispiel für Visual Basic für Applikationen (VBA) werden neben dem Namen eines angegebenen Folder-Objekts auch der Name und Typ der einzelnen UserDefinedProperty-Objekte, die in der UserDefinedProperties-Auflistung des angegebenen Folder-Objekts enthalten sind, im Direktfenster angezeigt.
Sub DisplayUserProperties(ByRef FolderToCheck As Folder)
Dim objProperty As UserDefinedProperty
' Print the name of the specified Folder object
' reference to the Immediate window.
Debug.Print "--- Folder: " & FolderToCheck.Name
' Check if there are any user-defined properties
' associated with the Folder object reference.
If FolderToCheck.UserDefinedProperties.Count = 0 Then
' No user-defined properties are present.
Debug.Print " No user-defined properties."
Else
' Iterate through every user-defined property in
' the folder.
For Each objProperty In FolderToCheck.UserDefinedProperties
' Retrieve the name of the user-defined property.
strPropertyInfo = objProperty.Name
' Retrieve the type of the user-defined property.
Select Case objProperty.Type
Case OlUserPropertyType.olCombination
strPropertyInfo = strPropertyInfo & " (Combination)"
Case OlUserPropertyType.olCurrency
strPropertyInfo = strPropertyInfo & " (Currency)"
Case OlUserPropertyType.olDateTime
strPropertyInfo = strPropertyInfo & " (Date/Time)"
Case OlUserPropertyType.olDuration
strPropertyInfo = strPropertyInfo & " (Duration)"
Case OlUserPropertyType.olEnumeration
strPropertyInfo = strPropertyInfo & " (Enumeration)"
Case OlUserPropertyType.olFormula
strPropertyInfo = strPropertyInfo & " (Formula)"
Case OlUserPropertyType.olInteger
strPropertyInfo = strPropertyInfo & " (Integer)"
Case OlUserPropertyType.olKeywords
strPropertyInfo = strPropertyInfo & " (Keywords)"
Case OlUserPropertyType.olNumber
strPropertyInfo = strPropertyInfo & " (Number)"
Case OlUserPropertyType.olOutlookInternal
strPropertyInfo = strPropertyInfo & " (Outlook Internal)"
Case OlUserPropertyType.olPercent
strPropertyInfo = strPropertyInfo & " (Percent)"
Case OlUserPropertyType.olSmartFrom
strPropertyInfo = strPropertyInfo & " (Smart From)"
Case OlUserPropertyType.olText
strPropertyInfo = strPropertyInfo & " (Text)"
Case OlUserPropertyType.olYesNo
strPropertyInfo = strPropertyInfo & " (Yes/No)"
Case Else
strPropertyInfo = strPropertyInfo & " (Unknown)"
End Select
' Print the name and type of the user-defined property
' to the Immediate window.
Debug.Print strPropertyInfo
Next
End If
End Sub
Methoden
| Name |
|---|
| Delete |
Eigenschaften
| Name |
|---|
| Application |
| Klasse |
| DisplayFormat |
| Formula |
| Name |
| Parent |
| Session |
| Type |
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.