Объявление

Свернуть
Пока нет объявлений.

Просмотр почтовых сообщений

Свернуть
X
  • Фильтр
  • Время
  • Показать
Очистить всё
новые сообщения

  • Просмотр почтовых сообщений

    Изначально у нас входящие и исходящие почтовые сообщения в документах выводились обычным списком и для их просмотра, нужно было двойным кликом открывать каждое письмо, что не удобно, особенно если писем много. В связи с этим появилось желание добиться отображения писем в документе как в Аутлуке при выделении письма в списке, оно сразу же показывается в том же окне. Вот так вот



    Для этого, к контролу rql_Emails2, который выводил список почтовых сообщений, добавился WebBrowser_ShowEmail типа Microsoft Web Browser, на событие DocumentComplete которого был повешен скрипт
    Код:
    Dim Mails
    Dim Mail
    Dim NewHTML
    
    ' Если есть выделенные письма в списке
    If rql_Emails2.object.SelectedCount>0 Then
      Set Mails=rql_Emails2.object.SelectedRequests
      If Mails.Count>0 Then
        Set Mail=Mails.Item(0)
        ' Если письмо храниться только в формате Plain text, заменяем символы переноса строки на соответствующие html-тэги
        If Mail.UserFields("Body HTML Text").IsNull Then
          NewHTML=Replace(Mail.UserFields("Body Plain Text").TValue, vbCrLf, "
    ")
          WebBrowser_ShowEmail.object.Document.Open
          WebBrowser_ShowEmail.object.Document.Write NewHTML
          WebBrowser_ShowEmail.object.Document.Close
        Else ' Если письмо уже в html-формате, выводим как есть
          WebBrowser_ShowEmail.object.Document.Open
          WebBrowser_ShowEmail.object.Document.Write Mail.UserFields("Body HTML Text").TValue.HtmlText
          WebBrowser_ShowEmail.object.Document.Close
        End If
      End IF
    End If
    Так же был добавлен скрипт на SelectionChanged контрола rql_Emails2, который при выделении письма создает в WebBrowser_ShowEmail пустую страницу, на которую мы и выводим наше сообщение:
    Код:
    WebBrowser_ShowEmail.object.Navigate "about:blank"
    Таким не хитрым образом, мы получаем привычный просмотр почты, правда, не все картинки при этом показываются сразу, в некоторых случаях нужно выделить сообщение второй раз, чтобы отобразилось изображение. Может, кто подскажет, как это можно победить?
    Мой профиль в Linked
Обработка...
X