Folders.GetPrevious メソッド (Outlook)

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

構文

expression. GetPrevious

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

戻り値

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

解説

コレクションの 先頭に 既に配置されている場合など、前のオブジェクトが存在しない場合は Nothing を返します。大規模なコレクション内の GetFirst **、GetLast、GetNext、**および GetPrevious メソッドの正しい操作を確実に行う場合は、そのコレクションで 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 のサポートおよびフィードバックを参照してください。