UserProperties.Add メソッド (Outlook)
UserProperties コレクションに新しいユーザー設定プロパティを作成します。
構文
式。Add (名前、 型、 AddToFolderFields、 DisplayFormat)
式UserProperties オブジェクトを表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| 名前 | 必須 | String | プロパティの名前です。 最大長は、64 文字です。 文字の場合、' ['、']'、'_' と '#' では、名前では使用できません。 |
| Type | 必須 | OlUserPropertyType | 新しいプロパティの種類を指定します。 |
| AddToFolderFields | 省略可能 | ブール型 (Boolean) | True プロパティ ユーザー設定フィールドとしてでは、アイテムをフォルダーに追加する場合。 フォルダーのビューでは、このフィールドを表示することができます。 場合は false プロパティは、フォルダーではなく、アイテムにユーザー設定フィールドとして追加されます。 既定値は、 true を指定 します。 |
| DisplayFormat | 省略可能 | 長整数型 (Long) | Outlook のユーザー インターフェイスでのプロパティの表示方法を指定します。 このパラメーターは、1 つ になります Typeパラメーターで指定された特定のいくつかの異なる列挙の値を設定できます。 Type と DisplayFormat がどのように相互作用するかの詳細については、「DisplayFormat プロパティ」を参照してください。 |
戻り値
新しいプロパティを表す UserProperty オブジェクト。
注釈
Outlook アイテムまたはフォルダー、またはフォルダーの UserDefinedProperties.Add メソッドの UserProperties.Add メソッドを呼び出すことによって、カスタム プロパティを定義できます。
OlUserPropertyType列挙体の次の種類以外で定義されている型のプロパティを作成することができます: olEnumeration、 olOutlookInternal、および olSmartFrom。
UserProperties.Add メソッドによって作成されたプロパティを最初に設定するには、 SetPropertiesPropertyAccessor オブジェクトの SetProperty メソッドの代わりに UserProperty.Value プロパティを使用します。
アイテムのカスタム プロパティを表示する場合は、そのプロパティを作成する UserProperties.Add メソッドを使用する必要があります。 PropertyAccessor によって作成されたカスタム プロパティは、カスタム ビューではサポートされていません。
Word ファイル、Excel ファイル、PowerPoint ファイルなどの Office ドキュメントのアイテムにカスタム プロパティを追加することはできません。 プログラミングによってユーザー定義フィールドを DocumentItem オブジェクトに追加しようとすると、エラーが発生します。
例
次に示す VBA のコードは、新しい ContactItem オブジェクトを作成し、カスタム プロパティとして "LastDateSpokenWith" を追加する場合の例です。
Sub AddUserProperty()
Dim myItem As Outlook.ContactItem
Dim myUserProperty As Outlook.UserProperty
Set myItem = Application.CreateItem(olContactItem)
Set myUserProperty = myItem.UserProperties _
.Add("LastDateSpokenWith", olDateTime)
myItem.Display
End Sub
次に示す VBA のコードは、新しい ContactItem オブジェクトを作成し、ユーザー プロパティとして "Details" を追加する場合の例です。 値は、UserProperty オブジェクトの Value プロパティを変更することによって設定されます。
Sub AddUserProperty()
Dim myItem As Outlook.ContactItem
Dim myUserProperty As Outlook.UserProperty
Set myItem = Application.CreateItem(olContactItem)
Set myUserProperty = myItem.UserProperties _
.Add("Details", olText)
myUserProperty.Value = "Neighbor"
myItem.Display
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。