Письмо и фото

Тема в разделе "Lotus - Программирование", создана пользователем Cleric-Lviv, 11 фев 2011.

  1. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    Всем привет!

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

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

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

    Вложения:

    • 11.02.jpg
      11.02.jpg
      Размер файла:
      16,7 КБ
      Просмотров:
      163
  2. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.046
    Симпатии:
    18
    через HTML теги где у тебя будет компутедное поле формирующее линк на нужную фотку
     
  3. Cleric-Lviv

    Cleric-Lviv Lotus team
    Lotus team

    Регистрация:
    3 янв 2008
    Сообщения:
    605
    Симпатии:
    0
    ToxaRat

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

    rinsk Lotus team
    Lotus team

    Регистрация:
    12 ноя 2009
    Сообщения:
    795
    Симпатии:
    78
    @DbLookup(...;"RtField") на форме вполне так себе возвращал содержимое RT... на счет фото - не знаю.
    А вообще - проще при создании письма фтыкать свою фото...
     
  5. akat

    akat Lotus team
    Lotus team

    Регистрация:
    16 июн 2010
    Сообщения:
    243
    Симпатии:
    7
    Не товарисчи,
    просче к СеймТайму прикрутить фотку и приучить юзеров смотреть её :)
     
  6. iki

    iki Гость

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

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

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

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



    Форма Memo почтового ящика
    Код (Text):
       

    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
     
Загрузка...

Поделиться этой страницей