tamtam64

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