Copia e incolla il seguente subroutine nella classe del form :
pubblico
Sub SendText ( phoneNumber come String, vettore, come String, da come String, oggetto come String, come mailserver String, msg As String) Dim a as String = Trim ( phoneNumber ) e trim ( carrier ) messaggio TryDim As New MailMessage ( da , a , oggetto , msg ) Dim mySmtpClient As New SmtpClient ( mailserver ) mySmtpClient.UseDefaultCredentials = [vero] mySmtpClient . Send ( messaggio) MessageBox.Show (" Il messaggio di posta elettronica è stato inviato a" e il messaggio. [ a ] . ToString ( ) , "Mail" , MessageBoxButtons.OK , MessageBoxIcon.Information ) Fermo ex come FormatExceptionMessageBox.Show ( ex. StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ Error ] ) Fermo ex come SmtpExceptionMessageBox.Show ( ex.StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ Error ] ) Fermo ex come ExceptionMessageBox.Show ( ex. . StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon [Errore] ) End Try
2
Copia e incolla il seguente chiamata di funzione in un click anche del pulsante che invia il messaggio SMS : < br
SendText > ( " 1235551234 " , " @ messaging.yourcarrier.com " , " [email protected] " , "Questo è un msg txt " , " mail.email.com ", " come stai oggi , Frank ? " ) per
devi effettuare l' indirizzo del ripiano ( @ messaging.yourcarrier.com ) riflettono carrier telefonico del destinatario .
3
compilare l'applicazione VB e fare clic sul pulsante modulo per inviare l'SMS .
Programmazione © www.354353.com