Private Sub MakePhoneCall()
Try
Dim i As Intent
Dim Coordinator As String,CoordinatorPhone As String,CoordinatorExt As String
Coordinator="John Smith"
CoordinatorPhone="123-456-7890"
CoordinatorExt="123"
If CoordinatorExt <>"" Then
CoordinatorPhone=CoordinatorPhone & "," & CoordinatorExt
End If
i.Initialize(i.ACTION_VIEW, "tel:" & Coordinator & " " & CoordinatorPhone)
StartActivity(i)
Catch
Log("MakePhoneCall " & LastException)
modFun.ShowError("MakePhoneCall " & LastException)
End Try
End Sub