VB / Outlook Zugriff auf Kontaktfelder

[Bernd_Munich]

Hallo,

ich habe mal wieder eine Anfängerfrage - In den Outlook-Kontakten möchte ich alle Telefonnummernfelder bearbeiten:

Ein Zugriff in der Art
cRufnummer = Element_Kon(i).AssistantTelephoneNumber
TueWas(cRufnummer)
Element_Kon(i).AssistantTelephoneNumber = cRufnummer
cRufnummer = Element_Kon(i).Business2TelephoneNumber
TueWas(cRufnummer)
Element_Kon(i).Business2TelephoneNumber = cRufnummer
...
..
.
Und das für etwa 20 mögliche Rufnummernfelder ist nicht sehr elegant.

Lieber wäre mir was in der Art
Dim Job As Variant
Job = Array("AssistantTelephoneNumber","Business2TelephoneNumber","...","..","." )
...
Und dann in einer Schleife k eben Zugriff über die Namen im Array:
cRufnummer = Element_Kon(i).?(Job(k))

Was muß ich für ? schreiben oder wie geht das?

Danke und Grüße Bernd