Discussion :

[zooffy]

Hello tout le monde.

Je suis confronté à un souci que je ne comrpends pas malgré ma lecture de la doc et des exemples que je trouve ici, dans les fiches du site.

Je voudrais plonger dans un repertoire que j'ai fais dans Outlook et lire les mails qui sont dedans (c'est pour récupérer des infos dans le texte et le enregistrer en base).

Pour l'instant je tente de trouver le repertoire et il bloc à cet endroit du code que voici :

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
  Dim outlookApp As New Outlook.Application
  Dim olNs As Outlook.NameSpace
  Dim Fldr As Outlook.MAPIFolder
  Dim olMail As Variant
  
  Set olNs = outlookApp.GetNamespace("MAPI")
  Set Fldr = olNs.GetDefaultFolder(olFolderInbox).Folders("MonFolder")
  
  
  Set myItems = Fldr.Items
  
  For Each olMail In myItems
        MsgBox olMail.Subject
  Next

C'est la ligne en gras qui pose souci avec le message suivant :

The attempted operation failed. An object could not be found.

Sauf que je vois pas quel objet lui manque
Aurais oublié de faire une declaration en début de code ?

Si vous avez une idée ou un script qui marche, je suis preneur.

Merci d'avance.

[marot_r]

Bonjour.

D'après

Méthode NameSpace.GetDefaultFolder (Outlook)
https://msdn.microsoft.com/fr-fr/lib.../ff866724.aspx

GetDefaultFolder n'a pas de collection Folders associée.

Ici une discussion sur le sujet :

Reference a folder by name
https://stackoverflow.com/questions/...folder-by-name

A+

[zooffy]

Merci pour ton aide.
Donc si je comprends bien, les repertoires que je fabrique dans Outlook au même niveau que le Inbox, je peux pas les atteindre ou alors j'ai loupe un detail dans l'explication ?

Après, dans mon dev c'est pas très grave, je fais des sous repertoire de Inbox et ça roule, c'est juste que cela faisait plus proper en partant du haut.

Bonne journée.

[marot_r]

Bonjoiur.

Donnc si je comprends bien, les répertoires que je fabrique dans Outlook au même niveau que le Inbox, je peux pas les atteindre ou alors j'ai loupe un detail dans l'explication ?

Je pense que tu peux mais tu ne peux pas l'écrire comme tu l'as fait.
J'imagine (je ne l'ai jamais fait) que tu dois pouvoir faire un truc du genre \\Répertoire\SousRepertoire quand tu spécifies le répertoire que tu veux atteindre.

Ma connaissance du sujet est seulement "Googleesque" pas pratique.

A+

[zooffy]

Ok, merci pour ton aide.

Je vais me contenter des répertoires sous Inbox pour l'instant. Cela ne pose pas plus de problem technique que ça.
Et puis, un jour, je fouillerais pour trouver le moyen de le faire et je remonterais ce topic avec la solution.

Meric à toi et bonne journée.

[Jean-Philippe André]

Salut

Code :

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

1
2
3
 
Set Fldr = OlNS.Folders.GetFirst 'issu de mon cas de figure, adaptable egalement
Set Fldr = Fldr.Folders("Inbox").Folders("Dossier")

[zooffy]

Merci pour ton aide.

Je viens de tester la chose mais cela n'a pas l'air de fonctionner. Il ne me trouve pas mon repertoire.
C'est comme s'il n'arrivait pas à remonter au même niveau que Inbox.

Bonne journée.

[Jean-Philippe André]

Ok,

mets un espion sur la variable folder, et regarde la hierarchie des dossiers.

[zooffy]

OK, j'ai trouvé.

En gros, lorsqu'on fait avec ton code, ça plonge dans la boite de base, Inbox.
Mais si on pointe direct sur le repertoire en haut, ça marche mieux.

Code :

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

1
2
3
4
5
6
7
8
 
Set Fldr = olNs.Folders.GetFirst
  Set Fldr = Fldr.Folders("Tartemolle")
  Set myItems = Fldr.Items
  For Each olMail In myItems
    MsgBox olMail.Subject
  Next
  Exit Sub

Avec ça on lit le Subject de chaque mail dans le repertoire Tartemolle qui est créé sur la boite par elle meme et pas sur le repertoire Inbox (ou "Boite de reception" en français)

Merci pour tout et bonne journée.