Вопрос : Фотоий Thumbnail на обмене 2007

Здравствулте!,

I am как раз интересуя если это по возможности на rel= " nofollow " " _blank " " target= " http://msexchangeteam.com/archive/2010/03/10/454223.aspx href= обменом 2k7

archive/2010/03/10/454223.aspx

I, то http://msexchangeteam.com/ не может показаться, что получило его работая. class=

Ответ : Фотоий Thumbnail на обмене 2007

как раз по мере того как прослеживание сценарий я соединил к пользам атрибут jpegphoto вы более лучшие с изменять это к thumbnailphoto

здесь обновленный вариант принятый от соединения, котор вы обеспечили

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:

------------------- 'Фотоие должны быть чем 10kb Const ForReading = 1 InDir = «C:\Temp\StaffPhotos» Установите fso = CreateObject («Scripting.FileSystemObject») установите oIADS = GetObject («LDAP: //RootDSE») strDefaultNC = oIADS.Get («defaultnamingcontext») Установите theConn = CreateObject («ADODB.Connection») theConn.Provider = «ADsDSOObject» theConn.Open «провайдер объявлений» Установите theCmd = CreateObject («ADODB.Command») theCmd.ActiveConnection = theConn Установите objRecordSet = CreateObject («ADODB.Recordset») Для каждого tFile в fso.GetFolder (InDir). Архивы tName = tFile.Name 'Получает людям имя от архива путем обнажать extention. tName = о (tName, InStrRev (tName, «. ») - 1) 'Вы можете tweak этот бит в зависимости от ваших называя конвенций. strQuery = «; » & _ «(& (objectClass=person) (name=» & tName & ")); имя, adspath; поддерево " theCmd.CommandText = strQuery Установите objRS = theCmd.Execute Если objRS.RecordCount = 0 после этого MsgBox «не может найти для учета» & tName Еще Установите objUser = GetObject (objRS («adspath»)) ObjUser.Put «thumbnailPhoto», ReadByteArray (tFile.Path) ObjUser.SetInfo Закончитесь если Затем 'Украдено от http://www.ericphelps.com/q193998/index.htm Функция ReadByteArray (strFileName) Const adTypeBinary = 1 Тусклый ящик Установите ящик = CreateObject («ADODB.Stream») ящик. Тип = adTypeBinary ящик. Открыто strFileName bin.LoadFromFile ReadByteArray = ящик. Прочитано Функция конца