Hello,
with the following code I wanted to send a text message. But the wid SMS not sent and I do not know why. Thank you for your help in advance.
best regards
Amalkotey
with the following code I wanted to send a text message. But the wid SMS not sent and I do not know why. Thank you for your help in advance.
best regards
Amalkotey
B4X:
Dim Sms As PhoneSms
Dim Number As PhoneId
Dim Zeile As List
Dim Order As String
Zeile.Initialize
Zeile.Add("Hiermit bestelle ich die Software " & spnProdukte.SelectedItem)
Zeile.Add(CRLF & CRLF)
Zeile.Add("Name : " & tbName.Text & CRLF)
Zeile.Add("eMail : " & tbMail.Text & CRLF)
Zeile.Add("Strasse : " & tbStreet & CRLF)
Zeile.Add("Anschrift: " & tbPLZ & " " & tbOrt & CRLF)
Zeile.Add("Country : " & spnCountry.SelectedItem & CRLF)
Zeile.Add("Rufnummer: " & number.GetLine1Number)
Order = ""
For i = 0 To Zeile.Size - 1
Order = Order & Zeile.Get(i)
Next
If (chbSMS.Checked = True) Then
If (Msgbox2("Bestellung senden","Bestellung", "ok", "", "Abbruch", Null) = DialogResponse.POSITIVE) Then
Sms.Send("+4915252164550", Order)
End If
Else
' eMail
End If