次の方法で共有

UserDefinedProperties.Add メソッド (Outlook)

  • [アーティクル]

新しい UserDefinedProperty オブジェクトを作成し、コレクションに追加します。

構文

式。追加 (名前、 型、 DisplayFormat、 数式)

式UserDefinedProperties オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
名前 必須 String ユーザー定義プロパティの名前。
Type 必須 OlUserPropertyType 新しいユーザー定義プロパティの種類を指定します。
DisplayFormat 省略可能 バリアント型 (Variant) 新しいユーザー定義プロパティの表示形式です。 このパラメーターは、1 つ になります Typeパラメーターで指定された特定のいくつかの異なる列挙の値を設定できます。 Type と DisplayFormat がどのように相互作用するかの詳細については、「DisplayFormat プロパティ」を参照してください。
式 省略可能 バリアント型 (Variant) 新しいユーザー定義プロパティの値を計算するために使用する数式です。 Type パラメーターが olCombination または olFormula 以外の値に設定されている場合、このパラメーターは無視されます。

戻り値

新しいユーザー定義のプロパティを表す UserDefinedProperty オブジェクトを指定します。

注釈

OlUserPropertyType列挙体の次の種類以外で定義されている型のプロパティを作成することができます: olEnumeration、 olOutlookInternal、および olSmartFrom。

例

次の Visual Basic for Applications (VBA) の例を作成し、既定の 受信トレイフォルダーに複数の UserDefinedProperty オブジェクトを追加する Add メソッドを使用します。

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 のサポートおよびフィードバックを参照してください。