Items. Add メソッド (Outlook)Items.Add method (Outlook)

フォルダーの**Items** コレクションに新しい Outlook アイテムを作成します。Creates a new Outlook item in the Items collection for the folder.


追加_Type_expression.Add _Type_

Itemsオブジェクトを表す変数を取得します。expression A variable that represents an Items object.


名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
TypeType 省略可能Optional VariantVariant 新しい項目の Outlook アイテムの種類です。The Outlook item type for the new item. カスタムフォームを作成する**messageclass** を指定します。Specifies a MessageClass to create custom forms. OlItemType 定数は、次のいずれか: olAppointmentItemolContactItemolJournalItemolMailItemolNoteItemolPostItem 、または olTaskItem 、または任意の有効なメッセージ クラスです。Can be one of the following OlItemType constants: olAppointmentItem, olContactItem, olJournalItem, olMailItem, olNoteItem, olPostItem, or olTaskItem,, or any valid message class.

戻り値Return value

新しい Outlook アイテムを表す Object 値です。An Object value that represents the new Outlook item.


指定しない場合、Outlook アイテムのtypeプロパティの既定値はフォルダーの種類になり、親フォルダーが入力されていない場合は**MailItem** になります。If not specified, the Type property of the Outlook item defaults to the type of the folder or to MailItem if the parent folder is not typed.


この VBA の例は、現在の連絡先フォルダーを取得し、新しい ContactItem オブジェクトを追加し、別の連絡先に基づいてフィールドの初期値を設定します。This VBA example gets the current Contacts folder and adds a new ContactItem object to it and sets some initial values in the fields based on another contact. エラーなく次の使用例を実行するには、連絡先フォルダー内に存在する連絡先の名前に ' Dan Wilson' を交換してください。To run this example without any error, replace 'Dan Wilson' with a valid contact name that exists in your Contacts folder.

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 
End Sub

次に示す VBA のコードは、ユーザー設定フォームを既定のタスクフォルダーに追加する場合の例です。This VBA example adds a custom form to the default Tasks folder.

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 = _ 
 Set myItems = myFolder.Items 
 Set myItem = myItems.Add("IPM.Task.myTask") 
End Sub

関連項目See also

Items オブジェクトItems Object

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.