Extracting Email from contact Item

  • Thread starter Thread starter bbnimda
  • Start date Start date
B

bbnimda

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
 
Back
Top