emailer

Imports System.Net.Mail


Public Class MainForm

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        EmailNow()
    End Sub


    Public Sub EmailNow()


        Dim SmtpServer As New SmtpClient()

        Dim mail As New MailMessage()

        SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "YOURPASSWORD")

        SmtpServer.Port = 587

        SmtpServer.Host = "smtp.gmail.com"

        mail = New MailMessage()

        mail.From = New MailAddress("[email protected]")

        mail.To.Add("[email protected]")

        mail.Subject = "Test Mail"

        mail.Body = "This is for testing SMTP mail from GMAIL"

        SmtpServer.Send(mail)

        MsgBox("mail send")


    End Sub


End Class