Решено Открыть html файл в браузере

wowa

Well-Known Member
01.02.2007
845
0
#1
Добрый день,

Подскажите, как открыть html файл в браузере (не во встроенным в лотус).

tmpdatafilename - путь к файлу, который лежит на компе.

Предыдущий девелопер сделал так:
Код:
Call workspace.Urlopen(tmpdatafilename)
но у кого открывается в самом лотусе, html файл какой-то поврежденный, теряется половина информации. Там просто очень много скрытых секций и прочего намудреного. Видимо лотус не все может обработать.

Вопрос, как сделать чтобы файл открывался именно в браузере, независимо от настроек клиента?
Или есть ли еще какие-н способы открыть файл на диске?
Спасибо
 

wowa

Well-Known Member
01.02.2007
845
0
#3
каким образом? и какое право я имею менять настройки клиента?
 

Kizarek86

Well-Known Member
Lotus team
20.07.2007
861
6
31
Россея матушка!)
#4
Ну имеете ли Вы право я не вкурсе) Если нужно для работы системы то наверное нужно.
У меня такой кусок энто делает
Код:
 Dim s As New NotesSession
Dim DB As New NotesDatabase("", "names")
Dim DOC As NotesDocument
Dim arr As Variant
Dim noteid As String
arr = Split(s.GetEnvironmentString("Location",True), ",")
noteid = arr(1) 'noteid текущего location документа
If noteid<>"" Then
Set DOC = DB.GetDocumentByID(noteid)
If DOC.GetItemValue("WebRetriever")(0) <> "9" Then
Call DOC.ReplaceItemValue("WebRetriever", "9")
Call DOC.Save(True,True)
Messagebox "Изменены дефолтные настройки открытия внешних ссылок в Lotus." + Chr(10) + "Для вступления изменений в силу, необходимо перезапустить клиент Lotus.", 48, ""
Exit Sub
End If
End If
 

savl

Well-Known Member
Lotus team
28.10.2011
2 116
157
32
#5
@Kizarek86, а дефолтный mail клиент можно таким макаром выставить?
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 435
351
homepage.mac.com
#6
а что мешает:
Код:
 Dim res, run As String
run={cmd.exe /c "start } &fname &{"}
Print {Shell calling...}, run
res=Shell(run)
 

savl

Well-Known Member
Lotus team
28.10.2011
2 116
157
32
#7
@lmike, внешний разработчик.
Но мне тут сказали, что уже решили эту проблему.
 

wowa

Well-Known Member
01.02.2007
845
0
#8
а что мешает:
Код:
 Dim res, run As String
run={cmd.exe /c "start } &fname &{"}
Print {Shell calling...}, run
res=Shell(run)
Спасибо, то что надо, но есть загвоздочка.

Несколько пользователей работает на Линуксе и как я понимаю, код работать не будет. Может быть найдется кусок кода для Линукса?
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 435
351
homepage.mac.com
#9
run={gvfs-open "} &fname &{"}
единственный момент - д.б. настроено открытие html (и др. типов) в DE
ну и сам gvfs-open д.б. установлен (не всегда бывает, хотя нотусня этого "требует")
в бубунте (если не будет находить, но пакет установлен) путь /usr/bin/gvfs-open
 
Последнее редактирование модератором:

wowa

Well-Known Member
01.02.2007
845
0
#11
run={gvfs-open "} &fname &{"}
единственный момент - д.б. настроено открытие html (и др. типов) в DE
ну и сам gvfs-open д.б. установлен (не всегда бывает, хотя нотусня этого "требует")
в бубунте (если не будет находить, но пакет установлен) путь /usr/bin/gvfs-open
суперабл. Большое спасибо, протестировал, все как доктор прописал.