Integrer mes contacts dans une base de données Access
par
, 14/07/2015 à 10h29 (406 Affichages)
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 'integre les adresses de mon email Sub creationDB() Dim Db As DAO.database Dim rcset As DAO.recordset Dim objNamespace As NameSpace 'espace email object Set objNamespace = GetNamespace("Mapi") 'connection a l'email Set MyList = objNamespace.GetDefaultFolder(10) Set AllContacts = MyList.Items 'database Set Db = Engine.OpenDatabase("E:\CarnetAdresse.accdb", False, False) For Each MyName In AllContacts i = i + 1 Req_Insert = "INSERT INTO [Contacts] VALUES(" & i & ",'" & MyName.FirstName & "','" & MyName.Email1Address & "') " Db.Execute (Req_Insert) Next MyName End Sub