Extracting Email from contact Item

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
 
B

bbnimda

Hi again

Sorry I found my sitackes

Email1Adress => Email1Address

It work's now

Thks
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top