Hi, Edson.

Thanks for your reply.

Sorry for not being clear about this, but I am actually trying to download it from AD, and then attach it to the Notes/Document. I was hoping this could be done when getting all the other data about the user from AD.

Here's my code:

    Set dbCurrent = s.Currentdatabase
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Open "Provider=ADsDSOObject;"
    'test = objConnection.DefaultDatabase

    Set objCommand = CreateObject("ADODB.Command")
    Set objCommand.ActiveConnection = objConnection
    
    strLdapFilter = "Select sn, givenName, mail, telephoneNumber, mobile, department, employeeID, manager, thumbNailPhoto, sAMAccountName FROM 'LDAP://ou=" & strDepartment & ",ou=Users and Groups,ou=<town>,dc=<domain>,dc=com' WHERE objectCategory='person' AND objectClass='user'"

    objCommand.CommandText = strLdapFilter
    Set objRecordSet = objCommand.Execute

    If objRecordSet.RecordCount = 0 Then
        MsgBox "No groups found!"
    Else
        While Not objRecordset.EOF
            Set docPerson = dbCurrent.Createdocument()
            docPerson.Form = "frmEmployee"
            docPerson.sn= objRecordset.Fields("sn").value
            docPerson.givenName = objRecordset.Fields("givenName").value
            docPerson.department = objRecordset.Fields("department").value
            docPerson.telephonenumber = objRecordset.Fields("telephoneNumber").value
            docPerson.mobile = objRecordset.Fields("mobile").value
            docPerson.mail = objRecordset.Fields("mail").value

Here is where I'm trying to get hold of the photo, and attach it to the Notes Document:
            'Set rtItem = New NotesRichTextItem(docPerson, "thumbNailPhoto")
            'Set object = rtItem.EmbedObject(EMBED_OBJECT, "", objRecordset.Fields("thumbNailPhoto"))

The above didn't work, so I then tried this:

            Dim filenum As Integer
            Dim filename As String
            Dim varPhoto As Variant
            Set varPhoto = objRecordset.Fields("thumbNailPhoto")
            filename = "C:\user_icons\test.jpg" ' & objRecordset.Fields("sAMAccountName").value
            filenum% = FreeFile()
            Open filename For Binary Access Write As fileNum%
            'Put #filenum%, , varPhoto
            Put #filenum%, , filenum
            Close filenum%
            Call docPerson.Save(True,False,True)
            
            objRecordset.MoveNext
        Wend

No dice so far. Any ideas? Is it even possible?

Here is a dll that I used in the past to "paste"  photos into notes documents use lotusscript.  http://www.vcode.no/web/vcode.nsf/htdocs/ii2ln

@Edson: That looks exactly what I'm after, only in Lotusscript Thanks.

I will check the VB code to see if I can "translate" it into LS, I know they are quite similar, but it seems that there is stuff going on here that would not be possible with LS.

Any ideas or tips are appreciated.

I've been going through the VB -code now, and I understand it.

However, I'm not able to do this via LS. I just don't understand how to get the file from AD and down to the disk on the server where I'm running the script.

@Barry: Thanks, but getting photos IN to the field is not the problem. My problem is getting hold of the photo and downloading it from AD.