FiveTech Software tech support forums

Code: Select all

Imports _
 Microsoft.WindowsMobile.Telephony
...
Dim phone As New Phone
phone.Talk("+6512345678", True)

Code: Select all

Imports _
 Microsoft.WindowsMobile.PocketOutlook
...
Dim appt As New Appointment
appt.Subject = "Meeting with Jeff"
appt.Start = New _
    DateTime(2006, 7, 15, 9, 0, 0)

appt.End = New _
    DateTime(2006, 7, 15, 11, 0, 0)

'---vibrate the device as a reminder
appt.ReminderVibrate = True

'---repeat the reminder
appt.ReminderRepeat = True

Dim currentSession As New _
   OutlookSession
        currentSession.Appointments.Items. _
   Add(appt)

Code: Select all

Imports _
 Microsoft.WindowsMobile.Telephony
...
Dim phone As New Phone
phone.Talk("+6512345678", True)

Code: Select all

Main()
local oPhone:=CreateObject("Microsoft.WindowsMobile.Telephony")
...
oPhone:phone:Talk("+6512345678",.T.)
return nil