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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [OL 2003] Consulter/ajouter dans Base Access depuis formulaire Outlook

depardieu

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

Publicité

kiki29

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

SuppotDeSaTante

Aka dje69r

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 !

depardieu

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

Message édité par depardieu le 08-04-2011 à 10:30:09

SuppotDeSaTante

Aka dje69r

Exactement de la meme maniere que tu déclares ton objet olApp tu fais de meme avec ta base Access et tu auras accès à tout.

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

depardieu

Ok. [:transparency]

Si tu as un exemple sous la main, je suis preneur. Rien trouvé de concluant sur le net.

depardieu

Avec ADODB.Connection ca focntionne.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
Envoie E mail Automatique VB	[php] Envoyer resultat requete plusieurs ligne par mail
Apache sur un Windows Server 2003 - Gestion des droits	Programmation E-Mail Automatique
Probème d'accent dans le sujet de mail PHP	mailer daemon, mail undelivered
Récupérer les infos d'un payeur paypal	Ajout de pièce jointe dans un mail
copier lignes excel et coller dans corps de mail outlook (VBA)	RESOLU [Access 2003] Requête jointure et union
Plus de sujets relatifs à : [OL 2003] Consulter/ajouter dans Base Access depuis formulaire Outlook

Page générée en 0.053 secondes