[OL 2003] Récupérer infos mail

[sentenza]

Bonjour,

J'aimerais récupérer les infos d'un mail quand je suis sous Outlook.
Je me positionne manuellement sur le mail, et je lance la macro suivante :

Code :

1
2
3
4
5
6
7
8
9
Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    Dim mapDossier As Outlook.MAPIFolder
    Dim strResultat As String
 
    Set olApp = Outlook.Application
    Set mapDossier = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
 
    MsgBox olMail.Body

Je veux ainsi récupérer le titre du mail, le corps, et les traiter afin d'enrichir une base Access.

Je voudrais faire ensuite un formulaire présaisi avant validation, m'enfin on verra plus tard, deja que la récupération d'infos me pose probleme...

Le msg d'erreur est le suivant :

Code :

Variable objet ou variable bloc With non défini

sur la ligne du msgbox

Thx si vous avez des pistes.

[carden752]

Bonjour,

Tu as effectivement déclaré ta variable olMail mais tu ne l'as pas initialisé.

Code :

set olMail = mapDossier.Items(1) 'par exemple

ou

Code :

for each olMail in mapDossier.Items

pour traiter tous les items de ce dossier

[sentenza]

Merci !

C'est bien ça, je savais que c'etait une connerie...

Va falloir juste que je trouve l'index a mettre à la place du 1 qui correspond au mail sur lequel je suis positionné et ca sera parfait.

[sentenza]

Bon, suite de mes aventures...

Je réussit à récupérer les infos désirées du mail sélectionné, et de les exploiter en faisant apparaître un formulaire avec ces infos, ainsi que d'autres champs à saisir.

J'aimerais enregistrer un nouvel enregistrement dans une base Access à partir de ce formulaire, en ayant préalablement vérifié que cet enregistrement n'existe pas.

Mais comment faire un DLookUp ou une requête SQL d'ajout vu qu'il ne sait pas quelle base access attaquer ?
En effet pas de BDD liée dans Outlook, ou de recordsource lié au formulaire...


Je seche un peu là...

[sentenza]

Pas trouver où modifier le titre du thread, je ne peux editer le 1er message visiblement.