Folders.GetNext 方法 (Outlook)

返回 Folders 集合中的下一个对象。

语法

expressionGetNext

表达 一个代表 Folders 对象的变量。

返回值

一个表示集合包含的下一个对象的 Folder 对象。

备注

如果不存在下一个对象(例如,如果已定位在集合的末尾),则返回 Nothing。若要确保在大型集合中正确操作 GetFirstGetLastGetNextGetPrevious 方法,请在调用该集合上的 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

另请参阅

文件夹对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。