全部显示

FindNext 方法

运行 Find 方法后，此方法查找并返回指定集合中的下一个 Microsoft Outlook 项目。此搜索操作从当前位置开始，并与以前用 Find 方法设置的表达式匹配。

expression  必选。该表达式返回 Item 集合对象。

示例

本 Visual Basic for Applications 示例使用 GetDefaultFolder 方法返回表示当前用户的默认“日历”文件夹的 MAPIFolder 对象。然后使用 Find 和 FindNext 方法查找今天发生的所有约会，并用一系列邮件框显示这些约会。

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
tdystart = Format(Date, "Short Date") & " 12:00 AM"
tdyend = Format(Date, "Short Date") & " 11:59 PM"
Set myAppointments = myNameSpace.GetDefaultFolder _
    (olFolderCalendar).Items
Set currentAppointment = myAppointments.Find("[Start] >= """ & _
    tdystart & """ and [Start] <= """ & tdyend & """")
While TypeName(currentAppointment) <> "Nothing"
    MsgBox currentAppointment.Subject
    Set currentAppointment = myAppointments.FindNext
Wend