#DEFINE errPhoneNotConnected 7696 #DEFINE errCommunicationError 7689 #DEFINE errUnknown 7935 LOCAL CellNum LOCAL TextMesg PUBLIC CommErrorRetries CellNum = '353863982273' TextMesg = 'TESTING NOKIA DATA SUITE' CommErrorRetries = 0 ON ERROR DO ErrHand objSMS = CREATEOBJECTEX('SMSAdapter.SMSAdapter.1','','') objMess = .NULL. && objMess is initially a boolean with value = .F. objSMS.CreateShortMsg(@objMess) objMess.UserDataText = TextMesg objMess.OtherEndAddress = CellNum objMess.SCAddress = CellNum objSMS.Send(objMess) objSMS.Terminate PROCEDURE ErrHand SMSErr = objSMS.GetLastError DO CASE CASE SMSErr = errPhoneNotConnected MESSAGEBOX("Phone is not connected") CASE SMSErr = errCommunicationError * If Communication Error retry 5 times CommErrorRetries = CommErrorRetries + 1 IF CommErrorRetries > 5 MESSAGEBOX("Communication error between the device and the PC") ELSE RETRY ENDIF CASE SMSErr = errUnknown MESSAGEBOX("Unknown error") OTHERWISE MESSAGEBOX("Error code : "+ALLTRIM(STR(SMSErr))) ENDCASE ON ERROR CANCEL CLEAR ALL ENDPROC>Does anyone know of a good Pager / SMS Message developer tool for VFP 8.0 ??