次の方法で共有

Items.Add メソッド (Outlook)

  • [アーティクル]

フォルダーの Items コレクションに新しい Outlook アイテムを作成します。

構文

式。足す_Type_

表現Items オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Type 省略可能 バリアント型 (Variant) 新しい項目の Outlook アイテムの種類です。 ユーザー設定フォームを作成するのには、 MessageClass を指定します。 OlItemType クラスは、olAppointmentItem、olContactItem、olJournalItem、olMailItem、olNoteItem、olPostItem、olTaskItem、または任意の有効なメッセージ クラスのいずれかです。

戻り値

新しい Outlook アイテムを表す Object 値です。

解説

指定しない場合、Outlook アイテムの Type プロパティの既定値 MailItem またはフォルダーの種類に親フォルダーが入力されていない場合。

例

この VBA の例は、現在の連絡先フォルダーを取得し、新しい ContactItem オブジェクトを追加し、別の連絡先に基づいてフィールドの初期値を設定します。 エラーなく次の使用例を実行するには、連絡先フォルダー内に存在する連絡先の名前に ' Dan Wilson' を交換してください。

Sub AddContact() 
 Dim myNamespace As Outlook.NameSpace 
 Dim myFolder As Outlook.Folder 
 Dim myItem As Outlook.ContactItem 
 Dim myOtherItem As Outlook.ContactItem 
 
 Set myNamespace = Application.GetNamespace("MAPI") 
 Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts) 
 Set myOtherItem = myFolder.Items("Dan Wilson") 
 Set myItem = myFolder.Items.Add 
 myItem.CompanyName = myOtherItem.CompanyName 
 myItem.BusinessAddress = myOtherItem.BusinessAddress 
 myItem.BusinessTelephoneNumber = myOtherItem.BusinessTelephoneNumber 
 myItem.Display 
End Sub

次に示す VBA のコードは、ユーザー設定フォームを既定のタスクフォルダーに追加する場合の例です。

Sub AddForm() 
 Dim myNamespace As outlook.NameSpace 
 Dim myItems As outlook.Items 
 Dim myFolder As outlook.Folder 
 Dim myItem As outlook.TaskItem 
 
 Set myNamespace = Application.GetNamespace("MAPI") 
 Set myFolder = _ 
 myNamespace.GetDefaultFolder(olFolderTasks) 
 Set myItems = myFolder.Items 
 Set myItem = myItems.Add("IPM.Task.myTask") 
End Sub

関連項目

Items オブジェクト

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

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