Ich habe mir mal die Freiheit genommen und das Script erweitert, so daß man über eine Dialogbox eine Startadresse eingeben kann und dann die Routenberechnung zur im Dokument enthaltenen Adresse aufgerufen wird.
Dazu müssen in die Maske 5 Felder eingefügt werden, alle vom Typ Text, Bearbeitbar :
SStrasse, SPLZ, SOrt, Rtype, Desctype.
Dann muß eine Dialogmaske gebaut werden, die die Eingabe der Startadresse und zwei Optionen erlaubt, Feldnamen wie oben.
SStrasse, SPLZ, SOrt sind Text, Bearbeitbar
Rtype, Optionsfeld, Optionen = schnellste Route|fast, kürzeste Route|short
Desctype, Optionsfeld, Optionen = kompakte Beschreibung|standard, detaillierte Beschreibung|detailsmap
Zum Schluß einen Button in die Maske einfügen mit folgenden Scripten :
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function ShellExecuteFile Lib "shell32.dll" Alias "ShellExecuteA" (Byval _
hwnd As Long, Byval lpOperation As String, Byval lpFile As String, Byval _
lpParameters As String, Byval lpDirectory As String, Byval nShowCmd As Long) As Long
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim docThis As NotesDocument
Set docThis = ws.CurrentDocument.Document
flag% = ws.DialogBox_("Dlg_Route_Start",True,True,False,True,False,False,"Startort angeben",docThis)
If flag% Then
With docThis
Call CalcRouteMap24( .SStrasse(0) , .SPLZ(0) , .SOrt_(0) , .Firma_strasse(0) , .Firma_plz(0) , .Firma_ort(0) , .RType_(0) , .Desctype(0) )
End With
End If
End Sub
Sub CalcRouteMap24( sStreet As String , sZip As String , sCity As String , dStreet As String , dZip As String , dCity As String , rtype As String , desctype As String)
Dim strURL As String
Dim vValue As Variant
strURL = "
http://www.map24.de/map24/routingform.php3?mid=MAP24&sstreet=" + sStreet
strURL = strURL + "&szip=" + sZip
strURL = strURL + "&scity=" + sCity
strURL = strURL + "&dstreet=" + dStreet
strURL = strURL + "&dzip=" + dZip
strURL = strURL +"&dcity=" + dCity
strURL = strURL + "&rtype=" + rtype
strURL = strURL + "&desctype=" + desctype + "&loadlimiter=&usecity=&maptype=JAVA&mid=MAP24&x=73&y=11"
ShellExecuteFile GetDesktopWindow(), "open", strURL, "", "", 1
End Sub
Einziges Manko, man muß immer noch den Button "Route berechnen" im Browser betätigen.