AD: E-Mail-Typ auslesen

[NilsK 3.046]

Moin,

 

hier noch eine andere Variante. Das folgende Skript gibt alle SMTP-Adressen aus dem AD aus, die in dem Attribut proxyAddresses stehen (welches ja auch hier relevant ist):

 

faq-o-matic.net » Alle Mailadressen anzeigen

 

Um die Fax-Adressen statt der SMTP-Adressen anzuzeigen, muss nur eine Zeile geändert werden:

If LCase(Left(arrProxyAddresses(i),5)) = "smtp:" Then

ändern in:

If LCase(Left(arrProxyAddresses(i),5)) = "fax:" Then

Und wenn du die Ausgabe dann noch auf den richtigen Typ korrigieren willst, änderst du hier die "Beschriftung" entsprechend:

objRSlokal("Mailadresse") = Mid(arrProxyAddresses(i),6)

Gruß, Nils