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