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
metro
B4X:
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]