Stores オブジェクト (Outlook)
現在のプロファイルで利用できるすべてのストアを表す Store オブジェクトの集合です。
Stores オブジェクトと Store オブジェクトを使用して、現在のセッションのすべてのストアのすべてのフォルダーと検索フォルダーを列挙します。 フォルダーとストアへの Outlook アイテムの保存の詳細については、「Outlook のアイテムを保存する」を参照してください。
次の Microsoft Visual Basic for Applications (VBA) の例は、セッションのすべてのストアのすべてのフォルダーを列挙します。
Sub EnumerateFoldersInStores()
Dim colStores As Outlook.Stores
Dim oStore As Outlook.Store
Dim oRoot As Outlook.Folder
On Error Resume Next
Set colStores = Application.Session.Stores
For Each oStore In colStores
Set oRoot = oStore.GetRootFolder
Debug.Print (oRoot.FolderPath)
EnumerateFolders oRoot
Next
End Sub
Private Sub EnumerateFolders(ByVal oFolder As Outlook.Folder)
Dim folders As Outlook.folders
Dim Folder As Outlook.Folder
Dim foldercount As Integer
On Error Resume Next
Set folders = oFolder.folders
foldercount = folders.Count
'Check if there are any folders below oFolder
If foldercount Then
For Each Folder In folders
Debug.Print (Folder.FolderPath)
EnumerateFolders Folder
Next
End If
End Sub
名前 |
---|
アイテム |
Outlook オブジェクト モデル リファレンスストア オブジェクト メンバー
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。