Hi,
I am using Nokia 3230 model and VB express edition.Im new to VB.Im trying to develop an application to send a SMS. I am using Nokia SMS adapter api for sending sms. I am attaching my code below. It is not giving any error, but it is not sending the SMS also.Pls tell me what to do.
Code:
Imports SMS3ASuiteLib
Public Class Form1
Dim smssend As SMS_SuiteAdapter
Dim shortmsg As ShortMessage
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
smssend = New SMS_SuiteAdapter
End Sub
Private Sub ButtonSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSend.Click
On Error GoTo errorhandler
shortmsg = smssend.CreateShortMsg
shortmsg.UserDataText = "sms Send"
shortmsg.OtherEndAddress = "+919884200080"
shortmsg.SCAddress = "+919840011003"
smssend.Send(shortmsg)
errorhandler:
Dim smserror As NmpAdapterError
smserror = smssend.GetLastError
Select Case smserror
Case NmpAdapterError.errPhoneNotConnected
MsgBox("Phone Not Connected")
Case NmpAdapterError.errSmsNoSCAddress
MsgBox("No service address")
Case NmpAdapterError.errSsAbsentSubscriber
MsgBox("Absent Subscriber")
End Select
End Sub
Private Sub ButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
smssend.Terminate()
smssend = Nothing
End Sub
End Class



