共用方式為


Items.FindNext 方法 (Outlook)

Find 方法執行之後,這個方法會尋找並傳回指定集合中的下一個 Outlook 專案。

語法

運算式FindNext

表達 代表 Items 物件的變數。

傳回值

Object值,代表在集合中找到的下一個 Outlook 專案。

註解

搜尋作業會從目前的位置開始,和運算式之前的設定相符 (透過 Find 方法)。

如果該呼叫成功,這個方法會傳回一個 Outlook 項目物件;如果呼叫失敗,則會傳回 Null (在 Visual Basic 中則是 Nothing)。

範例

這個 Visual Basic for Applications (VBA) 範例會使用 GetDefaultFolder 方法傳回 Folder 物件,代表目前使用者的預設 Calendar 資料夾。 然後,它會使用 FindFindNext 方法來找出今天發生的所有約會,並將其顯示在一系列訊息方塊中。

Sub DemoFindNext() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim tdystart As Date 
 Dim tdyend As Date 
 Dim myAppointments As Outlook.Items 
 Dim currentAppointment As Outlook.AppointmentItem 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 tdystart = VBA.Format(Now, "Short Date") 
 tdyend = VBA.Format(Now + 1, "Short Date") 
 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 
End Sub

另請參閱

Items 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應