Subject: Trying to download
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=,dc=,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?
