Pytanie : Thumbnail Fotografia na Wymiana 2007

Cześć,

I am właśnie jeżeli to być ewentualny na Wymiana 2k7

http://msexchangeteam.com/ archive/2010/03/10/454223.aspx

I móc ono.

Odpowiedź : Thumbnail Fotografia na Wymiana 2007

właśnie gdy followup the pismo I łączyć uses the jpegphoto atrybut ty być sytuowany odmienianie być thumbnailphoto

tutaj być uaktualniony wersja brać od the połączenie ty provided
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

-------------------
'Fotografia musieć 10kb 10kb
Const ForReading = (1)
InDir = "C:\Temp\StaffPhotos"
Ustalony fso = CreateObject ("Scripting.FileSystemObject")
ustawiać oIADS = GetObject ("LDAP: //RootDSE")
strDefaultNC = oIADS.Get ("defaultnamingcontext")
Ustalony theConn = CreateObject ("ADODB.Connection")
theConn.Provider = "ADsDSOObject"
theConn.Open "Reklama Dostawca"
Ustalony theCmd  = CreateObject ("ADODB.Command")
theCmd.ActiveConnection = theConn
Ustalony objRecordSet = CreateObject ("ADODB.Recordset")
Dla InDir tFile W fso.GetFolder (InDir). Kartoteka
   tName = tFile.Name
   'Dostawać the osoba Imię od the kartoteka the extention.
   tName = Opuszczać (tName, InStrRev (tName, ". ") - (1))
   'Ty móc ten kawałek w zależności od twój konwencja.
   strQuery = "; " & _
                             "(& (objectClass=person) (name=" & tName & ")); imię, adspath; subtree "
   theCmd.CommandText = strQuery
   Ustalony objRS = theCmd.Execute
   Jeżeli objRS.RecordCount = (0) Wtedy
     MsgBox "Móc" & tName
   Inny
     Ustalony objUser = GetObject (objRS ("adspath"))
     ObjUser.Put "thumbnailPhoto", ReadByteArray (tFile.Path)
     ObjUser.SetInfo
   Kończyć Jeżeli
Następnie
'Kraść od http://www.ericphelps.com/q193998/index.htm
Funkcja ReadByteArray (strFileName)
   Const adTypeBinary = (1)
   Ciemnawy kosz
   Ustalony kosz = CreateObject ("ADODB.Stream")
   kosz. Typ = adTypeBinary
   kosz. Otwarty
   bin.LoadFromFile strFileName
   ReadByteArray = kosz. Czytać
Końcówka Funkcja
Inne rozwiązania  
 
programming4us programming4us