Android Question sms send without permissions problem

gregorio_adrian_gimenez

Active Member
Licensed User
Hello, if this code is sent by EREL, is it possible to modify it to send an SMS without the user having to press the send button? I need it to be sent directly from the APP. This issue of permit restrictions is complicating me.


B4X:
Sub enviar_sms()   
    
    Dim PhoneNumber As String = "02323206213"
    Dim Message As String = evento_electrico & evento_informacion & evento_telefonico & evento_internet & " " & Editsuministro.Text & " " & Editobs.Text
    Dim recibido As Boolean = True
    Dim enviado As Boolean = True

    'env.Initialize("env")   
    ToastMessageShow("enviando mensaje..."& PhoneNumber,True)           
    'msn.Send2(PhoneNumber,Message,recibido,enviado) ' envia sms
    Dim In As Intent
    Dim EN As Intent
    In.Initialize(In.ACTION_VIEW, "sms:" & PhoneNumber)
    'In.Initialize(In.ACTION_SEND, "sms:" & PhoneNumber)
    
    In.PutExtra("sms_body", Message)
    
    StartActivity(In)
    
    
    End Sub
 

Computersmith64

Well-Known Member
Licensed User
Search the forum for "send SMS". There are quite a few posts about this.

- Colin.
 

DonManfred

Expert
Licensed User
Top