' Add EASendMail Namespace
Imports EASendMail 

Module Module1 
    Sub Main() 
        Dim oMail As New SmtpMail("TryIt") 
        Dim oSmtp As New SmtpClient() 

        ' Your Yahoo email address
        oMail.From = "myid@yahoo.com" 

        ' Set recipient email address, please change it to yours
        oMail.To = "support@emailarchitect.net" 

        ' Set email subject
        oMail.Subject = "test email from yahoo account" 

        ' Set email body
        oMail.TextBody = "this is a test email sent from VB.NET project with yahoo" 

        ' Yahoo SMTP server address
        Dim oServer As New SmtpServer("smtp.mail.yahoo.com") 

        ' For example: your email is "myid@yahoo.com", then the user should be "myid@yahoo.com"
        oServer.User = "myid@yahoo.com" 
        oServer.Password = "yourpassword" 

        ' Because yahoo deploys SMTP server on 465 port with direct SSL connection.
        ' So we should change the port to 465.
        oServer.Port = 465 

        ' detect SSL/TLS type automatically
        oServer.ConnectType = SmtpConnectType.ConnectSSLAuto 

        Try 

            Console.WriteLine("start to send email over SSL ...") 
            oSmtp.SendMail(oServer, oMail) 
            Console.WriteLine("email was sent successfully!") 

        Catch ep As Exception 

            Console.WriteLine("failed to send email with the following error:") 
            Console.WriteLine(ep.Message) 
        End Try 

    End Sub 
End Module