ShortMsgReceived WORKING!!!!!!

[nullspirit]

Well, I just found out how to make ShortMsgReceived work.

Take A Look at the code below.

Option Explicit
Private WithEvents SMSNotify As SMS3ASuiteLib.SMS_SuiteAdapter

Public SMSSend As SMS3ASuiteLib.SMS_SuiteAdapter

Private Sub cmdStart_Click()
Dim NumberOfParameterSets As Long
Dim InSim As Long

Set SMSSend = New SMS3ASuiteLib.SMS_SuiteAdapter
Set SMSNotify = SMSSend
Call SMSSend.StartListeningEvents

cmdStart.Enabled = False
cmdStop.Enabled = True

Exit Sub

End Sub

Private Sub cmdStop_Click()
SMSSend.Terminate
cmdStop.Enabled = False
cmdStart.Enabled = True
End Sub

Private Sub Command1_Click()
MessageForm.Show
End Sub

Private Sub SMSNotify_ShortMsgReceived(ByVal SMSMemory As SMS3ASuiteLib.SMS_MEMORY_LOCATION, ByVal Index As Long, ByVal pSMS As SMS3ASuiteLib.ShortMessage)
MsgBox "Sender: " & pSMS.OtherEndAddress
End Sub


Note that SMSNotify also needs to be assign THE SAME object as SMSSend. So the code:

Set SMSSend = New SMS3ASuiteLib.SMS_SuiteAdapter
Set SMSNotify = SMSSend

Well, may be somebody already get this to work. But since I see that there is no answer to this solution here in this board, so I decide to post it up. So other won't be wasting their time, or even think that ShortMsgReceived won't fire like I use to be.

Hope this helps. Cheers.

[auvinent]

Hello!

Thanks for the tip! I'll copy this thread to PC Connectivity forum also.

Teemu / Forum Nokia

[nullspirit]

Sure. No problem.

[naveen_galipally]

Hi,
thanx for putting the code here for helping others and reducing the burden.i have an another doubt,how do we send flash sms.i read somewhere that we have to add some "000000" at the endo of the sms.is it correct,if we r trying to send flash sms,then we have to put any settings. i hope u have done the sending ringtone in vb using nokia pc connectivity sdk.if u would have done can you tell how to send.i am trying ,still getting the errors.i will paste my code,what i am doing,i have an doubt that i am doing some mistake at putting the headers.
For this i am writing like this
Dim cIShortMessage As SMS3ASuiteLib.ShortMessage
Set cIShortMessage = puSMSSuiteAdapter.CreateShortMsg
cIShortMessage.UserDataFormat = DATA_8_BIT
cIShortMessage.UserDataText = "06050415810000024A3A51D195CDD004001B20550590610560558550548540820849900000"
'destination
cIShortMessage.OtherEndAddress = Mobile.Text
'SMSCAddress
cIShortMessage.SCAddress = SMSC.Text
'send SMS
Call puSMSSuiteAdapter.Send(cIShortMessage)
puSMSSuiteAdapter.Terminate
MsgBox "Ringone Sucessfully Sent To " & Mobile.Text

I will wait for your help.
THanx in advance.
Naveen.G
can you help me.