imports system.net.mail
imports system.net.mail.mailmessage
imports system.net.networkcredential

dim mail as new mailmessage
dim smtp as new smtpclient
mail.form=new mailadress("'your gmail account'","'your name or something'")
mail.to.add("'mail u want the message to be sent to'")
mail.subject="'subject'"
mail.body="the message u want to send'"
mail.isbodyhtml=true'u can disable it if u don't want the mail to contain html'
mail.reply to=new mailadree("'i gues there is something wrong in this code'")
'this part i am not sure of it but u can try'
smtp.host="smtp.gmail.com"
smtp.port=25
smtp.enable ssl=true
smtp.credentials=new system.net.networkcredential("'your email'","'your email password'"'or the opposit i think')
smtp.send('mail')
msgbox("your message has been sent")

dim smtp as new net.mail.smtpclient("'smtp.domail.com'")
dim msg as new net.mail.mailmessage('this area contains your email,the email u want to be sent to ,subject,messaege and don't worry cuz the vb.net will tell u what are they and u will have to leave a comma between each')
smtp.send('msg')

Imports System.Net.Mail
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim client As New SmtpClient()
        Dim sendTo As New MailAddress("mbkfa93@gmail.com")
        Dim from As MailAddress = New MailAddress("mbkfa93@gmail.com")
        Dim message As New MailMessage("mbkfa93@gmail.com", "mbkfa93@gmail.com")
        message.IsBodyHtml = True
        message.Subject = "subject"
        message.Body = Me.TextBox1.Text
        Dim basicAuthenticationInfo As New System.Net.NetworkCredential("mbkfa93@gmail.com", "my email password")

        client.Host = "smtp.gmail.com"
        client.UseDefaultCredentials = False
        client.Credentials = basicAuthenticationInfo
        client.EnableSsl = True
        Try
            client.Send(message)
            MsgBox("Message Sent!")
        Catch ex As Exception
            MsgBox("Message not sent.")
        End Try

    End Sub
End Class

Dim tcpC As New System.Net.Sockets.TcpClient()

    ' send command strings and return the response
    Function SendCommand(ByRef netstream As System.Net.Sockets.NetworkStream, ByVal sToSend As String)
        Dim bData() As Byte = Encoding.ASCII.GetBytes(sToSend.ToCharArray)
        netstream.Write(bData, 0, bData.Length())
        Return GetResponse(netstream)
    End Function

    ' check if there is a response to get and return it
    Function GetResponse(ByRef netstream As System.Net.Sockets.NetworkStream)
        Dim bytes(tcpC.ReceiveBufferSize) As Byte
        Dim ret As Integer = netstream.Read(bytes, 0, bytes.Length)
        ' Returns the data received 
        Dim returndata As String = Encoding.ASCII.GetString(bytes)
        Return returndata
    End Function



    Function ReadMail(ByVal host As String, ByVal user As String, ByVal pass As String)
        ' initialise objects	
        Dim netstream As System.Net.Sockets.NetworkStream
        Dim thisResponse As String

        ' open connection to server
        Try
            tcpC.Connect(host, 110)
        Catch ex As Exception
            Response.Write("Error connecting to host: " & ex.Message & " - Please check your details and try again")
            Response.End()
        End Try

        ' get response
        netstream = tcpC.GetStream()
        thisResponse = GetResponse(netstream)

        ' enter user name
        thisResponse = SendCommand(netstream, "user " & user & vbCrLf)

        ' enter password
        thisResponse = SendCommand(netstream, "pass " & pass & vbCrLf)

        ' check if logged in ok
        If Not Left(thisResponse, 4) = "-ERR" Then
            Response.Write("<font face=courier>Logged in OK <BR>")
        Else
            Response.Write("Error logging in, check your user details and try again<BR>")
            Response.Write("<P>" & thisResponse)
            Response.End()
        End If

        thisResponse = SendCommand(netstream, "stat" & vbCrLf)

        Dim tmpArray() As String
        tmpArray = Split(thisResponse, " ")

        Dim thisMess As Integer
        Dim numMess As String = tmpArray(1)

        Response.Write("<p><hr>")

        thisResponse = ""

        If CInt(numMess) > 0 Then
            Response.Write("Messages: " & numMess & "<br>")
            For thisMess = 1 To CInt(numMess)
                thisResponse += Replace(SendCommand(netstream, "top " &  _
                thisMess & " 10" & vbCrLf), vbCrLf, "<br>")
            Next
        Else
            Response.Write("Messages: None" & "<br>")
        End If

        thisResponse += Replace(SendCommand(netstream, "stat" & vbCrLf),  _
                                   vbCrLf, "<br>")

        tmpArray = Split(thisResponse, "+OK")

        Response.Write(thisResponse)

        Dim msg As Integer
        For msg = 1 To tmpArray.Length - 1
            Response.Write("<h3>#" & msg & "</h1>" & tmpArray(msg) & "<p>")
        Next

        ' close connection
        thisResponse = SendCommand(netstream, "QUIT" & vbCrLf)
        tcpC.Close()
    End Function

Imports System.Net.Mail
Public Class Form1
    Public Sub SendEmail()
        Dim client As New SmtpClient()
        Dim sendTo As New MailAddress("mbkfa93@gmail.com", "meena")
        Dim from As MailAddress = New MailAddress("mbkfa93@gmail.com")
        Dim message As New MailMessage(from, sendTo)
        message.IsBodyHtml = True
        message.Subject = "The Subject"
        message.Body = TextBox1.Text

        Dim basicAuthenticationInfo As New System.Net.NetworkCredential("mbkfa93@gmail.com", "my password")

        client.Host = "smtp.gmail.com"
        client.UseDefaultCredentials = False
        client.Credentials = basicAuthenticationInfo
        client.EnableSsl = True
        Try
            client.Send(message)
            MsgBox("Message Sent")
        Catch ex As Exception
            MsgBox("Message not sent.")
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.SendEmail()
    End Sub
End Class