French Envoi de SMS

[ciginfo]

Bonjour,
Mon appli utilise le code ci dessous pour envoyer des SMS. Ce code fonctionne très bien sur la plupart des smartphones mais sur certains comme le Honor 10 de chez Huawei l'envoi du SMS plante l'appli.
J'ai posé la question sur le forum en anglais à cette adresse mais mon mauvais anglais ne me permet pas de résoudre le problème en lisant la réponse d'Erel.
https://www.b4x.com/android/forum/threads/sms-sending-problem.123239/
Avez vous une idée pour régler mon problème?
Merci.

Sub ImgSms_Click
    MessageURI= "Ceci est un exemple "
    Dim i As Intent
    i.Initialize(i.ACTION_VIEW,"")
    i.SetType("vnd.android-dir/mms-sms")
    i.PutExtra("address", ""))
    i.PutExtra("sms_body", MessageURI)
    StartActivity(i)
End Sub

 

[mberthe]

Une solution qui marche chez moi (avec la librairie "phone")

Dim Message As Email
    Message.To.Add(adresse destinataire)
    Message.Subject="sujet du message"
    Message.Body="texte du message"
    Message.Attachments.Add(fichier à envoyer)
    StartActivity(Message.GetIntent)

 

[ciginfo]

Merci mais Je suppose que que ce code est pour l'envoi d'un e-mail. J'ai besoin d'un code pour l'envoi de SMS