Question : Photo d'ongle du pouce sur l'échange 2007

Bonjour, le

I AM se demandant juste si c'est possible sur le rel= " nofollow " de " _blank " de target= de " http://msexchangeteam.com/archive/2010/03/10/454223.aspx " de href= de l'échange 2k7

le archive/2010/03/10/454223.aspx

I de http://msexchangeteam.com/ ne peut pas sembler l'obtenir fonctionnant. class= de

Réponse : Photo d'ongle du pouce sur l'échange 2007

juste comme suivi le manuscrit je liais aux utilisations l'attribut de jpegphoto vous êtes plus aisé changeant ceci en thumbnailphoto

voici une version mise à jour prise du lien que vous avez fourni
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 :

-------------------
Les 'photos doivent être moins que 10kb
Const ForReading = 1
InDir = « C:\Temp\StaffPhotos »
Placer le fso = le CreateObject (« Scripting.FileSystemObject »)
placer l'oIADS = le GetObject (« LDAP : //RootDSE »)
strDefaultNC = oIADS.Get (« defaultnamingcontext »)
Placer le theConn = le CreateObject (« ADODB.Connection »)
theConn.Provider = « ADsDSOObject »
theConn.Open « fournisseur d'annonces »
Placer le theCmd  = le CreateObject (« ADODB.Command »)
theCmd.ActiveConnection = theConn
Placer l'objRecordSet = le CreateObject (« ADODB.Recordset »)
Pour chacun tFile dans fso.GetFolder (InDir). Dossiers
   tName = tFile.Name
   'Obtient aux personnes le nom à partir du dossier en dépouillant l'extention.
   tName = parti (tName, InStrRev (tName, « .  ») - 1)
   'Vous pouvez devoir tordre ce peu selon vos conventions de nomination.
   strQuery = « ;  » et _
                             « (et (objectClass=person) (name= » et tName et ")) ; nom, adspath ; sous-arbre "
   theCmd.CommandText = strQuery
   Placer l'objRS = le theCmd.Execute
   Si objRS.RecordCount = 0 puis
     MsgBox « ne peut pas trouver pour expliquer » et tName
   Autrement
     Placer l'objUser = le GetObject (objRS (le « adspath »))
     ObjUser.Put « thumbnailPhoto », ReadByteArray (tFile.Path)
     ObjUser.SetInfo
   Finir si
Après
'Volé de http://www.ericphelps.com/q193998/index.htm
Fonction ReadByteArray (strFileName)
   Const = 1 adTypeBinary
   Faible casier
   Placer le casier = le CreateObject (« ADODB.Stream »)
   casier. Type = adTypeBinary
   casier. Ouvert
   strFileName de bin.LoadFromFile
   ReadByteArray = casier. Lu
Fonction de fin
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us