Send Email Via SMTP

[VBnet]

Hello CodeCall, I will be showing you how to send emails with VB

You will need:
2 Buttons
and 1 Textbox (2 optional if you want to make a login, error reporter)


Place 1 first Textbox on the form.

Then after resizing the textbox, add a button, change it to "Send Email" and add:
Code:

Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential("fertyl5@gmail.com", "fertyl200")
        'using gmail
        smtpServer.Port = 587
        smtpServer.Host = "smtp.gmail.com"
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("fertyl5@gmail.com")
        mail.To.Add("admin@gamerschannel.net")
        mail.Subject = ComboBox1.SelectedItem.ToString
        mail.Body = TextBox1.Text
        smtpServer.Send(mail)
        MsgBox("Mail Sent Succesfull!")

Everything that ive marked with red, those you need to change! if marked with green you dont need, only optional.

Then take this:
Code:

imports system.net.Mail

and put it over "Public Class Form1"

and you are done!

Debug the program and test it out, and remember the mail goes to the mail entered "mail.To.Add("Youremailhere@gmail.com")"

AND BTW! IT HAS TO BE GMAIL AS SMTP

and now you are done!

Dont forget to be nice to me when writing back , Bye Bye!!

[Vswe]

do you call this much better than mine? You don't even check if the addresses exists, and what if the mail wasn't sent "Succesfull!"?

[Heagu]

Yeah , thats awesome , tried it with some friends you can send some cool messages to make them frightened

[giv3mesmile]

Any way i could use this in VB6.0 not .Net version.?