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

[wowa]

Добрый день,

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

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

Предыдущий девелопер сделал так:

Call workspace.Urlopen(tmpdatafilename)

но у кого открывается в самом лотусе, html файл какой-то поврежденный, теряется половина информации. Там просто очень много скрытых секций и прочего намудреного. Видимо лотус не все может обработать.

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

 

[Kizarek86]

Проверяйте перед открытие настройки клиента и меняйте на нужные

 

[wowa]

каким образом? и какое право я имею менять настройки клиента?

 

[Kizarek86]

Ну имеете ли Вы право я не вкурсе) Если нужно для работы системы то наверное нужно.
У меня такой кусок энто делает

 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]

@Kizarek86, а дефолтный mail клиент можно таким макаром выставить?

 

[lmike]

а что мешает:

 Dim res, run As String
run={cmd.exe /c "start } &fname &{"}
Print {Shell calling...}, run
res=Shell(run)

 

[savl]

@lmike, внешний разработчик.
Но мне тут сказали, что уже решили эту проблему.

 

[wowa]

а что мешает:

 Dim res, run As String
run={cmd.exe /c "start } &fname &{"}
Print {Shell calling...}, run
res=Shell(run)

Спасибо, то что надо, но есть загвоздочка.

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

 

[lmike]

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

 

[lmike]

для мака run={open -a "} &fname &{"}
ЕМНИП

 

[wowa]

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

суперабл. Большое спасибо, протестировал, все как доктор прописал.