2
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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 40619
Url: https://administrator.de/contentid/40619
Printed on: April 16, 2024 at 12:04 o'clock
2 Comments
Latest comment
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.
HTH
gemini
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
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
Hmmm Vielen Dank gemini ... nur wenn ich ehrlich bin hab ich vom scripten null plan ...