Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

E-Mail-Adresse in Feldfunktion Word2003 aus AD

Frage Microsoft Microsoft Office

Mitglied: WRX

WRX (Level 1) - Jetzt verbinden

21.09.2006, aktualisiert 15:12 Uhr, 2839 Aufrufe, 2 Kommentare

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
Mitglied: gemini
21.09.2006 um 15:04 Uhr
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
Bitte warten ..
Mitglied: WRX
21.09.2006 um 15:12 Uhr
Hmmm Vielen Dank gemini ... nur wenn ich ehrlich bin hab ich vom scripten null plan ...
Bitte warten ..
Ähnliche Inhalte
Neue Wissensbeiträge
Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(6)

Anleitung von BassFishFox zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Batch & Shell
gelöst ZIP-Archive nach Dateien durchsuchen und Pfade ausgeben (33)

Frage von evinben zum Thema Batch & Shell ...

Router & Routing
Routingproblem in Homerouter-Kaskade mit Raspi (20)

Frage von Oldschool zum Thema Router & Routing ...

Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (14)

Frage von Datsspeed zum Thema Exchange Server ...

Verschlüsselung & Zertifikate
Mit Veracrypt eine zweite interne (non-system) Festplatte verschlüsseln (9)

Frage von Bernulf zum Thema Verschlüsselung & Zertifikate ...