wenn mir keiner Hilft muss ich es leider selber lernen
Option Compare Database
Sub test()
Dim db As DAO.Database ' Verweis DAO
Dim strSQL As String
Set db = CurrentDb
Set objContainer = GetObject("LDAP://OU=EDV,OU=Benutzer,dc=Domainname,dc=de")
objContainer.Filter = Array("user")
For Each objUser In objContainer
strSQL = "INSERT INTO [User] " & _
"([Name],[Account],[Mailadresse]) " & _
"VALUES ('" & objUser.FullName & "', " & _
"'" & objUser.sAMAccountName & "', " & _
"'" & objUser.mail & "');"
db.Execute strSQL, 128 'dbFailOnError
Next objUser
End Sub
So funktioniert es.
Jetzt steht aber im Tabellenfeld Mailadresse die händisch einzutragende Adresse auf der Hautseite.
Wir haben aber leider bei vielen Usern mehrere Mailadressen als SMTP hinterlegt.
Diese gibts ja eigentlich unter: proxyaddresses ??
Wie kann ich diese nun auslesen das ich am besten für jede Mailadresse einen Eintrag in der Tabelle habe?