Запуск браузера из лотуса

[Dragon108]

Есть необходимость запускать браузер из лотуса. Пока получается запускать IE. Как можно запускать другие браузеры?
Вот код, запускающий браузер IE

Sub Click(Source As Button)

Dim ws As New NotesUIWorkspace
Dim ses As New NotesSession
Dim doc As NotesDocument
Dim nn As New notesname (ses.UserName)
Dim URL As String, mailDomain As String


Set doc =ws.CurrentDocument.Document

Select Case nn.Organization
Case "HumanCapital": mailDomain="gmail.com"
Case "GoodWill": mailDomain="good-will.ru"
Case "Diogen Personal": mailDomain="diogen-personal.ru"
Case Else: mailDomain="human-capital.ru"
End Select



' Выводит сообщение "Действительно отправить письмо с координатами?"
' 4 = MB_YESN 	Yes and No , 32 = MB_ICONQUESTION Question mark 
Dim boxType As Long, answer As Integer
boxType& = 4 + 32
answer% = Messagebox("Действительно отправить письмо с координатами?", boxType&, _ 
"Continue?")

If answer% = 6 Then	

'Создает новый документ с комментарием об отправке координат кандидату
Call NewCommentAfterSendCoordinates (Form, DocType)

URL = |mail.google.com/mail/|+|/?extsrc=mailto&url=mailto:|

res = Evaluate(|@URLEncode("Domino"; "|+doc.FIO(0)+| ")|)

URL = URL + res(0)+|%20%3C|+doc.email(0)+|%3E|

req = |explorer "http://| + URL+|"|

res = Shell (req)


End If

End Sub

 

[Akupaka]

req = |explorer "http://| + URL+|"|

а req = |http://| + URL+|| не хавает браузер по-умолчанию?

 

[Мыш]

а req = |http://| + URL+|| не хавает браузер по-умолчанию?

Akupaka, это, КМК, то же самое, что и через explorer - он же не iexplorе запускает.
Можно попробовать, например, firefox (или как у него там exe-шник-то называется) вместо explorer - или поковыряться с функцией ShellExecuteEx, были где-то примеры для Лотуса...

 

[Xalet]

Sub Click(Source As Button)
Set w = New NotesUIWorkspace
w.UrlOpen("www.google.ru")
End Sub

откроет браузером из настроек лотусов

 

[Akupaka]

Akupaka, это, КМК, то же самое, что и через explorer - он же не iexplorе запускает

Значит ИЕ стоит по-умолчанию, у через explorer запускается в лисе