----------------------------------------------------------- New Message on BDOTNET
----------------------------------------------------------- From: SelvanDotnet Message 2 in Discussion Hi Friend, We dont have any Special Controls to Send SMS in .NET, But We can do it by Webservice i.e http://www.webservicex.net/SendSMS.asmx ( Free Service ). Here's the Source, Hope you are familiar with WebService in .NET Have a Good day Selvan.S, Jardines Imports priSMS.net.webservicex.www Public Class frmPriSMS Inherits System.Windows.Forms.Form Private Sub txtSMS_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSMS.TextChanged lblCount.Text = txtSMS.Text.Length End Sub Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click objResult = objSMS.SendSMSToIndia(strVal, txtMail.Text, txtSMS.Text) If Not objResult Is Nothing Then lblStatus.Text = objResult.Status Else lblStatus.Text = "Unable to send SMS to this Mobile No." End If Catch ex As Exception MsgBox("Unable to connect - Service") Button1.Enabled = True End Try End If End Sub Private Sub frmPriSMS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try objSMS = New SendSMS Catch ex As Exception MsgBox("Connection Problem, Check your Internet Connection") End End Try End Sub Private Function ValidateMailID() As Boolean Try txtMail.Text = txtMail.Text.Trim txtNo.Text = txtNo.Text.Replace(";", ",") If txtNo.Text.Trim.EndsWith(",") Then txtNo.Text = txtNo.Text.Remove(txtNo.Text.Length - 1, 1) End If Return (txtMail.Text.IndexOf("@") > 0 And (txtMail.Text.IndexOf(".") > 0) And Char.IsLetter(txtMail.Text.Substring(0, 1))) Catch ex As Exception Return False End Try End Function Private Sub lblAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblAbout.Click MsgBox("Developed By Tamil Selvan.S, Please send me your suggestion to [EMAIL PROTECTED]") End Sub End Class ----------------------------------------------------------- To stop getting this e-mail, or change how often it arrives, go to your E-mail Settings. http://groups.msn.com/BDOTNET/_emailsettings.msnw Need help? If you've forgotten your password, please go to Passport Member Services. http://groups.msn.com/_passportredir.msnw?ppmprop=help For other questions or feedback, go to our Contact Us page. http://groups.msn.com/contact If you do not want to receive future e-mail from this MSN group, or if you received this message by mistake, please click the "Remove" link below. On the pre-addressed e-mail message that opens, simply click "Send". Your e-mail address will be deleted from this group's mailing list. mailto:[EMAIL PROTECTED]
