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

Dragon108

Well-Known Member
19.01.2010
265
0
#1
Есть необходимость запускать браузер из лотуса. Пока получается запускать 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
 

Мыш

Well-Known Member
Lotus team
12.02.2008
1 085
13
#3
а req = |http://| + URL+|| не хавает браузер по-умолчанию?
Akupaka, это, КМК, то же самое, что и через explorer - он же не iexplorе запускает.
Можно попробовать, например, firefox (или как у него там exe-шник-то называется) вместо explorer - или поковыряться с функцией ShellExecuteEx, были где-то примеры для Лотуса...
 

Xalet

Well-Known Member
08.08.2008
410
0
#4
Код:
Sub Click(Source As Button)
Set w = New NotesUIWorkspace
w.UrlOpen("www.google.ru")
End Sub
откроет браузером из настроек лотусов