Android Question sms send without permissions problem

[gregorio_adrian_gimenez]

Hola, si uso este código enviado por EREL, ¿es posible modificarlo para enviar un SMS sin que el usuario tenga que presionar el botón de enviar? Necesito que sea enviado directamente desde la APP. Este tema de restricciones de permisos me está complicando.
metro

 Sub enviar_sms ()   
    
    Dim PhoneNumber As String = "0232320XXXXXX"
    Dim Message As String = evento_electrico & evento_informacion & evento_telefonico & evento_internet & "" & Editsuministro.Text & "" & Editobs.Text
    Dimado As Boolean = True
    Dim enviado como Boolean = True

    'env.Initialize ("env")   
    ToastMessageShow ("enviando mensaje ..." & PhoneNumber, True)           
    'msn.Send2 (PhoneNumber, Message, recibido, enviado)' envia sms
    Dim In In Intent
    Dim EN como intención
    In.Initialize (In.ACTION_VIEW, "sms:" & PhoneNumber)
    
    
    In.PutExtra ("sms_body", Mensaje)
    
    Iniciar actividad (en)
    
    
    End Sub [/ CODE]

 

[DonManfred]

This is the english part of the forum. Please write english here.