Columns.Add メソッド (Outlook)

  • [アーティクル]

[名前] で指定された Column を Columns コレクションに追加し、Table をリセットします。

構文

式。Add (Name)

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

パラメーター

名前 必須 / オプション データ型 説明
名前 必須 String 列として追加されるプロパティの名前を指定します。

戻り値

新しい列を表す Column オブジェクトを返します。

注釈

Columns.Add は、 テーブル の Columns コレクションの末尾に指定した 列 を追加し、 テーブル の最初の行の直前に現在の行に移動して、 テーブル をリセットします。 Columns.Add がエラーを返した場合、現在の行は変更されません。

Name には、明示的な組み込みプロパティ名、または名前空間により参照されるプロパティ名を指定することができます。 このパラメーターは、英語ロケールの名前として指定する必要があります。 名前空間によるプロパティの参照の詳細については、「名前空間でプロパティを参照する」を参照してください。

オブジェクト モデルで明示的な組み込みプロパティであるプロパティ ( Contact.FirstName など) を追加する場合は、明示的な組み込みプロパティ名として Name を英語で指定する必要があります。 特定の テーブル 内の値を表現する方法に影響を与えるこれらのプロパティを列として追加するときに使用する形式のプロパティの型。 Table でのプロパティ値表示の詳細については、「Table クラスと View クラスのプロパティ値表示に影響を与える要因」を参照してください。

MAPI 文字列名前空間でプロパティを参照して 、カスタム プロパティを Table に追加する場合は、プロパティ参照の末尾にプロパティの型を明示的に追加する必要があります。 たとえば、Unicode 型の文字列を持つカスタム プロパティ MyCustomPropertyを追加するには、型 001f を参照に明示的に追加する必要があります。その結果、 は http://schemas.microsoft.com/mapi/string/{HHHHHHHH-HHHH-HHHH-HHHH-HHHHHHHHHHHH}/MyCustomProperty/0x0000001f{HHHHHHHH-HHHH-HHHH-HHHH-HHHHHHHHHHHH} 名前空間 GUID を表します。

Columns.Add 、バイナリ プロパティ、計算されたプロパティは、HTML または rtf 形式の本文の内容などを使用して テーブル には、特定のプロパティを追加できません。 詳細については、「Table オブジェクトまたは Table フィルターのサポートされていないプロパティ」を参照してください。

Items.SetColumns を使用して、キャッシュ 項目 のコレクションのプロパティに非常に高速アクセスの特定のプロパティを容易にできますが、いくつかのプロパティは、 SetColumns から制限されています。 これらの制限は Columns.Add には適用されないため、 Table オブジェクトは Items よりも制限の厳しい代替手段です。

例

次のコード サンプルは、受信トレイ内のアイテムの LastModificationTime に基づいて Table オブジェクトを取得する方法を示しています。 テーブル の既定の列を削除する、特定の列を追加、およびこれらの項目の対応するプロパティの値を印刷する方法も示します。

Sub AddColumns() 
 
 'Declarations 
 
 Dim Filter As String 
 
 Dim oRow As Outlook.Row 
 
 Dim oTable As Outlook.Table 
 
 Dim oFolder As Outlook.Folder 
 
 
 
 'Get a Folder object for the Inbox 
 
 Set oFolder = Application.Session.GetDefaultFolder(olFolderInbox) 
 
 
 
 'Define Filter to obtain items last modified after May 1, 2005 
 
 Filter = "[LastModificationTime] > '5/1/2005'" 
 
 'Restrict with Filter 
 
 Set oTable = oFolder.GetTable(Filter) 
 
 
 
 'Remove all columns in the default column set 
 
 oTable.Columns.RemoveAll 
 
 'Specify desired properties 
 
 With oTable.Columns 
 
 .Add ("Subject") 
 
 .Add ("LastModificationTime") 
 
 'PR_ATTR_HIDDEN referenced by the MAPI proptag namespace 
 
 .Add ("http://schemas.microsoft.com/mapi/proptag/0x10F4000B") 
 
 End With 
 
 
 
 'Enumerate the table using test for EndOfTable 
 
 Do Until (oTable.EndOfTable) 
 
 Set oRow = oTable.GetNextRow() 
 
 Debug.Print (oRow("Subject")) 
 
 Debug.Print (oRow("LastModificationTime")) 
 
 Debug.Print (oRow("http://schemas.microsoft.com/mapi/proptag/0x10F4000B")) 
 
 Loop 
 
End Sub

関連項目

列オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。