Lotus script – GoogleMap localisation class


Hello, this simple class allows to display a google map from the lotus notes client ! There’s missing the Window’s API reference. Tell me if you want the lss file with all the references…

Greetings !

Class GoogleMapStreetUrl
Private sUrl As String
Private sStreet As String
Private sCity As String
Sub new()
End Sub
Public Function setStreet(psStreet As String) As Integer
sStreet = Replace(psStreet, ” “, “+”)
End Function
Public Function setCity(psCity As String) As Integer
sCity = Replace(psCity, ” “, “+”)
End Function
Public Function getUrl() As String
Dim sNewUrl As String
sNewUrl = Replace(sUrl, “%LOC%”,sCity)
sNewUrl = Replace(sNewUrl, “%STREET%”,sStreet)
getUrl = sNewUrl
End Function
Public Function open() As String
Dim url As String
url = Me.getUrl()
Call ShellExecute ( GetActiveWindow(), “open”, url, “”, “”, WIN_NORMAL)
End Function
End Class
Advertisements

About pierrekoerber
Hey, pour faire connaissance, laisse-moi un message... drop me a line.

One Response to Lotus script – GoogleMap localisation class

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: