Folders.GetPrevious メソッド (Outlook)

Folders コレクション内の 1 つ前のオブジェクトを取得します。

構文

GetPrevious

expressionFolders オブジェクトを表す変数です。

戻り値

コレクションに格納されている 1 つ前のオブジェクトを表す Folder オブジェクト。

注釈

コレクションの先頭に既に配置されている場合など、前のオブジェクトが存在しない場合は Nothing が返されます。大規模なコレクションで GetFirstGetLastGetNextGetPrevious メソッドの正しい操作を行うために、そのコレクションで GetNext を呼び出す前に GetFirst を呼び出し、GetPrevious を呼び出す前に GetLast を呼び出します。 コレクションの呼び出しを常に行っていることを確認するには、ループに入る前に、そのコレクションを参照する明示的な変数を作成します。

次に示す Visual Basic for Applications の使用例は、 受信トレイ フォルダーのサブフォルダーで " MyPersonalEmails" と呼ばれるフォルダーを検索し、メッセージを表示します。 受信トレイ フォルダーに MyPersonalEmails というサブフォルダーがない場合、この例では何も表示されません。

Sub TestGetPrevious() 
 
 Dim nsp As Outlook.NameSpace 
 
 Dim mpf As Outlook.Folder 
 
 Dim mpfSubFolder As Outlook.Folder 
 
 Dim flds As Outlook.Folders 
 
 Dim idx As Integer 
 
 
 
 Set nsp = Application.GetNamespace("MAPI") 
 
 Set mpf = nsp.GetDefaultFolder(olFolderInbox) 
 
 Set flds = mpf.Folders 
 
 Set mpfSubFolder = flds.GetLast 
 
 Do While Not mpfSubFolder Is Nothing 
 
 If mpfSubFolder.Name = "MyPersonalEmails" Then 
 
 MsgBox "The folder was found." 
 
 Exit Do 
 
 End If 
 
 Set mpfSubFolder = flds.GetPrevious 
 
 Loop 
 
End Sub

関連項目

Folders オブジェクト

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

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