Bonjour à tous,

J'au un code vba qui me permet de créer un dossier Contact sous Outlook et de le remplir de contact.

Je recherche un moyen de changer la propriété IsInitialAddressList de mon dossier afin de le placer par défaut lors de l'ouverture du carnet d'adresse.

Sauriez vous comment faire ? Lorsque je veux le modifier j'ai une erreur "Lecture seul"

Merci à vous

bah tu ne peux pas modifier une propriété en lecture seule. Tu ne dois pas faire l'action sur la bonne propriété

il faut définir la propriété InitialAddressList de la SelectNamesDialog (voir l'exemple de https://docs.microsoft.com/fr-fr/office/vba/api/outlook.addresslist.getcontactsfolder )

Merci pour ta réponse rapide

J'ai essayer l'exemple mais je ne trouve pas comment le modifier à mon cas (le dossier ce nomme "Contact CP")

En fait je voudrait modifier le carnet d'adresse par défaut que tu trouve dans Outil -> Adressage

Je ne sais pas si je suis claire

L'idée est de ne pas à avoir à le faire manuellement à la fin de la macro

-
Edité par flo73630 26 juillet 2021 à 18:38:51

c'était plutôt sur cette page https://docs.microsoft.com/fr-fr/office/vba/api/outlook.selectnamesdialog.initialaddresslist (mais bon)

ce qu'il faut modifier c'est la propriété  Application.Session.GetSelectNamesDialog.InitialAddressList qu'il faut modifié et lui affecté la nouvelle AddressList

C'est parfait cela fonctionne

Par contre lorsque je sors de la boite de dialogue le choix ne reste pas

Je voudrais faire une macro qui fait cette action : https://support.microsoft.com/fr-fr/office/modifier-le-carnet-d-adresses-par-d%C3%A9faut-53b3ce7a-9d35-4e27-9e37-57979778fe5b

je ne sais pas si c'est faisable (peut-être intercepter l'événement correspondant). c'est une boite outlook pro (il y a peut-être des règles au niveau admin), ou perso ?

-
Edité par umfred 26 juillet 2021 à 19:21:08

Bonne idée, par contre je ne sais pas comment intercepter l'événement... (Désolé les macro Outlook ne sont pas mon fort)

C'est une boite perso normalement

essai ce code (sans garantie, sans doute des choses à modifier/ajouter)

Private WithEvents nd As Outlook.Session.GetSelectNamesDialog

Private Sub Application_Startup()
    Set nb = Application.Session.GetSelectNamesDialog
    nb.InitialAddressList= 'ici le nom de ton AddressList
End Sub