Discussion :

[radinor]

Bonjour à tous,

Environnement : Outlook Office 2021, sous Windows 11

Je n'ai qu'un compte et le dossier "Boite de réception".

J'essaie de parcourir les 3822 emails de la "Boite de réception" avec un script trouvé sur internet mais il n'entre pas dans la boucle for each ?
J'ai essayé avec une dizaine d'autres scripts, c'est pareil.

Pour info, j'arrive bien à trouver des mails sélectionnés, mais c'est un script différent.

Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Sub ParcourirInBox()
 
' https://outlook.developpez.com/faq/?page=VBA#VBA_Parcourir_InBox
 
Dim oMail As MailItem
Dim myFolder As Folder
Dim myOlApp As Outlook.Application
Dim myNamespace As Namespace
 
 
Set myOlApp = Outlook.Application
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
For Each oMail In myFolder.Items
    Debug.Print oMail.Subject
Next oMail
End Sub

ci-après l'application Oulook

[joe.levrai]

Bonjour,

la procédure est correcte.

En revanche, es-tu certain que la boucle for each ne s'active pas ? Le résultat du debug.print est visible dans la fenêtre d'exécution (Ctrl+g)