NilsK 2.786 Geschrieben 15. Juli 2008 Melden Teilen Geschrieben 15. Juli 2008 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 Zitieren Link zu diesem Kommentar
Empfohlene Beiträge
Schreibe einen Kommentar
Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.