I am trying to send a message to my cell phone but when the following instrucction executes: "Call smsObj.SendSMS(SHORTMESSAGE_ROUTE_TYPE_ANY, submitObj)", i get the following error: 4870 "Message Send Failed" when the instruction, Call smsObj.SendSMS(SHORTMESSAGE_ROUTE_TYPE_ANY, submitObj).

If you have any suggestions please let us know.

Thanks in advance.

This is the code:


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 = "4166291153"
submitObj.OriginatorAddress = "4166128321"

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