February 20
SMS, o Short Messaging Service, è diventato onnipresente con la proliferazione di computer portatili a basso costo e telefoni cellulari. Naturalmente, lo scopo principale di messaggistica SMS è trasferire brevi messaggi di testo da un telefono cellulare ad un altro. Ma è anche possibile inviare messaggi da e verso cellulari tramite programmi software per computer. Ad esempio, una banca può offrire un servizio che può accettare messaggi di testo dal telefono del cliente e inviare un messaggio indietro con il loro saldo del conto.
1 Copia e incolla il seguente subroutine nella vostra classe del form:
Public Sub SendText (phoneNumber as String, vettore as String, da as String, soggetto as String, mailserver as String, msg as String)
Dim come String = Trim (phoneNumber) e trim (carrier)
Provare
Dim message As New MailMessage(from, to, subject, msg)
Dim mySmtpClient As New SmtpClient(mailServer)
mySmtpClient.UseDefaultCredentials = [True]
mySmtpClient.Send(message)
MessageBox.Show("The mail message has been sent to " And message.[To].ToString(), "Mail", MessageBoxButtons.OK, MessageBoxIcon.Information)
Fermo ex come FormatException
MessageBox.Show(ex.StackTrace, ex.Message, MessageBoxButtons.OK, MessageBoxIcon.[Error])
Fermo ex come SmtpException
MessageBox.Show(ex.StackTrace, ex.Message, MessageBoxButtons.OK, MessageBoxIcon.[Error])
Fermo ex come eccezione
MessageBox.Show(ex.StackTrace, ex.Message, MessageBoxButtons.OK, MessageBoxIcon.[Error])
End Try
2 Copia e incolla il seguente chiamata di funzione in un clic anche del pulsante che invia il messaggio SMS:
SendText ( "1.235.551,234 mila", "@ messaging.yourcarrier.com", "[email protected]", "Questo è un msg txt!", "Mail.email.com", "Come stai oggi, Frank?")
È necessario effettuare l'indirizzo del ripiano (@ messaging.yourcarrier.com) riflettono vettore di telefono del destinatario.
3 Compilare l'applicazione VB e fare clic sul pulsante modulo per inviare il messaggio SMS.