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

[dglienna]

Simple answer is, you can't anymore. Microsoft security has taken away the ability, unless you create a Certificate and install it into Outlook. Robdog has some code to do that in this signature, or the CodeBank.

The alternative is to use SendMail.