Dim oSmtp As New EASendMailObjLib.Mail
    
    oSmtp.LicenseCode = "TryIt"
    oSmtp.LogFileName = "C:\ASP-Faktuur\smtp.txt"
    ' Set your sender email address
    oSmtp.FromAddr = "jvksender@outlook.com" 'DLookup("smtpuser", "tblInstellingen")
    ' Add recipient email address
    oSmtp.AddRecipientEx "Info@J****g.nl", 0
    oSmtp.AddRecipientEx "CC j**k@z****t.nl", 1
    ' Set email subject
    oSmtp.Subject = "Testmail" 
    ' Set email body
    oSmtp.BodyText = "Testbericht" 
    ' Your SMTP server address
    oSmtp.ServerAddr = "smtp-mail.outlook.com" 
    ' User and password for ESMTP authentication, if your server doesn't require
    ' User authentication, please remove the following codes.
    oSmtp.UserName = "jvk***r@outlook.com" 
    oSmtp.Password = "q******m" 
    ' Set 25 SMTP port
    oSmtp.ServerPort = 587
    oSmtp.ConnectType = 1 'ConnectSSLAuto
    ' Enable TLS connection
    
    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