Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Skopírujte a vložte nasledujúci podprogram do formulára triedy :
Public Sub SendText ( PhoneNumber ako String , dopravcu , ako je String , z ako String , podliehajú ako String , MailServer ako string , string msg as) Dim ako string = Trim ( PhoneNumber ) a Trim ( nosič ) TryDim správu ako novú MailMessage ( od , do , predmet, msg ) Dim mySmtpClient ako New SmtpClient ( poštový server ) mySmtpClient.UseDefaultCredentials = [ pravý ] mySmtpClient . Odoslať ( správu ) MessageBox.Show ( " mailová správa bola odoslaná " a správy . [ K] . toString ( ) , " Pošta " , MessageBoxButtons.OK , MessageBoxIcon.Information ) Catch ex Ako FormatExceptionMessageBox.Show ( napr. StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ Error ] ) Catch ex Ako SmtpExceptionMessageBox.Show ( ex.StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ Error ] ) Catch ex Ako ExceptionMessageBox.Show ( napr. . StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon [ Error ] ) End Try
2
skopírujte a vložte nasledujúci volanie funkcie do kliknutia aj na tlačidlo , ktoré odošle správu SMS :
SendText ( " 1235551234 " , " @ messaging.yourcarrier.com " , " sender@email.com " , " To je txt msg ! " , " mail.email.com " , " ako sa dnes máte , Frank ? " )
Musíte sa adresa dopravcu ( @ messaging.yourcarrier.com ) odrážajú telefón dopravcu príjemcu .
3
Zostavte si svoje VB aplikácie a kliknite na tlačidlo tlačidlo tvorí odoslať SMS správu .