saigal
05-08-2002, 14:05
Hi,
I have installed the new Nokia 2.1 SDK and have been able to create a send SMS interface using it.
But there is a problem with the events part of it.I tried the SmsMsgReceive and SmsMsgSent events but nothing happends whenever i receive or send a SMS.
The program is as given below. Is there something wrong with my program or is there a bug in the SDK. I am using a Nokia 6210 with a data cable.
Public puSMS_SuiteAdapter As SMS3ASuiteLib.SMS_SuiteAdapter
Private WithEvents SmsNotify As SMS3ASuiteLib.SMS_SuiteAdapter
Private Sub cmdExit_Click()
Unload Listen
End
End Sub
Private Sub cmdListen_Click()
Set puSMS_SuiteAdapter = New SMS3ASuiteLib.SMS_SuiteAdapter
MsgBox ("here")
Call puSMS_SuiteAdapter.StartListeningEvents
End Sub
Private Sub SmsNotify_ShortMsgReceived(ByVal SMSMemory As SMS3ASuiteLib.SMS_MEMORY_LOCATION, ByVal Index As Long, ByVal pSMS As SMS3ASuiteLib.ShortMessage)
MsgBox ("Message received from " & pSMS.OtherEndAddress)
End Sub
Private Sub SmsNotify_ShortMsgSent(ByVal pSMS As SMS3ASuiteLib.ShortMessage)
MsgBox ("Message received from " & pSMS.OtherEndAddress)
End Sub
Private Sub Listen_UnLoad()
puSMS_SuiteAdapter.Terminate
Set puSMS_SuiteAdapter = Nothing
End Sub
Please advice me what should i do.
Regards,
Rajat Saigal
I have installed the new Nokia 2.1 SDK and have been able to create a send SMS interface using it.
But there is a problem with the events part of it.I tried the SmsMsgReceive and SmsMsgSent events but nothing happends whenever i receive or send a SMS.
The program is as given below. Is there something wrong with my program or is there a bug in the SDK. I am using a Nokia 6210 with a data cable.
Public puSMS_SuiteAdapter As SMS3ASuiteLib.SMS_SuiteAdapter
Private WithEvents SmsNotify As SMS3ASuiteLib.SMS_SuiteAdapter
Private Sub cmdExit_Click()
Unload Listen
End
End Sub
Private Sub cmdListen_Click()
Set puSMS_SuiteAdapter = New SMS3ASuiteLib.SMS_SuiteAdapter
MsgBox ("here")
Call puSMS_SuiteAdapter.StartListeningEvents
End Sub
Private Sub SmsNotify_ShortMsgReceived(ByVal SMSMemory As SMS3ASuiteLib.SMS_MEMORY_LOCATION, ByVal Index As Long, ByVal pSMS As SMS3ASuiteLib.ShortMessage)
MsgBox ("Message received from " & pSMS.OtherEndAddress)
End Sub
Private Sub SmsNotify_ShortMsgSent(ByVal pSMS As SMS3ASuiteLib.ShortMessage)
MsgBox ("Message received from " & pSMS.OtherEndAddress)
End Sub
Private Sub Listen_UnLoad()
puSMS_SuiteAdapter.Terminate
Set puSMS_SuiteAdapter = Nothing
End Sub
Please advice me what should i do.
Regards,
Rajat Saigal