Items.FindNext 方法 (Outlook)
在 Find 方法執行之後,這個方法會尋找並傳回指定集合中的下一個 Outlook 專案。
語法
運算式。FindNext
表達 代表 Items 物件的變數。
傳回值
Object值,代表在集合中找到的下一個 Outlook 專案。
註解
搜尋作業會從目前的位置開始,和運算式之前的設定相符 (透過 Find 方法)。
如果該呼叫成功,這個方法會傳回一個 Outlook 項目物件;如果呼叫失敗,則會傳回 Null (在 Visual Basic 中則是 Nothing)。
範例
這個 Visual Basic for Applications (VBA) 範例會使用 GetDefaultFolder 方法傳回 Folder 物件,代表目前使用者的預設 Calendar 資料夾。 然後,它會使用 Find 和 FindNext 方法來找出今天發生的所有約會,並將其顯示在一系列訊息方塊中。
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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。