
Originally Posted by
pkaiser2
I am trying to send a SMS using Visual Basic. My phone is connected via a USB data cable.
I tried using NokiaCLMessaging, and this is my code:
Dim smsObj As NokiaCLMessaging.ShortMsgAdapter
Dim smsMemObj As NokiaCLMessaging.IMemory
Set smsObj = New NokiaCLMessaging.ShortMsgAdapter
Set smsMemObj = smsObj
Dim smsEntry As NokiaCLMessaging.ShortMessageItem
Set smsEntry = New NokiaCLMessaging.ShortMessageItem
smsEntry.Type = SHORTMESSAGE_TYPE_GSM_SUBMIT
Dim submitObj As NokiaCLMessaging.IGSMSubmit
Set submitObj = smsEntry.TypeProperties
submitObj.Message = "Authenticated"
submitObj.DestinationAddress = "+639274637555"
submitObj.ServiceCenterAddress = "+639274637555"
Call smsObj.SendSMS(SHORTMESSAGE_ROUTE_TYPE_ANY, submitObj)
But i get a "no phone connected" error. The Nokia PC Suite indicates that the phone is connected.
Should i try to use AT commands? Is there a sample visual basic program for AT Commands?
Which is the best way? I also tried using ActiveXperts control, and it works, but it costs $400.
Looking at the Extensive library reference, it looks like NokiaCLMessaging does not support 66xx phones?
Thanks,
Philipp