Discussion :

[Misha]

Bonjour à tous,

Je m'excuse par avance si je poste dans la mauvais topic mais comme le titre l'indique, je souhaite exporter les résultats d'une requête Access vers Outlook de manière automatisé en cliquant sur un bouton.

Je ne sais pas trop exactement comment faire ça donc je m'adresse à vous pour m'aider.

Donc j'ai une une requête qui me donne la liste de tous les contact d'un commercial et je veux qu'en cliquant sur un bouton, ces informations soient exportées dans outlook. J'ai trouvé beaucoup de sujet permettant de faire dans la sens inverse mais je voudrais savoir si c'étais possible de faire l'exportation d'Access vers Outlook.

Merci d'avance de vos réponses.

[Pierre Fauconnier]

Bonjour

Il y a probablement plus simple ou plus propre, mais voilà un code qui devrait te mettre sur la voie

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
    Dim oOutlook As Outlook.Application
    Dim oDP As Outlook.MAPIFolder ' Dossiers personnels
    Dim oContacts As Outlook.MAPIFolder ' Dossier des contacts
    Dim oContact As Outlook.ContactItem ' Objet Contact
 
    Dim rs As ADODB.Recordset
 
    Set oOutlook = New Outlook.Application 'CreateObject("outlook.application")
    Set oDP = oOutlook.GetNamespace("mapi").Folders("dossiers personnels")
    Set oContacts = oDP.Folders("Contacts")
 
    Set rs = CurrentProject.Connection.Execute("rcontacts")
    Do While Not rs.EOF
        Set oContact = oContacts.Items.Add()
        With oContact
            .LastName = rs!nom
            .FirstName = rs!prenom
            .Save
        End With
        rs.MoveNext
    Loop
 
    oOutlook.Quit
 
    Set oContact = Nothing
    Set oContacts = Nothing
    Set oDP = Nothing
    Set oOutlook = Nothing
 
End Sub

A lancer d'Access avec la référence Outlook cochée dans les références du projet, en adaptant évidemment le nom de la requête et la structure des enregistrements...

Ok?

[Misha]

Bonjour, merci d'avoir répondu aussi rapidemment, je vais donc m'empresser de le tester.

[Misha]

c'est nickel merci de ton aide !!