SMS , ou Short Messaging Service, tornou-se onipresente , com a proliferação de computadores móveis baratos e telefones celulares. Claro que , o objectivo principal de mensagens SMS é a transferência de mensagens curtas de texto a partir de um telefone celular para outro . Mas também é possível enviar mensagens para e de telefones via programas de computador . Por exemplo, um banco pode oferecer um serviço que pode aceitar mensagens de texto de telefones de clientes e enviar uma mensagem de volta com o seu saldo da conta. Instruções
um
Copie e cole o seguinte sub-rotina em sua classe de formulário :
Public Sub SendText ( phoneNumber como String, portador como String, de como String, assunto como String, como Mailserver string, msg como string) Dim como string = Trim ( phoneNumber ) e guarnição ( transportador) TryDim mensagem como nova MailMessage ( de, para , assunto, msg) mySmtpClient Dim As New SmtpClient ( Mailserver ) mySmtpClient.UseDefaultCredentials = [verdadeiro] mySmtpClient . Enviar (mensagem) MessageBox.Show (" a mensagem de e-mail foi enviado para" E a mensagem . [Para] . ToString () , "Mail" , MessageBoxButtons.OK , MessageBoxIcon.Information ) Capturas ex Como FormatExceptionMessageBox.Show (ex. StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ erro ] ) Capturas ex Como SmtpExceptionMessageBox.Show ( ex.StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ erro ] ) Capturas ex Como ExceptionMessageBox.Show (ex. . StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon [ erro ] ) End Try
2
Copie e cole o seguinte chamada de função para o mesmo clique do botão que envia a mensagem de SMS: < br >
SendText ( " 1235551234 ", " @ messaging.yourcarrier.com ", " [email protected] ", " Esta é uma msg txt ! ", " mail.email.com ", " como você está hoje , Frank ? ")
Você deve fazer o endereço de suporte ( @ messaging.yourcarrier.com ) refletem operadora de telefone do destinatário.
3
compilar sua aplicação VB e clique no botão formar para enviar sua mensagem SMS .
