次の方法で共有

Folder.Folders プロパティ (Outlook)

  • [アーティクル]

指定された Folders に含まれているすべてのフォルダーを表す Folder コレクションを取得します。 値の取得のみ可能です。

構文

式。 Folders

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

注釈

NameSpace オブジェクトは、特定の名前空間のすべてのフォルダーの親フォルダーです。

例

次の Visual Basic for Applications (VBA) の例は、 Folders.Add メソッドを使用して、既定の 連絡先フォルダーに "My Personal Contacts" という名前の新しいフォルダーを追加します。

Sub CreatePersonalContacts() 
 
 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 Personal Contacts") 
 
End Sub

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

Sub CreateFolders() 
 
 Dim myNamespace As Outlook.NameSpace 
 
 Dim myFolder As Outlook.Folder 
 
 Dim myNotesFolder As Outlook.Folder 
 
 Dim myContactFolder As Outlook.Folder 
 
 
 
 Set myNamespace = Application.GetNamespace("MAPI") 
 
 Set myFolder = myNamespace.GetDefaultFolder(olFolderTasks) 
 
 On Error GoTo ErrorHandler 
 
 Set myNotesFolder = _ 
 
 myFolder.Folders.Add("My Notes Folder", olFolderNotes) 
 
 Set myContactFolder = _ 
 
 myFolder.Folders.Add("My Contacts Folder", olFolderContacts) 
 
 Exit Sub 
 
ErrorHandler: 
 
 MsgBox "Error creating the folder. The folder may already exist." 
 
 Resume Next 
 
End Sub

関連項目

フォルダー オブジェクト

フォルダー オブジェクトのメンバー

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

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