ダイレクトに目的のフォルダを指定する方法は？

質問

全てのフォルダをループするのではなく、
ダイレクトに目的のフォルダを指定する方法はありますか？

アクセスからアウトルックの該当のフォルダの中身を取得したいのですが
下記コードで目的通り取得できるのですが
コードが遠回りの気がします。

ダイレクトにフォルダを指定する方法があれば教えてください。

Sub test()
Dim myNaSp As Namespace
Dim myFolder As MAPIFolder
Dim mySecFolder As MAPIFolder
Dim myThrFolder As MAPIFolder
Dim FolderName As String
Dim myItem As MailItem

Dim myindex As Long

Set cn = CurrentProject.Connection
Set myNaSp = GetNamespace("MAPI")

For Each myFolder In myNaSp.GetDefaultFolder(olFolderInbox).Folders

For myindex = 1 To myFolder.Items.Count
Set myItem = myFolder.Items(myindex)

If myFolder.Name = "ｔｅｓｔフォルダ" Then

Debug.Print myItem.Body
End If

Next

Next

Set myNaSp = Nothing
Set myFolder = Nothing
End Sub

回答No.1

m3_maki · ベストアンサー

Set myFolder = myNaSp.GetDefaultFolder(olFolderInbox).Folders("ｔｅｓｔフォルダ")

For myindex = 1 To myFolder.Items.Count
　　Set myItem = myFolder.Items(myindex)

　　Debug.Print myItem.Body

Next

とか。
.

お礼

できるんですね！ご回答ありがとうございました！！