Discussion :

[yodark]

Bonjour à tous,

Petite question. Comment je fais pour ajouter automatiquement des valeurs dans une table Access en fonction des messages que je reçois dans Outlook ?

J'ai un mail qui me provient d'un formulaire web qui a toujours la même forme... Comment faire pour lire ces données et les mettre dans une table ? Il existe surement un automatisme...

[pc75]

Bonjour,

Dans Outlook, Menu Outils => Macro => Visual Basic Editor.
Dans la fenêtre de projet, Microsoft Outlook Objects => CetteSessionOutlook.
Dans l'événement Application_NewMail()

Tu récupères le corps des messages

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
 
' Sélection du dossier "Boite de réception"
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myOlApp.ActiveExplorer.CurrentFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
 
' Boucler sur les non-lus
NonLus = ActiveExplorer.CurrentFolder.UnReadItemCount
For i = 1 To NonLus
    If ActiveExplorer.CurrentFolder.UnReadItemCount = 0 Then
        Exit Sub
    End If
 
    Corps = ActiveExplorer.CurrentFolder.Items.Item(i).Body
Next i

Ensuite, pour insérer dans une base Access, fais une recherche sur ADODB.Connexion

[yodark]

d'accord je vois j'utilise un

ADODB.Connexion pour faire une requête SQL...
mais je connais pas le VB comment faire pour pour spliter la chaine du message afin que je puisse récupérer les valeurs voulue ?

Nom : Delpeid
Prénom : Gregory
Pseudo : rastrator
E-mail : mail@free.fr
ID : C982a4dfb6e0eca17b5451c50d914548823ca668
Invitation : par email

[pc75]

Re,

Si la chaine que tu cherches est toujours à la même position :

Code :

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

1
2
3
4
 
.....
Corps = ActiveExplorer.CurrentFolder.Items.Item(i).Body
MaChaine = Mid(Corps, Deb, Longueur)

Deb = Position de début de la chaine cherchée
Longueur = Longueur de la chaine cherchée

Si tu ne connais pas la position de cette chaine, tu as la fonction InStr() qui te renvoie la position d'une sous-chaine dans une chaine.

[yodark]

j'ai tenté d'utiliser ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
'Déclaration de la variable de connexion
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
 
'Définition du pilote de connexion
cnx.Provider = "Microsoft.Jet.Oledb.3.51"
'Définition de la chaîne de connexion
cnx.ConnectionString = "C:\maBase.mdb"
'Ouverture de la base de données
cnx.Open

Il me met une erreur de compiliation pour la déclaration cnx As
Il me dit que l'objet défini par l'utilisateur n'a pas été défini. Je dois importer une librairie ? comment ?

[pc75]

Re,

Il doit te manquer une référence vers ADO.

Dans Outlook, Menu Outils => Macro => Visual Basic Editor

Menu Outils => Références => tu coches la référence à ADO (je ne sais plus quelle version)

[cafeine]

Hello,

pour découper la chaine, tu peux faire / utiliser une fonction VBA générique :

Code :

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

1
2
3
4
5
6
7
8
Function GetValue(ByVal Chaine As String, _
                  ByVal borneDebut As String, _
                  ByVal borneFin As String)
 
On Error Resume Next
GetValue = Split(Split(Chaine, borneDebut)(1), borneFin)(0)
 
End Function

exemple

Code :

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

1
2
?getvalue("nom : Test; prénom : Jean-Pierre; mail : jptest@dvp.com;","prénom : ",";")
Jean-Pierre

pour le saut de ligne, essaye vbCrLf ou chr(10)

d'accord je vois j'utilise un

ADODB.Connexion pour faire une requête SQL...
mais je connais pas le VB comment faire pour pour spliter la chaine du message afin que je puisse récupérer les valeurs voulue ?