Items.FindNext, méthode (Outlook)

  • Article

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

Éléments, objet

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.