[VB/MAPI] Echt email adres uitlezen ?

[Skinny]

code:

Public myNameSpace As NameSpace
Public myMail As MailItem

Set appOutlook = CreateObject("Outlook.Application")
Set myNameSpace = appOutlook.GetNamespace("MAPI")

BaseFolder = "Persoonlijke mappen"
Folder = "Mijn test mapje"

For Each myItem In myNameSpace.Folders(BaseFolder).Folders(Folder)
    frmMain.lstMails.AddItem myItem.SenderName
Next myItem

Met deze code wil ik dus een listbox vullen met emailadressen uit een map in outlook 2000/XP. Helaas, want zo simpel was het niet.

.SenderName geeft alleen de weergave-naam terug, maar ik kreeg met geen mogelijkheid voor elkaar dat ik het daadwerkelijke emailadres in mijn lijst krijg. Dit gebeurt alleen als de afzender niet in het adresboek voorkomt, maar dit is bijna altijd (bij dit project) het geval.

Ik heb met Google en MSDN gezocht, maar nergens kom ik een goed werkend voorbeeld (of zelfs hint) tegen.

Hier toevallig iemand ?

[Verwijderd]

Misschien moet je het zoeken in

myItem.ReplyRecipients.Item(intTeller).Address

Wat ikzelf altijd wel handig vind is om in outlook zelf even te gaan prutten. Daar heb je het 'ThisOutlookSession'-object, waardoor je je mailitem volledig kunt doorbrowsen.

[Skinny]

Dat werkt dus niet altijd, want niet iedere mail heeft van die ReplyRecipients

Iemand nog suggesties ?