Discussion :

[ndurieu]

Bonjour,
j'ai essayer une variante de la faq "Comment parcourir les messages présents dans la boîte de réception ?"

seul souci ca plante

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
Sub ParcourirInBox()
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.Folders("Boîte aux lettres - Production ").Folders("Boîte de réception")
 
For Each oMail In myFolder.Items
    Debug.Print oMail.Subject
Next oMail
 
End Sub

J'ai juste changer la ligne Set myFolder = myNamespace.Folders("Boîte aux lettres - Production ").Folders("Boîte de réception")

avez-vous une explication ?

[Oliv-]

Salut,
un espace en trop après PRODUCTION ?

[ndurieu]

meme sans l'espace.

En fait c'est "Boîte aux lettres - Production - Partenaire 1"