Jump to content

Office Macro Benutzerinformationen aus Active Directory


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Hallo zusammen,

 

ich will die Benutzerinformationen von Word mit Daten aus dem Active Directory füllen, und zwar so das der Name bei UserName hinkommt, die Telefon Nummer bei UserInitials und die E-Mailadresse bei UserAddress.

 

Das mit den Namen funktioniert schon, nur die beiden anderen Sachen nicht kann mir jemand weiterhelfen und sagen wie es richtig sein muss?

 

Hier mein Script:

 

Sub testen()

'

' testen Makro

' Makro erstellt am 27.07.2005 von testen

'

Dim objADInfo As Object

Dim objLogonName As Object

Dim objPhone As Object

Dim objMail As Object

Dim strMail As String

Dim strTelephoneNumer As String

Dim strUserName As String

Dim strUserInitials As String

 

 

Set objADInfo = CreateObject("ADSystemInfo")

Set objLogonName = GetObject("LDAP://" & objADInfo.UserName)

 

 

strUserName = objLogonName.firstname & " " & objLogonName.lastname

strTelephoneNumber = objtelephoneNumber

strMail = objMail

 

 

Application.UserName = strUserName

Application.UserInitials = strTelephoneNumber

Application.UserAddress = strMail

 

 

End Sub

 

Vielen Dank

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...