Frage : Thumbnail-Foto auf Austausch 2007

Hallo, kann das

I morgens gerade wundernd, wenn dieses auf Austausch 2k7

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

I möglich ist, nicht scheinen, es zu erhalten arbeitend.

Antwort : Thumbnail-Foto auf Austausch 2007

gerade da Anschluss der Index ich mit Gebrauch das jpegphoto Attribut verband, sind Sie besser gestellt, dieses zum thumbnailphoto ändernd

ist hier eine modernisierte Version, die von der Verbindung genommen wird, die Sie zur Verfügung stellten
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:
6:
37:
38:
39:
40:

-------------------
'Fotos müssen kleiner als 10kb sein
Const ForReading = 1
InDir = „C:\Temp\StaffPhotos“
Fso = CreateObject („Scripting.FileSystemObject“) einstellen
oIADS = GetObject einstellen („LDAP: //RootDSE“)
strDefaultNC = oIADS.Get („defaultnamingcontext“)
theConn = CreateObject („ADODB.Connection“) einstellen
theConn.Provider = „ADsDSOObject“
theConn.Open „Anzeigen-Versorger“
theCmd =  CreateObject („ADODB.Command“) einstellen
theCmd.ActiveConnection = theConn
objRecordSet = CreateObject („ADODB.Recordset“) einstellen
Für jedes tFile in fso.GetFolder (InDir). Akten
   tName = tFile.Name
   'Erhält den Personen Namen von der Akte indem das Abstreifen des extention.
   tName = verlassen (tName, InStrRev (tName, „. “) - 1)
   'Sie können diese Spitze abhängig von Ihren Benennungversammlungen zwicken müssen.
   strQuery = „; “ u. _
                             „(u. (objectClass=person) (name=“ u. tName u. ")); Name, adspath; Unterbaum "
   theCmd.CommandText = strQuery
   objRS = theCmd.Execute einstellen
   Wenn objRS.RecordCount = 0 dann
     MsgBox „kann nicht finden zu erklären“ u. tName
   Sonst
     objUser = GetObject (objRS („adspath“ einstellen))
     ObjUser.Put „thumbnailPhoto“, ReadByteArray (tFile.Path)
     ObjUser.SetInfo
   Beenden wenn
Zunächst
'Gestohlen von http://www.ericphelps.com/q193998/index.htm
Funktion ReadByteArray (strFileName)
   Const adTypeBinary = 1
   Schwaches Sortierfach
   Sortierfach = CreateObject („ADODB.Stream“) einstellen
   Sortierfach. Art = adTypeBinary
   Sortierfach. Geöffnet
   bin.LoadFromFile strFileName
   ReadByteArray = Sortierfach. Gelesen
Enden-Funktion
Weitere Lösungen  
 
programming4us programming4us