NotesGPSPosition (LotusScript)

Defined in

NotesGPS

Contains

NotesGPSCoordinates (LotusScript)

Properties

TimeStamp

Methods

Update

Syntax

Set position = NotesGPS.getCurrentPosition()

Example

Public Function getCoordinates() As String 
         
        On Error GoTo errhandler 
        On Error 4508 GoTo err4508 
          
        Dim session As New NotesSession 
        Dim gps As NotesGPS 
        Set gps =  session.CreateGPS() 
         
        Dim hasAccess As Boolean 
        hasAccess = GPS.Requestaccess() 
        If hasAccess Then 
            Dim pos As NOTESGPSPOSITION 
            Set pos = GPS.Getcurrentposition() 
            Dim coo As NOTESGPSCOORDINATES 
            Set coo = pos.Coordinates 
            Dim lat As Double 
            Dim lot As Double 
            lat = coo.Latitude 
            lot = coo.Longitude 
        End If 
        getCoordinates = "Coordinates: LAT " & lat & " LONG " & lot 
        Exit Function
errhandler: 
        MsgBox Error$ & " in " & Erl & " - " & Err 
        Exit Function 
err4508: 
        getCoordinates = "" 
        Exit Function
End Function