Discussion :

[EE]

Bonsoir.... ON doit me prendre pour un fou ...
Actuellement je recois des PJ au format txt que je dois réimporter dans ma base access...
Je recois le mail .. je copie le fichier dans un répertoire , j'ouvre la base, je fais appel au fichher et j'importe ....

Laborieux...
j'envoie des mail avec PJ via Access... le process inverse existerait il par..... miracle... ou quelqu'un a t il une idée??

Merci

[Aurèl90]

Pas certain de comprendre ton pb :
tu veux renvoyer des fichiers txt après traitement par Access ?

[Tofalu]

Oui ça doit être possible en examinant la liste des objet mail de la boite de reception. Reste à trouver les bonnes propriétés à l'aide de l'explorateur d'objet.


Un exemple tout simple pour parcourir la boite de réception :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub outlookMail()
Dim oApp As New outlook.Application
Dim oSpc As outlook.NameSpace
Dim oInBox As outlook.MAPIFolder
Dim oMail As outlook.MailItem
'Recupere l'espace MAPI
Set oSpc = oApp.GetNamespace("MAPI")
'Recupere la boite de reception
Set oInBox = oSpc.GetDefaultFolder(olFolderInbox)
'Parcours les objets mails
For Each oMail In oInBox.Items
  MsgBox oMail.Subject
Next oMail
End Sub

A noter que ceci est réaliser uniquement à l'aide de la documentation de l'explorateur d'objet F2. C'est vraiment important cet outil. Car à partir de 0 connaissance on est capable ou presque d'explorer n'importe quelle piste.