Folders.Add メソッド (Outlook)

  • [アーティクル]

Folders コレクションに新しいフォルダーを作成します。

構文

式。Add (Name, Type)

expression は Folders オブジェクトを表す変数です。

パラメーター

名前 必須 / オプション データ型 説明
名前 必須 文字列型 (String) 新しいフォルダーの表示名を指定します。
型 省略可能 長整数型 (Long) 新しいフォルダーの Outlook フォルダーの種類。 フォルダーの種類が指定されていない場合、新しいフォルダー既定値は、そのフォルダーが作成されたフォルダーと同じ種類になります。 OlDefaultFolders クラスの定数は、olFolderCalendar、olFolderContacts、olFolderDrafts、olFolderInbox、olFolderJournal、olFolderNotes、または olFolderTasks のいずれかです。 定数 olFolderConflicts 、 olFolderDeletedItems 、 olFolderJunk 、 olFolderLocalFailures 、 olFolderManagedEmail 、 olFolderOutbox 、 olFolderRssSubscriptions 、 olFolderSentMail 、 olFolderServerFailures 、 olFolderSyncIssues 、 olFolderToDo 、および olPublicFoldersAllPublicFolders は、この引数には指定できません。

戻り値

新しいフォルダーを表す Folder オブジェクト。

例

この VBA の例では 、 Add メソッドを使用して、"My Contacts" という名前の新しいフォルダーを現在の (既定の) 連絡先フォルダーに追加します。

Sub AddContactsFolder() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim myFolder As Outlook.Folder 
 Dim myNewFolder As Outlook.Folder 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts) 
 Set myNewFolder = myFolder.Folders.Add("My Contacts") 
End Sub

この VBA の例では 、Add メソッドを使用して、Tasks フォルダーに 3 つの新しいフォルダーを追加します。 最初のフォルダーである Notes フォルダーには、メモ項目が含まれます。 2 番目のフォルダーである連絡先フォルダーには、連絡先アイテムが含まれます。 3 番目のフォルダーであるパブリック フォルダーは、パブリック フォルダーになります。 フォルダーがすでに存在している場合は、メッセージ ボックスでユーザーに通知します。

Sub AddFolders() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim myFolder As Outlook.Folder 
 Dim myNotesFolder As Outlook.Folder 
 Dim myContactsFolder As Outlook.Folder 
 Dim myPublicFolder As Outlook.Folder 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderTasks) 
 On Error GoTo ErrorHandler 
 Set myNotesFolder = myFolder.Folders.Add("Notes Folder", olFolderNotes) 
 Set myContactsFolder = myFolder.Folders.Add("Contacts Folder", olFolderContacts) 
 Set myPublicFolder = myFolder.Folders.Add("Public Folder", olPublicFoldersAllPublicFolders) 
 Exit Sub 
ErrorHandler: 
 MsgBox "This folder already exists!" 
 Resume Next 
End Sub

関連項目

Folders オブジェクト

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

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