Hi all,

I use a personal form  in this form a creat a list of all contact in
specific folder

Then I select a name in the combo

How can'I obtain the mail of this contact ???  I tryed diferent way but no
one works

here a part of my code

' //My contact folder is Target

Set RepFdv = Application.GetNamespace("MAPI").Folders("dossiers
publics").Folders("tous les dossiers publics").Folders("carnets
adresses").Folders("Contact FDV").Folders(target)
totalFdv=RepFdv.items.count

MonIndex1=0

do while monindex < totalFdv

MonIndex=MonIndex+1

Set myItem1 = RepFdv.Items(MonIndex)

NomCherche = myItem1.fullname

if NomCherche=NomUser then

'       here is what i tryed

set Usermail = myItem1.UserProperties("E-mail Selected")  << ==

Set Usermail = myItem1.UserProperties(Email1Adress)

end if

loop

Ths