you can send change add .send instead of .display in your code, it will send the email directly.
hereby the example (email with html format + auto send):
Function sendEmail()
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Set olApp = Outlook.Application...