Questione : Foto di Thumbnail sullo scambio 2007

Ciao, il

I che si domanda appena se questo è possibile sul rel= " nofollow " " del _blank " " del target= " di http://msexchangeteam.com/archive/2010/03/10/454223.aspx del href= di scambio 2k7

archive/2010/03/10/454223.aspx

I di http://msexchangeteam.com/ non può sembrare ottenerlo che funziona. class= del

Risposta : Foto di Thumbnail sullo scambio 2007

appena poichè il follow-up lo scritto ho collegato agli usi l'attributo di jpegphoto siete più ricco cambiando questo al thumbnailphoto

qui è una versione aggiornata presa dal collegamento che avete fornito
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:

-------------------
'Le foto devono essere di meno che 10kb
Const ForReading = 1
InDir = “C:\Temp\StaffPhotos„
Regolare il fso = CreateObject (“Scripting.FileSystemObject„)
regolare il oIADS = GetObject (“LDAP: //RootDSE„)
strDefaultNC = oIADS.Get (“defaultnamingcontext„)
Regolare il theConn = CreateObject (“ADODB.Connection„)
theConn.Provider = “ADsDSOObject„
theConn.Open “fornitore degli annunci„
Regolare il theCmd  = CreateObject (“ADODB.Command„)
theCmd.ActiveConnection = theConn
Regolare il objRecordSet = CreateObject (“ADODB.Recordset„)
Per ciascuno tFile in fso.GetFolder (InDir). Lime
   tName = tFile.Name
   'Ottiene alle persone il nome dalla lima mettendo a nudo il extention.
   tName = andato (tName, InStrRev (tName, “. „) - 1)
   'Potete avere bisogno di di tweak questa punta secondo le vostre convenzioni di nomina.
   strQuery = “; „ & _
                             “(& (objectClass=person) (name=„ & tName & ")); nome, adspath; sotto-albero "
   theCmd.CommandText = strQuery
   Regolare il objRS = theCmd.Execute
   Se objRS.RecordCount = 0 allora
     MsgBox “non può trovare per rappresentare„ & tName
   Altrimenti
     Regolare il objUser = GetObject (objRS (“adspath„))
     ObjUser.Put “thumbnailPhoto„, ReadByteArray (tFile.Path)
     ObjUser.SetInfo
   Concluder se
Dopo
'Rubato da http://www.ericphelps.com/q193998/index.htm
Funzione ReadByteArray (strFileName)
   Const = 1 adTypeBinary
   Scomparto fioco
   Regolare lo scomparto = CreateObject (“ADODB.Stream„)
   scomparto. Tipo = adTypeBinary
   scomparto. Aperto
   strFileName di bin.LoadFromFile
   ReadByteArray = scomparto. Colto
Funzione di conclusione
Altre soluzioni  
 
programming4us programming4us