3 replies to this topic

[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("[COLOR="Lime"]fertyl5@gmail.com[/COLOR]", "[COLOR="Lime"]fertyl200[/COLOR]")

        'using gmail

        smtpServer.Port = 587

        smtpServer.Host = "smtp.gmail.com"

        smtpServer.EnableSsl = True

        mail = New MailMessage()

        mail.From = New MailAddress("[COLOR="Lime"]fertyl5@gmail.com[/COLOR]")

        mail.To.Add("[COLOR="Red"]admin@gamerschannel.net[/COLOR]")

        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.?