Italian invio SMS

toro1950

Active Member
Licensed User
Purtroppo non avevo pensato che non avendo registrato il nr di WhatsApp non è pssibile inviare messaggi, quindi devo cambiare il modo di
dare un avviso e cosi la cosa più naturale, avendo il nr del cellualare, è inviare un SMS. ho provato con questo codice su androide
B4X:
Dim d As PhoneSms
    testo= "Salve, ............ "
    d.send(Edittel.text.trim,testo)

ma non funziona, su manifest ho inserito
AddPermission(android.permission.READ_PHONE_STATE)
AddPermission(android.permission.SEND_SMS)
Dove sbaglio?
 

sirjo66

Well-Known Member
Licensed User
Longtime User
non avendo registrato il nr di WhatsApp non è pssibile inviare messaggi

Non è vero, si possono inviare messaggi tramite WhatsApp anche se il numero non è in rubrica.

Dal tuo telefonino prova cliccare qui: (ovviamente devi cambiare il numero di destinazione)

B4X:
https://api.whatsapp.com/send?phone=393481234567&text=messaggio
 

toro1950

Active Member
Licensed User
srrjo66 ti ringrazio, ma quel codice l'avevo utilizzato in questo modo
B4X:
    If Edittel.Text.Length < 9 Then
        xui.MsgboxAsync("Numero di telefono non inserito! o incopleto","Attenzione")
        Return
    Else
    testo= "Salve, ........"" 
        
    Dim Intent1 As Intent
    Intent1.Initialize(Intent1.ACTION_VIEW, $"https://api.whatsapp.com/send?phone=${Edittel.text}&text=${testo}"$)
    StartActivity(Intent1)
ma funziona solo se il nr è registrato sul cellulare, quindi l'ho abbandonato, anche perche su iphone non accettava il nr e mi fa scegliere
tra i contatti a quale inviarlo
io non vedo molta differenza fra il tuo codice e quello utilizzato da me, forse mi sbaglio in tal caso aiutami a capire
 

toro1950

Active Member
Licensed User
Ho risolto con l'invio sms su androide, ho dovuto aggiungere il seguente codice per i permessi alla sub
B4XPage_Created (Root1 As B4XView)

If rp.Check(rp.PERMISSION_SEND_SMS) = False Then
rp.CheckAndRequest(rp.PERMISSION_SEND_SMS)
End If

ora non mi resta che trovare come inviarli con B4i per iphone
veramente ho trovato qualcosa tipo
Dim sPhone As String = "+39339......"
Main.App.OpenURL($"sms:${sPhone} & messaggio & "$)
ma non mi inserisce il messaggio
 

sirjo66

Well-Known Member
Licensed User
Longtime User
ma funziona solo se il nr è registrato sul cellulare

No, sei tu che lo usi in modo errato, perchè a me funziona senza problemi

Come passi il numero di cellulare ??
Ad esempio, se il numero è +39 348 1234567, devi togliere il "+" e passare tutto il resto per intero, cioè 393481234567, e ovviamente il testo devi fare un urlEncode
 
Top