Outlook No notifcation

[Bombdrop]

I wish my app to send an email but do not want the user to confiirm they are sending it.

below is my code for sending the e-mail.

Private Sub Command1_Click()
    Dim objOutLookApp As New Outlook.Application
    Dim objNameSpace As Outlook.NameSpace
    Dim objMail As Outlook.MailItem
    Dim colAttachment As Attachments
        
    Set objOutLookApp = Outlook.Application
    Set objNameSpace = objOutLookApp.GetNamespace("MAPI")
 
    Set objMail = objOutLookApp.CreateItem(olMailItem)
    objMail.To = EMAILADDRESS
    objMail.Subject = "subject"
    objMail.Body = "message"
    Set colAttachment = objMail.Attachments
    colAttachment.Add ("c:\test.txt")
        objMail.Send
End Sub