Bonjour,
Je souhaite connecter ma base de donnée access, je le fais avec excel souvent et il n'y a pas de pb, mais la je test avec outlook ca ne marche pas j'ai une erreur :format de base de donnée non reconue, mais le format est bon : accdb, ca n'a pas de sens ....
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 Sub test() 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 = DAO.OpenDatabase("E:\CarnetAdresse.accdb", False, False)'probleme ' For Each MyName In AllContacts 'Req_Insert = "INSERT INTO [Contacts] VALUES('" & MyName.FirstName & "','" & MyName.Email1Address & "') " 'Next MyName End Sub
Partager