Private Sub btnSendMail_Click() 

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

    ' Set your sender email address
    oSmtp.FromAddr = "test@emailarchitect.net" 

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

    ' Set email subject
    oSmtp.Subject = "simple email from VB 6.0 project" 

    ' Set email body
    oSmtp.BodyText = "this is a test email sent from VB 6.0 project, do not reply" 

    ' Your SMTP server address
    oSmtp.ServerAddr = "smtp.emailarchitect.net" 

    ' User and password for ESMTP authentication, if your server doesn't require
    ' User authentication, please remove the following codes.
    oSmtp.UserName = "test@emailarchitect.net" 
    oSmtp.Password = "testpassword" 

    ' Set 25 SMTP port
    oSmtp.ServerPort = 25 

    ' Enable TLS connection
    oSmtp.SSL_starttls = 1
    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 

 ' Add recipient email address
 oSmtp.AddRecipientEx "to@emailarchitect.net", 0 
 oSmtp.AddRecipientEx "cc@emailarchitect.net", 1
 oSmtp.AddRecipientEx "bcc@emailarchitect.net", 2