Private Sub btnSendMail_Click() 

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

    ' Set your Hotmail email address
    oSmtp.FromAddr = "liveid@hotmail.com" 

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

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

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

    ' Hotmail SMTP server address
    oSmtp.ServerAddr = "smtp.live.com" 

    ' Hotmail user authentication should use your
    ' Hotmail email address as the user name.
    oSmtp.UserName = "liveid@hotmail.com" 
    oSmtp.Password = "yourpassword" 

    ' detect SSL/TLS connection 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