Mise à jour contacts avec MySQL

**pbatty1** · 25/02/2008, 12h22

bonjour,
j'ai une base de données qui contient les adresses e-mail des salariés d'une société. J'aimerai mettre à jour à partir de cette base les contacts dans Outlook.
j'ai donc créé un macro qui va récupérer les informations dans la base de données. J'ai installé le pilote Myodbc et qui fonctionne d'après le test dans Outils d'administration->source de données.
Mon problème se situe au niveau du code. En effet, il y a un bug au niveau de

Code :

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

Dim conn As ADODB.Connection

.
Je vous presente ci-dessous 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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub MAJ()
'Connect to Ms Outlook
Dim objOutlook As Outlook.Application
Dim objFolder As Outlook.MAPIFolder
Dim objAllContacts As Outlook.Items
Dim Contact As Outlook.ContactItem
 
 
Dim newContact As Object
Dim prenom As String
Dim nom As String
Dim mail As String
 
 
Set objOutlook = CreateObject("Outlook.Application")
Set objFolder = objOutlook.GetNamespace("MAPI")
objFolder.Logon
 
'connect to MySQL server using MySQL ODBC 3.51 Driver
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String
 
 Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=gestion_email;" _
& "UID=venu;PWD=venu; OPTION=3"
 
 'open Database
conn.Open
Set rs = New ADODB.Recordset
 
 
rs.Open "SELECT * FROM adresse", conn
Debug.Print rs.RecordCount
 rs.MoveFirst
Debug.Print String(50, "-") & "Updated my_ado Result Set " & String(50, "-")
For Each fld In rs.Fields
      Set newContact = objOutlook.CreateItem(olContactItem)
      Debug.Print
      newContact.FullName = fld.nom
      newContact.FirstName = neContact.fld.prenom
      newContact.Email1Address = fld.Adresse_mail
 
      Next fld
      Debug.Print
End Sub