Items.FindNext, méthode (Outlook)
Une fois la méthode Find exécutée, cette méthode recherche et retourne l’élément Outlook suivant dans la collection spécifiée.
Syntaxe
expression. FindNext
Expression Variable qui représente un objet Items .
Valeur renvoyée
Valeur Object qui représente l’élément Outlook suivant trouvé dans la collection.
Remarques
L'opération de recherche part de l'emplacement actuel, qui correspond à l'expression précédemment définie à l'aide de la méthode Find.
La méthode renvoie un objet d'élément Outlook si l'appel réussit ; elle renvoie Null (ou Nothing dans Visual Basic) s'il échoue.
Exemple
Cet exemple Visual Basic pour Applications (VBA) utilise la méthode GetDefaultFolder pour renvoyer l’objet Folder qui représente le dossier Calendar par défaut pour l’utilisateur actuel. Il utilise ensuite les méthodes Find et FindNext pour localiser tous les rendez-vous qui se produisent aujourd’hui et les afficher dans une série de boîtes de message.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.