Italian sms

saslvovc

Member
Licensed User
Longtime User
Non riesco ad inviare un SMS

B4X:
Sub InvioSMS_Click
     Messaggio.Send(NumeroSMS.text,EditSMS.Text)
End Sub

qualcuno sa dirmi cosa sbaglio
 

sirjo66

Well-Known Member
Licensed User
Longtime User
Io uso questa routine, che funziona anche per messaggi oltre i 160 caratteri

Sergio

B4X:
Sub SendLargeSms(Destination As String, Message As String)

  Dim r As Reflector
  r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null)
  Dim parts As Object
  parts = r.RunMethod2("divideMessage", Message, "java.lang.String")
  r.RunMethod4("sendMultipartTextMessage", _
  Array As Object(Destination, Null, parts, Null, Null), _
  Array As String("java.lang.String", "java.lang.String", _
  "java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList"))

End Sub
 

saslvovc

Member
Licensed User
Longtime User
e perfettamente funzionate solo che i messaggi arrivano tagliati si può evitare questo
 

saslvovc

Member
Licensed User
Longtime User
ho capito che questo dipende da un ritorno di notifica del messaggio,come faccio a evitare questo
 

saslvovc

Member
Licensed User
Longtime User
ho provato tutti gli esempi trovati nel forum per inviare SMS dalla mia app ma nulla.
non so cosa impedisca di farlo.
Anche perchè se faccio gli esempi per prova al di fuori della mia app questi vengono inviati.
Comunque se non trovo soluzione rinuncio all'invio sms iviero solo E-Mail quelle funzionano.
 
Top