×

Discussion Board

Results 1 to 4 of 4
  1. #1
    Registered User
    Join Date
    Mar 2003
    Posts
    32

    ShortMsgReceived WORKING!!!!!!

    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.

  2. #2
    Nokia Developer Expert
    Join Date
    Mar 2003
    Location
    Tampere / Finland
    Posts
    1,839

    RE: ShortMsgReceived WORKING!!!!!!

    Hello!

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

    Teemu / Forum Nokia

  3. #3
    Registered User
    Join Date
    Mar 2003
    Posts
    32

    RE: ShortMsgReceived WORKING!!!!!!

    Sure. No problem.

  4. #4
    Registered User
    Join Date
    Mar 2003
    Posts
    35

    RE: ShortMsgReceived WORKING!!!!!!

    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.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
×