1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Письмо и фото

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

  1. Cleric-Lviv

    Cleric-Lviv Well-Known Member
    Lotus team

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

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

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

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

    Вложения:

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

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

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

    Cleric-Lviv Well-Known Member
    Lotus team

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

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

    rinsk Well-Known Member
    Lotus team

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

    akat Well-Known Member
    Lotus team

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

    iki Гость

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

    (у меня фотки лежат на серваке. Выложу то как я это реализовал у себя. Если у вас приаттачены в кадрах или еще как придеца допилить)
    Удаляем в табличке 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
     
Загрузка...
Похожие Темы - Письмо фото
  1. Shandrik
    Ответов:
    18
    Просмотров:
    274
  2. valmont
    Ответов:
    5
    Просмотров:
    188
  3. k85
    Ответов:
    8
    Просмотров:
    232
  4. puks
    Ответов:
    0
    Просмотров:
    264
  5. vital
    Ответов:
    6
    Просмотров:
    1.137

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