Folders.GetNext メソッド (Outlook)

  • [アーティクル]

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

構文

式。 GetNext

expression は Folders オブジェクトを表す変数です。

戻り値

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

注釈

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

例

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

Sub TestGetNext() 
 
 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.GetFirst 
 
 Do While Not mpfSubFolder Is Nothing 
 
 If mpfSubFolder.Name = "MyPersonalEmails" Then 
 
 MsgBox "The folder was found." 
 
 Exit Do 
 
 End If 
 
 Set mpfSubFolder = flds.GetNext 
 
 Loop 
 
End Sub

関連項目

Folders オブジェクト

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

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