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
