> LOCAL objSMS As SMS3ASuiteLib.SMS_SuiteAdapter > LOCAL objMess As SMS3ASuiteLib.ShortMessage > > LOCAL CellNum > LOCAL TextMesg > > CellNum = '353863982273' > TextMesg = 'TESTING NOKIA DATA SUITE' > > objSMS = CREATEOBJECTEX('SMSAdapter.SMSAdapter.1','','') > objMess = .NULL. && objMess is initially a boolean with value = .F. > objSMS.CreateShortMsg(@objMess) > > objMess.UserDataText = TextMesg > objMess.OtherEndAddress = CellNum > > objSMS.Send(objMess) > > objSMS.Terminate >>
> ' VISUAL BASIC CODE (WORKING) > Dim objSMS As SMS3ASuiteLib.SMS_SuiteAdapter > Dim objMess As SMS3ASuiteLib.ShortMessage > > Dim CellNum As String > Dim TextMesg As String > > CellNum = '353863982273' > TextMesg = 'TESTING NOKIA DATA SUITE' > > Set objSMS = New SMS3ASuiteLib.SMS_SuiteAdapter > Set objMess = objSMS.CreateShortMsg > > objMess.UserDataText = TextMesg > objMess.OtherEndAddress = CellNum > > Call objSMS.Send(objMess) > > Set objMess = Nothing > objSMS.Terminate > Set objSMS = Nothing >