Hi,
sollte dann ja auch so mit der Schleife funktionieren:
Dim db As DAO.Database ' Verweis DAO
Dim strSQL As String
Set db = CurrentDb
Set objContainer = GetObject("LDAP://OU=EDV,OU=Benutzer Sudhoff Ulm,dc=sudhoff-technik,dc=de")
objContainer.Filter = Array("user")
For Each objUser In objContainer
For Each mailaddress In objUser.proxyaddresses
strSQL = "INSERT INTO [User] " & _
"([Name],[Account],[Mailadresse]) " & _
"VALUES ('" & objUser.FullName & "', " & _
"'" & objUser.sAMAccountName & "', " & _
"'" & mailadress & "');"
db.Execute strSQL, 128 'dbFailOnError
Next
Next objUser
Da bekomm ich für die for each ... proxyadresses Zeile die Fehlermeldung: Typen unverträglich?