Discussion :

[Psycadi]

Bonjour à tous,

J'ai 2 petites questions (je ne sais pas trop si c'est le bon forum).

Voilà, je voudrais savoir si c'était possible depuis access de lire une boite de réception avec du code VBA. (parcourir tous les mails).

Et surtout, s'il était possible de le faire même si la boite de messagerie n'est pas ouverte.

En effet, je dois attaquer une boite de messagerie générique qui n'est pas forcément ouverte la session outlook en cours chez l'utilisateur.

Merci de votre aide

[Jean-Philippe André]

salut,
c'est tout à fait possible, un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim olkapp As Outlook.Application
Dim olknamespace As Outlook.NameSpace
Dim olkfoldtmp As Outlook.Folder
Dim olkMailtmp As Outlook.MailItem
 
Set olkapp = CreateObject("Outlook.application")
Set olknamespace = olkapp.GetNamespace("MAPI")
 
For Each olkMailtmp In olknamespace.Folders("Boîte aux lettres - JPCheck").Folders("DVP").Items
    If olkMailtmp.UnRead Then
    Debug.Print Format(olkMailtmp.ReceivedTime, "YYYY/MM/dd")

attention à bien ajouter la référence d'Outlook

[Psycadi]

Salut

Merci pour ta réponse,

J'ai modifié un peu le code pour atteindre la Inbox mais il y a une chose que je ne comprends pas.

Je suis obligé de faire

Code :

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

For Each olkMailtmp In olknamespace.Folders("Boîte aux lettres - Ma  Boite").Folders(1).Items

Au lieu de :

Code :

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

For Each olkMailtmp In olknamespace.Folders("Boîte aux lettres - ma Boite").Folders(olFolderInbox).Items

Du coup, je voudrais savoir si c'était normal et si ça marcherai sur des pc différents?

[Jean-Philippe André]

salut,
ton ofolderinbox sort d'où ? ^^

[Psycadi]

le olFolderInbox, c'est une constante de VBA (si on fait référence à Outlook je pense) qui devrait correspondre à la inbox.