outlook + vbscript + global address list

[Verwijderd]

ik wil het email adres en de naam ophalen maar ik krijg alleen maar het adres.
kan iemand mij vertellen hoe ik de naam kan ophalen??
Ik gebuik onderstaande code om het adres op te halen.

Set objMsg = Application.ActiveInspector.CurrentItem
strEntryID = objMsg.EntryID
strStoreID = objMsg.Parent.StoreID

Set objCDOMsg = objSession.getMessage(strEntryID, strStoreID)
Set objAddEntry = objCDOMsg.Sender

If objAddEntry.Type = "EX" Then
Set objField = objAddEntry.Fields(&H800F101E)
For Each fld In objField.Value
If Left(fld, 5) = "SMTP:" Then
strAddress = Mid(fld, 6)
' Debug.Print strAddress
StoreAddress = strAddress
Exit For
End If
Next
Else
' Debug.Print objAddEntry.Address
StoreAddress = objAddEntry.Address
End If

[Janoz]

Waneer je begrijpt wat de door jou gegeven code doet, en je ook weet hoe een objCDOMsg eruit ziet moet je daar toch wel zelf uit kunnen komen lijkt me? Ik ben zelf niet zo'n VB held, maar zou je mischien iets duidelijker uit kunnen leggen waar je vastloopt?

Hier in PW is het niet de bedoeling dat je maar wat willekjeurige code neerplant en deze door je medePW-ers aan laat passen totdat het doet wat je zelf wilt.

[Verwijderd]

hoe post ik hier een afbeelding? dan weet je wat voor gegevens ik probeer uit te halen

[D2k]

kijk eens in de faq?

code:

[img]url[/img]

[Verwijderd]

ergens bij outlook kun je via properties van een email address bekijken. Bij het tabblad Email addresses kun je SMTP en X400 .... zien. ik haal momenteel het adres van smtp.
maar hoe kun je de volledige naam ophalen??

If Left(fld, 5) = "SMTP:" Then
strAddress = Mid(fld, 6)

[robjanssen]

Wat wil je nu precies.
De namen en e-mailadressen uit je contactpersonen lijstje?

En welke programmeertaal gebruik je? ASP of Visual Basic?