Messages des blogs récents

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    '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",

...