Exporter données d'un formulaire Outlook vers une base Access

**Fredo67** · 27/11/2007, 22h02

Bonjour,
après 2 jours de recherche sur le net je ne trouve pas de solution à mon problème.

J'ai créé un formulaire Outlook, ce formulaire fonctionne bien.

Existe il un moyen d'exporter la valeur de mes champs contenus dans ce formulaire Outlook vers une base de données Access ?
Je cherche des infos à ce sujet mais je ne trouve rien.

D'avance merci !

**pc75** · 28/11/2007, 08h05

Bonjour,

Dans le code du formulaire (Menu Formulaire => Afficher le code) tu places ce code dans un évenement (par ex dans Item_Send() :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function Item_Send()
   ' Mise à jour de la base de données
   connstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=G:\SOMI\BER\Essai.mdb"
   Set Conn = CreateObject("ADODB.Connection")
   Conn.Open (connstring)
   MySQL = ""
   MySQL = MySQL & "insert into Table1 "
   MySQL = MySQL & "values ('" & Item.GetInspector.ModifiedFormPages("p. 2").Controls("txtMail").Text & "')"
   Conn.Execute (MySQL)
   .....

**Fredo67** · 29/11/2007, 14h04

J'ai testé ton code.
ça ne semble pas marcher

et j'ai aucun message d'erreur.
Dur de trouver d'où vient le problème...

**Fredo67** · 29/11/2007, 14h19

Je suppose que ton code s'applique pour la bdd Essai.mdb contenant la table "table1"
Dois je obligatoirement faire référence à l'onglet "p. 2" de mon formulaire ? il n'y a aucune données dessus, tout est sur l'onget "message".
J'imagine que txtMail est le champ stocké dans ton formulaire, y'a t'il une précision du nom du champ destination dans la table1 ?

Je continue à chercher

**DMboup** · 29/11/2007, 14h40

Si c'est à partir d'Outlouk que tu souhaite faire l'exportation, je crois qu'il faut aller au forum adéquat ici

Si c'est à partir d'Access, montres nous ce que tu as fait.

**pc75** · 29/11/2007, 15h25

Envoyé par Fredo67

Je suppose que ton code s'applique pour la bdd Essai.mdb contenant la table "table1"
Dois je obligatoirement faire référence à l'onglet "p. 2" de mon formulaire ? il n'y a aucune données dessus, tout est sur l'onget "message".
J'imagine que txtMail est le champ stocké dans ton formulaire, y'a t'il une précision du nom du champ destination dans la table1 ?

Je continue à chercher

J'ai effectivement une base nommée Essai.mdb avec une table "table1" qui contient un saul champ.
Si ta base doit contenir plusieurs champs, il faut midifier la requête :

Code :

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

1
2
3
4
5
6
7
 
   MySQL = ""
   MySQL = MySQL & "insert into Table1 "
   MySQL = MySQL & "(champ1, champ2, champ3) "
   MySQL = MySQL & "values ('" & Item.GetInspector.ModifiedFormPages("p. 2").Controls("txt1").Text & "',"
   MySQL = MySQL & "values ('" & Item.GetInspector.ModifiedFormPages("p. 2").Controls("txt2").Text & "',"
   MySQL = MySQL & "values ('" & Item.GetInspector.ModifiedFormPages("p. 2").Controls("txt3").Text & "')"

Si tu n'as pas d'onglet, essaie de remplacer "p. 2" par "message"

**Fredo67** · 04/12/2007, 11h44

bon j'ai tout essayé, il ne se passe rien du tout dans ma base access

Je vois vraiment pas où chercher, help !!!!

**Fredo67** · 04/12/2007, 11h48

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Function Item_Send()
' Mise à jour de la base de données 
' ma base est sur la racine C:\
connstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\comptes.mdb" 
Set Conn = CreateObject("ADODB.Connection") 
Conn.Open (connstring) 
MySQL = ""
' Ma table s'appelle "Table1"
MySQL = MySQL & "insert into Table1"
'Le champ dans la table1 s'appelle "Nom"
MySQL = MySQL & "(Nom)"
'Mes champs de saisie sont sur l'onglet "Message" et un des champ s'appelle "PPNom"
MySQL = MySQL & "values ('" & Item.GetInspector.ModifiedFormPages("message").Controls("PPNom").Text & "')" 
Conn.Execute (MySQL)
 
End Function

J'ai ajouté les commentaires pour que vous compreniez mieux, si vous avez une idée !

**pc75** · 04/12/2007, 12h07

Re,

Juste avant la ligne :

Conn.Execute (MySQL)

Fais un MsgBox MySQL et donne nous le résultat.

**Fredo67** · 04/12/2007, 16h32

RAS, pas de Msgbox qui s'affiche ?!!!
semblerait que mon code ne s'execute pas.... ???

**random** · 04/12/2007, 17h45

si comme je le pense tes formulaires arrivent par mail

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
    Dim table As DAO.Recordset
    Set table = CurrentDb.OpenRecordset("matable")
'permet de preciser la destination
Set myOlApp = CreateObject("Outlook.Application")
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
        Set myFolders = myNameSpace.Folders
             Set myFolder = myFolders.Item("adressefolder")
              Set myrep = myFolder.Folders("dossier1")
              Set myrep2 = myrep.Folders("sousdossier")
'permet de préciser la source
                    Set mmail = myrep2.Items
'va indexer les mails
                   for each truc in mmail
                     unchampr = truc.UserProperties.Find("nomd'unchamp").Value
           autrechamp=    truc.UserProperties.Find("autrechamp").Value
 
               table.AddNew
            table!unchamp = unchamp
            table!autrechamp = autrechamp
 
 .....