Bonjour,
 
Je crée des formulaires personnalisés sous Outlook 2000  
dans le cadre d'un stage et je souhaiterai pouvoir  
recuperer l'adresse Email de l'utilisateur du formulaire.
 
J'ai déjà recuperer son nom grace à :
  set myUser=Application.GetNameSpace("MAPI" ).CurrentUser
 
Avec l'aide, j'ai vu qu'il fallait que j'ouvre et que je  
me copnnecte à une session de messagerie OLE mais le code  
ne fonctionne pas. L'aide me donne:
 
Set olemSession = Application.CreateObject("MAPI.Session" )
ReturnCode = olemSession.Logon( Application.GetNameSpace
("MAPI" ).CurrentUser, "", False, False, 0 )
myPage = Item.GetInspector.ModifiedFormPages("Message" )
Set myUser = olemSession.CurrentUser
Item.UserProperties.Find("Name" ) = myUser.Name
Item.UserProperties.Find("Messaging Address" ) =  
myUser.Address
Item.UserProperties.Find("MAPI First Name" ) =  
myUser.Fields.item(&h3a06001e)
 
 
Voila
Une erreur survient des le début
 
Merci
 
Piero

salut c'est Axelle, il va bien jb ?
tu peux me répondre en mp ...