Bonjour,

A partir d'une base de données réalisée sur Excel je souhaite transférer des contacts dans Outlook 2007. J'ai trouvé le code suivant qui crée le contact dans le dossier par défaut "Contact", alors que je souhaite qu'il soit ajouté dans un dossier nommé "BdD".

Merci par avance pour votre aide.
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
Sub ajouterContactOutlook()
 
    Dim objOutlook As Outlook.Application
    Dim objContact As ContactItem
 
    'Crée l'instance Outlook
    Set objOutlook = New Outlook.Application
    'Crée un élément pour les contacts
    Set objContact = objOutlook.CreateItem(olContactItem)
 
    'Définit les informations du nouveau contact
    With objContact
        .Email1Address = "mon.mail@fournisseur.fr"
        .FirstName = "Prénom"
        .LastName = "Nom"
 
        'Sauvegarde le contact
        .Save
    End With
 
    MsgBox "Contact ajouté !"
End Sub