Outlook) (UserDefinedProperties.Add 方法

建立新的 UserDefinedProperty 物件，並將它附加至集合。

語法

運算式。新增 (名稱、 類型、 DisplayFormat、 公式)

表達 代表 UserDefinedProperties 物件的 變數。

參數

名稱	必要/選用	資料類型	描述
Name	必要	字串	新使用者定義屬性的名稱。
Type	必要	OlUserPropertyType	新使用者定義屬性的類型。
DisplayFormat	選用	Variant	新使用者定義屬性的顯示格式。 此參數可以設定為數個不同列舉中的某個值，這點必須由 Type 參數中所指定的 OlUserPropertyType 常數決定。 如需 Type 與 DisplayFormat 如何互動的詳細資訊，請參閱 DisplayFormat 屬性。
公式	選用	Variant	用來計算新使用者定義屬性之值的公式。 如果 Type 參數設定為 olCombination 或 olFormula 以外的任何值，此參數便會被忽略。

傳回值

UserDefinedProperty 物件，代表新的使用者定義屬性。

註解

您可以建立 OlUserPropertyType 列舉所定義類型的屬性，但下列類型除外： olEnumeration、 olOutlookInternal和 olSmartFrom。

範例

下列 Visual Basic for Applications (VBA) 範例會使用 Add 方法來建立及新增數個 UserDefinedProperty 物件至 [收件匣] 預設資料夾。

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

另請參閱

UserDefinedProperties 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。