Письмо и фото

[Cleric-Lviv]

Всем привет!

пришла в голову следующая идея:

отображать фотку содрудника от которого пришло письмо...... можно ли ето замутить?

есть база кадров, в которой заведени все сотрудники, в кождом документе имеется фото сотрудника + ево лотус адрес.... можно ли ето сделать? :facepalm:
или гнать прочь ету мисль :facepalm:

 

[ToxaRat]

через HTML теги где у тебя будет компутедное поле формирующее линк на нужную фотку

 

[Cleric-Lviv]

ToxaRat

а есть хоть какие нибудь примери?

 

[rinsk]

Всем привет!

пришла в голову следующая идея:

отображать фотку содрудника от которого пришло письмо...... можно ли ето замутить?

есть база кадров, в которой заведени все сотрудники, в кождом документе имеется фото сотрудника + ево лотус адрес.... можно ли ето сделать? :facepalm:
или гнать прочь ету мисль :facepalm:

@DbLookup(...;"RtField") на форме вполне так себе возвращал содержимое RT... на счет фото - не знаю.
А вообще - проще при создании письма фтыкать свою фото...

 

[akat]

Не товарисчи,
просче к СеймТайму прикрутить фотку и приучить юзеров смотреть её

 

[iki]

Отличная идея! я себе в ящик вкрутил. + можно добавить всякую инфу типо телефона, номера кабинета ну и тд.

(у меня фотки лежат на серваке. Выложу то как я это реализовал у себя. Если у вас приаттачены в кадрах или еще как придеца допилить)
Удаляем в табличке Cill Image, убираем отступ в тексте. Добавляем колонку. ставим отступ где-то 0,3.
Добавляем Computed text с значение HTML. Не забываем поставтиь галку text\Pass-thru HTML.
На форме тоже ставить Render HTML

Это сырой код выложу пока наброски. будет с чего начать. Пишите свои идеи если будите делать. интересно будет почитать.

Вот как у меня это реализовано:



Форма Memo почтового ящика

Declare Function URLDownloadToFile Lib "urlmon.dll" Alias "URLDownloadToFileA" (Byval pCaller As Long, Byval szURL As String, Byval szFileName As String, Byval dwReserved As Long, Byval lpfnCB As Long) As Long


Queryopen: 

'тут всякие проверки на не ньюдок и проч.
...
Dim Doc As NotesDocument
Set Doc = PhoneDB_GetDocumentByLotusName (Source.Document.GetItemValue ("from")(0))
Print GetFoto(Doc)
Dim htmlbody As String
htmlbody = |
<tr class="body">
<td><img src="| & GetFoto(Doc) & |"></td>	 
<td>тел. | & Doc.GetItemValue("PhoneInt")(0) & | </td>
....	 
</tr>|

Call Source.Document.ReplaceItemValue ("HTML", htmlbody)	

Function GetFoto(Source As Variant) As String
' Ф-ия находит на сервере файл-фото и сохраняет в темпах на локале, возвращает путь к файлу
' Все пути к сохраненым файлам на локале записываются в TMP_FILE_ARRAY
' Source - или карточка сотрудника из тел. справочника или PersonId
On Error Goto errHandler
Const FuncName = {GetFoto}

Dim tabelNumber As String
Dim url As String, d As String
Dim TMP_FILE_ARRAY As Variant

If Typename(Source) = "STRING" Then
tabelNumber = Source
Elseif Typename(Source) = "NOTESDOCUMENT" Then
tabelNumber = Source.GetItemValue("PersonId") (0)		
End If

d = Environ ("Temp")
If d = "" Then d = "c:\" Else d = d & "\"
Dim PhotofileName As String
PhotofileName = d & tabelNumber & ".tmp" 'tmp

Dim pathPhotoServer As String
Dim i As Integer
Dim FlagPhotoAccess As Boolean

i = 1		
Do
pathPhotoServer = CS_GetVarValue ("PhotoServer" + Cstr(i))					
If pathPhotoServer = "" Then Exit Do 'переменные настроек кончились - проверять дальше нет смысла

url = pathPhotoServer & tabelNumber & {&width=100}
If URLDownloadToFile (0, url, Photofilename, 0, 0) = 0 Then				
FlagPhotoAccess = True	
If Not Isarray (TMP_FILE_ARRAY) Then
TMP_FILE_ARRAY = Arrays_InitArray (Photofilename)
Else
Call Arrays_AppendElement (TMP_FILE_ARRAY, Photofilename)
End If

If i > 1 Then					
Call CS_SetVarValue("PhotoServer" + Cstr(i), CS_GetVarValue ("PhotoServer1"))
Call CS_SetVarValue("PhotoServer1", pathPhotoServer)	
End If	

Exit Do 'фото получили - выходим
End If

i = i + 1
Loop While True

If FlagPhotoAccess Then
GetFoto = {file://} & PhotoFileName
End If	

Goto endh
errHandler:
Error Err, FuncName & ", стр. " & Cstr (Erl) & Chr (10) & Error$
endh:
End Function