Vraag : De Foto van de duimnagel op Uitwisseling 2007

Hello,

I am enkel benieuwd zijn kan of is dit mogelijk op Uitwisseling 2k7

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

I niet schijnen om het werkend te krijgen.

Antwoord : De Foto van de duimnagel op Uitwisseling 2007

enkel als follow-up het manuscript verbond ik met gebruik de jpegphotoattributen u beter bent van het veranderen van dit in thumbnailphoto

hier is een bijgewerkte versie die uit de verbinding wordt genomen u voorzag
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:

De 'foto's moeten zijn minder dan 10kb
Const ForReading = 1
InDir = „C:\Temp\StaffPhotos“
Vastgestelde fso = CreateObject („Scripting.FileSystemObject“)
reeks oIADS = GetObject („LDAP: //RootDSE“)
strDefaultNC = oIADS.Get („defaultnamingcontext“)
Reeks theConn = CreateObject („ADODB.Connection“)
theConn.Provider = „ADsDSOObject“
theConn.Open de „Leverancier van Advertenties“
Reeks theCmd  = CreateObject („ADODB.Command“)
theCmd.ActiveConnection = theConn
Reeks objRecordSet = CreateObject („ADODB.Recordset“)
Voor elk tFile in fso.GetFolder (InDir). Dossiers
   tName = tFile.Name
   'Krijgt de personenNaam van het dossier door van extention te ontdoen.
   tName = Weggegaan (tName, InStrRev (tName, „. “) - 1)
   'U kunt dit beetje afhankelijk van uw noemende overeenkomsten moeten knijpen.
   strQuery = „; “ & _
                             „(& (objectClass=person) (name=“ & tName &“)); naam, adspath; onderverdeling "
   theCmd.CommandText = strQuery
   Reeks objRS = theCmd.Execute
   Als objRS.RecordCount = 0 toen
     MsgBox „kan geen rekening voor“ vinden & tName
   Anders
     Reeks objUser = GetObject (objRS („adspath“))
     ObjUser.Put „thumbnailPhoto“, ReadByteArray (tFile.Path)
     ObjUser.SetInfo
   Eind als
Daarna
'Gestolen van http://www.ericphelps.com/q193998/index.htm
Functie ReadByteArray (strFileName)
   adTypeBinary Const = 1
   Schemerige bak
   Vastgestelde bak = CreateObject („ADODB.Stream“)
   bak. Type = adTypeBinary
   bak. Open
   bin.LoadFromFile strFileName
   ReadByteArray = bak. Lees
Beëindig Functie
Andere oplossingen  
 
programming4us programming4us