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, 2840 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
Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Windows Server

Exchange 2010 auf Windows Server 2016 und AD

(2)

Tipp von Herbrich19 zum Thema Windows Server ...

KVM

How to: Libvirt Port forwarding

(2)

Anleitung von fundave3 zum Thema KVM ...

Heiß diskutierte Inhalte
Basic
Programmierung von Windows Programmen (9)

Frage von Ghost108 zum Thema Basic ...

C und C++
Fehlendes verständiss von C und C++ (7)

Frage von zelamedia zum Thema C und C ...