Macro Word pour ouvrir la liste d'adresse globale d'Outlook

[Banzai31]

Bonjour,

J'aurai une question, je suis en train de migrer une macro W2000 en W2007, et j'ai une erreur qui apparait sur un accès MAPI (pour ouvrir la liste d'adresse globale d'Outlook).

Code :

1
2
3
4
5
6
7
  Set objOutapp = CreateObject("Outlook.Application")
  Set objNamespace = objOutapp.GetNamespace("MAPI")
  Wait = objNamespace.currentuser
 
  Set CDOSession = CreateObject("MAPI.Session")
  CDOSession.Logon "", "", False, False, 0
  Set CDOAdBook = CDOSession.addressbook(Nothing, MyCaption, False, False, 1, "", "", "", GetForegroundWindow)

Il plante sur la ligne qui est gras.
Le msg d'erreur est : Erreur définie par l'application ou par l'objet

Est ce que quelqu'un connait ce problème ? Je ne vois vraiment pas d'ou vient le soucis

Merci d'avance