Click here to Skip to main content
11,485,334 members (76,624 online)
Click here to Skip to main content

Email and SMS Sending Through VB.NET for Free

, 17 Nov 2009 CPOL 109.4K 30.3K 53
Rate this:
Please Sign up or sign in to vote.
Send free SMS from your VB.NET application

Introduction

This VB.NET code sends Email and SMS for free with the help of your Gmail ID. One main advantage of this is that you can send SMS for free because most webservices are not free to use with your application.

Using the Code

I used Gmail as my SMTP server and Mytoday to support free SMS Service here in this code. Since this code uses Gmail SMTP server, you need a Gmail account to send Email. Actually SMS from the application is sent from the Email. You can send SMS only to particular numbers in India. When you register your phone number in the website http://email2sms.netcore.co.in/, an Email ID will be given for the phone number which you register, so that when you mail to that id the message will be received as SMS in the particular number. Suppose the phone number is 9897345890 the mail id given from that website will be like this 9897345890@m3m.in. It works only for Indian numbers.

To run this application successfully, two things should be done:

  1. You must have Gmail ID.
  2. Register the phone number which you are going to use in a website http://email2sms.netcore.co.in/.
Private Sub Button1_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles Button1.Click

Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage
smtpServer.Credentials = New Net.NetworkCredential_
	(TextBox1.Text & "@gmail.com", TextBox2.Text)
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail.From = New MailAddress(TextBox1.Text & "@gmail.com")
If RadioButton1.Checked = True Then
mail.To.Add("91" & TextBox3.Text & "@m3m.in")
ElseIf RadioButton2.Checked = True Then
mail.To.Add(TextBox3.Text)
End If
mail.Subject = TextBox4.Text
mail.Body = TextBox5.Text()
smtpServer.Send(mail)
MsgBox("mail is sent", MsgBoxStyle.OkOnly, "Report")
End Sub

Hope this code will be helpful...

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

balaji2525

India India
No Biography provided

Comments and Discussions

 
Questionexception [modified] Pin
Balakrishnan B23-Mar-13 5:26
memberBalakrishnan B23-Mar-13 5:26 
QuestionHelp!! Pin
Gopal Krishna Mailapalli13-Jan-13 0:17
memberGopal Krishna Mailapalli13-Jan-13 0:17 
QuestionHow can we use this code for srilankan customers....please urgent Pin
Member 434691614-Nov-12 23:11
memberMember 434691614-Nov-12 23:11 
QuestionSending SMS using vb.net Pin
Rakesh A Rao1-Oct-12 22:22
memberRakesh A Rao1-Oct-12 22:22 
Hey Guys...

How can I use way2sms.com in place of m3m.com....

Plz help me out with this..
QuestionREG:project Pin
mohanjack13-Sep-12 21:49
membermohanjack13-Sep-12 21:49 
AnswerRe: REG:project Pin
balaji252513-Sep-12 21:53
memberbalaji252513-Sep-12 21:53 
Questionquestion Pin
sarode_sanket29-Jul-12 21:05
membersarode_sanket29-Jul-12 21:05 
AnswerRe: question Pin
balaji252529-Jul-12 22:38
memberbalaji252529-Jul-12 22:38 
GeneralRe: question Pin
fanta hubert28-Jan-14 22:18
memberfanta hubert28-Jan-14 22:18 
QuestionThis is not working Please send me the code using visual studio 2008 for my mail soon Pin
yuganthi16-Jul-12 8:18
memberyuganthi16-Jul-12 8:18 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web04 | 2.8.150520.1 | Last Updated 17 Nov 2009
Article Copyright 2009 by balaji2525
Everything else Copyright © CodeProject, 1999-2015
Layout: fixed | fluid