Hi all,
I just managed to integrate SMS functionality into my system in conjunction with a texting service called SMSgateway.ca ... I thought you might find some of this code interesting.
This hard codes our user key, so it's been replaced with 123456789.
var vCell as string
var vStaff as string = DBColl#
var vStaffName as string
var vStaffExt as string
var vSubject as string
var vSMSRun as string
var vStaffEmail as string
vStaffName = @xlookup(@FN,vStaff,"Staff Screen!StaffRef", "StaffName")
vStaffExt = @xlookup(@FN,vStaff,"Staff Screen!StaffRef", "StaffExt")
vStaffEmail = @xlookup(@FN, vStaff, "Staff Screen!StaffRef", "StaffEmail")
vSubject = "This is a message for " + DBName + " to call the office of " + vStaffName + " at " + vStaffExt + " or by email at " + vStaffEmail
PopUpSelectPosition(1, @Xpos(DBPd), @Ypos(DBPd))
vCell = @PromptForUserInput("Text To Cell Number:",DBTel1)
vSubject = @PromptForUserInput("Message?",vSubject)
vSubject = @replace(vSubject, " ", "%20")
IF vCell <> "" THEN
{
ThrowFocus(DBNote0)
vSMSRun = @ASynchShell("http://smsgateway.ca/sendsms.aspx?CellNumber=" + vCell + "&MessageBody=" + vSubject + "&AccountKey=123456789")
DBNote0 = "SMS [" + vCell + "]: " + @replace(vSubject,"%20", " ")
}