Private Sub btnSendMail_Click() 

    Dim oSmtp As New EASendMailObjLib.Mail 
    oSmtp.LicenseCode = "TryIt" 

    ' Set your Yahoo email address
    oSmtp.FromAddr = "myid@yahoo.com" 

    ' Add recipient email address
    oSmtp.AddRecipientEx "support@emailarchitect.net", 0 

    ' Set email subject
    oSmtp.Subject = "test email from Yahoo mail account" 

    ' Set email body
    oSmtp.BodyText = "this is a test email sent from VB 6.0 project with Yahoo email" 

    ' Yahoo SMTP server address
    oSmtp.ServerAddr = "smtp.mail.yahoo.com" 

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

    ' Because Yahoo deploys SMTP server on 465 port with direct SSL connection.
    ' So we should change the port to 465.
    oSmtp.ServerPort = 465 

    ' Detect SSL/TLS automatically
    oSmtp.SSL_init 

    MsgBox "start to send email ..." 

    If oSmtp.SendMail() = 0 Then 
        MsgBox "email was sent successfully!" 
    Else 
        MsgBox "failed to send email with the following error:" & oSmtp.GetLastErrDescription() 
    End If 

End Sub