Private Sub btnSendMail_Click() 

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

    ' Set your Gmail email address
    oSmtp.FromAddr = "gmailid@gmail.com" 

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

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

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

    ' Gmail SMTP server address
    oSmtp.ServerAddr = "smtp.gmail.com" 

    ' If you want to use direct SSL 465 port,
    ' Please add this line, otherwise TLS will be used.
    ' oSmtp.ServerPort = 465

    ' detect SSL/TLS automatically
    oSmtp.SSL_init 

    ' Gmail user authentication should use your
    ' Gmail email address as the user name.
    ' For example: your email is "gmailid@gmail.com", then the user should be "gmailid@gmail.com"
    oSmtp.UserName = "gmailid@gmail.com" 
    oSmtp.Password = "yourpassword" 

    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