Folders.GetNext Method (Outlook)
Published: July 16, 2012
Returns the next object in the Folders collection.
expression A variable that represents a Folders object.
A Folder object that represents the next object contained by the collection.
It returns Nothing if no next object exists, for example, if already positioned at the end of the collection.To ensure correct operation of the GetFirst, GetLast, GetNext, and GetPrevious methods in a large collection, call GetFirst before calling GetNext on that collection, and call GetLast before calling GetPrevious. To ensure that you are always making the calls on the same collection, create an explicit variable that refers to that collection before entering the loop.
The following Visual Basic for Applications example searches the subfolders of Inbox for a folder called MyPersonalEmails and displays a message to the user. If you do not have a subfolder called MyPersonalEmails in your Inbox folder, the example will display nothing.
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