[OL 2003] Consulter/ajouter dans Base Access depuis formulaire Outlook

Marsh Posté le 31-03-2011 à 17:04:09

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 :

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 ca plus tard... [:tinostar]

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. :jap:

Message édité par depardieu le 08-04-2011 à 10:39:58

Reply

Marsh Posté le 31-03-2011 à 17:04:09

Reply

Marsh Posté le 31-03-2011 à 19:27:23

Salut, n'ayant pas OutLook qqs liens : http://access.developpez.com/faq/?page=Outlook http://excel.developpez.com/faq/?page=Messagerie

Reply

Marsh Posté le 01-04-2011 à 12:01:10

Pour ma part je récupere tous les mails qui sont dans un dossier specifique.
Si le dossier n'existe pas a l'origine access le créé.

Je prends donc mes mails a "exporter" sous access, je les mets dans le dit dossier.
Ensuite je boucle sur tous les mais du dossier et je fais correspondre les champs Outlook à ceux de mes differentes tables.

Si ca t'interresse...

---------------
Soyez malin, louez entre voisins !

Reply

Marsh Posté le 08-04-2011 à 10:21:29

Thx pour les réponses, oublié de venir checker ici...

J'ai résolu mon problème pour récupérer les infos du mail, si ca interesse du monde :

Code :

.
Dim olApp As Outlook.Application
Dim olExp As Outlook.Explorer
Dim olSel As Outlook.Selection
Dim myitem As Object
Set olApp = Outlook.Application
Set olExp = olApp.ActiveExplorer
Set olSel = olExp.Selection
For Each myitem In olSel
'récupération des infos des mails sélectionnés :
myitem.Subject
myitem.Body
myitem.ReceivedByName
myitem.ReceivedTime
'...
Next

Je réussit donc bien à 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.

Maintenant 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...