Outlook VBA教程:FindNext方法

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

expression.FindNext

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

VBA示例

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


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

上页:Outlook VBA教程:Find方法 下页:Outlook VBA教程:Forward方法

Outlook VBA教程:FindNext方法:相关链接

Outlook VBA教程:Forward方法 Outlook VBA教程:ForwardAsVcal方法
Outlook VBA教程:ForwardAsVcard方法 Outlook VBA教程:FreeBusy方法
Outlook VBA教程:GetAssociatedAppointment方法 Outlook VBA教程:GetAssociatedTask方法
Outlook VBA教程:GetDefaultFolder方法 Outlook VBA教程:GetExplorer方法
Outlook VBA教程:GetFirst方法 Outlook VBA教程:GetFolderFromID方法
Outlook VBA教程:GetFreeBusy方法 Outlook VBA教程:GetItemFromID方法
Outlook VBA教程:GetLast方法 Outlook VBA教程:GetMember方法
Outlook VBA教程:GetNameSpace方法 Outlook VBA教程:GetNext方法
Outlook VBA教程:GetOccurrence方法 Outlook VBA教程:GetPageInfo方法
Outlook VBA教程:GetPrevious方法 Outlook VBA教程:GetRecipientFromID方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号