Italian sms

[saslvovc]

Non riesco ad inviare un SMS

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

qualcuno sa dirmi cosa sbaglio

 

[sirjo66]

Io uso questa routine, che funziona anche per messaggi oltre i 160 caratteri

Sergio

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]

e perfettamente funzionate solo che i messaggi arrivano tagliati si può evitare questo

 

[saslvovc]

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

 

[saslvovc]

bobobo

 

[LucaMs]

settete

 

[saslvovc]

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.