SMS of Short Messaging Service sturen , alomtegenwoordig met de verspreiding van goedkope mobiele computers en mobiele telefoons is geworden . Natuurlijk , het belangrijkste doel van SMS is om korte tekstberichten van de ene mobiele telefoon naar de andere . Maar het is ook mogelijk om berichten naar en van telefoons via computersoftware . Zo kan een bank bieden een service die tekstberichten kan accepteren van klanten telefoons en stuur een bericht terug met hun saldo . Instructies
Copy 1 en plak de volgende subroutine in uw formulier klasse: Public Sub SendText
( telefoonNummer als String , drager zoals String , uit als Koord , onderwerp als Koord , mailserver als String , msg als String) Dim als String = Trim ( telefoonNummer ) En Trim ( carrier ) TryDim bericht als Nieuwe MailMessage ( van, naar , onderwerp , msg ) Dim mySmtpClient als Nieuwe SmtpClient ( mailserver ) mySmtpClient.UseDefaultCredentials = [ True ] mySmtpClient . Verzend ( bericht ) MessageBox.Show ( " De mail is verzonden naar ' En boodschap . [ met]. ToString ( ) , " Mail " , MessageBoxButtons.OK , MessageBoxIcon.Information ) Catch ex Zoals FormatExceptionMessageBox.Show ( ex. StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ Error ] ) Catch ex Zoals SmtpExceptionMessageBox.Show ( ex.StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon . [ Error ] ) Catch ex Zoals ExceptionMessageBox.Show ( ex. . StackTrace , ex.Message , MessageBoxButtons.OK , MessageBoxIcon [ Error ] ) End Try
Copy 2 en plak de volgende functie oproep in de klik , zelfs van de knop die het SMS -bericht stuurt : < br SendText ( " 1235551234 " , " @ messaging.yourcarrier.com " , " sender@email.com " , " Dit is een txt msg ! " , " mail.email.com " , " hoe gaat het vandaag , > Frank ? ' ) op Twitter U moet ervoor de vervoerder adres ( @ messaging.yourcarrier.com ) weerspiegelen telefoon vervoerder van de geadresseerde .
3 Stel uw VB- programma en klik op de vormen knop om je SMS- bericht te verzenden .
|
