Hi, I'm trying to send a message using the SDK PC Connectivity 3.0 Visual Basic and a Nokia 3320, but I'm getting the following error 4870 "Message Send Failed" when this instruction execute:
Call smsObj.SendSMS(SHORTMESSAGE_ROUTE_TYPE_ANY, submitObj)

This is the code I'm using:

Private Sub Command1_Click()

On Error GoTo ErrorTrap
Dim smsEntry As NokiaCLMessaging.ShortMessageItem
Set smsEntry = New NokiaCLMessaging.ShortMessageItem

smsEntry.Type = SHORTMESSAGE_TYPE_TDMA_SUBMIT
Set submitObj = smsEntry.TypeProperties
submitObj.Message = "Hola esto es una prueba"
submitObj.DestinationAddress = "6291153"
submitObj.OriginatorAddress = "6128321"

Call smsObj.SendSMS(SHORTMESSAGE_ROUTE_TYPE_ANY, submitObj)

Exit Sub

ErrorTrap:
MsgBox "Source: " & Err.Source & Chr$(10) _
& "ErrorDescription: " & Err.Description _
& Chr$(10) & "HelpContext: " & Err.HelpContext

End Sub

Thanks in advance for any help you can offer me.

Regards

Leonardo