E-Mail-Adresse in Feldfunktion Word2003 aus AD

Hallo Zusammen,

bin neu hier und habe in der Suche nichts zu meinem Problem gefunden.

Ich muss eine Wordvorlage erstellen. In dieser Vorlage soll eine Feldfunktion automatisch die E-mail Adresse des angemeldeten Users (ActiveDirectory) einfügen.

Benutzername kann ich unter Einfügen/Feld/Feldname/"Username"

Für E-Mail-Adressen finde ich aber nichts!!

mfg WRX

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 40619

Url: https://administrator.de/forum/e-mail-adresse-in-feldfunktion-word2003-aus-ad-40619.html

Ausgedruckt am: 13.05.2025 um 17:05 Uhr

2 Kommentare

Neuester Kommentar

Hallo WRX,

ich weiss nicht obs dir hilft, das ist ein Fragment, das in einer Word-Vorlage die Userdaten aus dem ActiveDirectory liest und eine ComboBox damit füllt.
In der ComboBox werden dabei nur die Usernamen angezeigt, nach Auswahl werden die restlichen Daten in das Dokument übernommen.
Ist wie gesagt nur ein Ausschnitt und das Template ist auch noch nicht produktiv.

Private Sub FillComboBox()
strOU = "OU=<OU>"
strGrp = "cn=<Gruppe>"
strDom = "dc=<Domäne>,dc=<TLD>"
Set objGroup = GetObject("LDAP:" & strGrp & "," & strOU & "," & strDom & "")
objGroup.GetInfo
arrMemberOf = objGroup.GetEx("member")

i = 1
For Each strMember In arrMemberOf
Set objUser = GetObject("LDAP:" & strMember & "")
objUser.GetInfo
'MsgBox strMember
On Error Resume Next
arrMembers(i, 0) = objUser.Get("displayName")
arrMembers(i, 1) = objUser.Get("telephoneNumber")
arrMembers(i, 2) = objUser.Get("facsimileTelephoneNumber")
arrMembers(i, 3) = objUser.Get("mobile")
arrMembers(i, 4) = objUser.Get("mail")

cbo.AddItem arrMembers(i, 0) 'Usernames
On Error GoTo 0
i = i + 1
Next

HTH
gemini