SENDKEYS not working

[Dave_D]

I'm using docmd.sendobject (a table) to OUTLOOK. Out network has generated the following message. See attachment. If unable to open attachment it reads as follows:

A program is trying to send an e-mail message on your behalf. if this is unexpected, click Deny and verify your antivirus software is up-to-date.

Below this line is a solid green bar with 3 boxes, ALLOW, DENY & HELP and DENY is the box high lited.

I'm trying to use SENDKEYS so that the user doesn't have to perform this operation and by tabbing to ALLOW and then pressing ENTER to accept the warning.
I've added:
Outlk = Shell("c:\program file (x86)\MicroSoft office\Office16\OUTLOOK.exe", AppWinStyle.NormalFocus)
AppActivate (Outlk)

My sendkeys is
SENDKEY "{+}" & "{TAB}"



1. Can this be done using SENDKEYS?
2. Am I using the correct code? Upon stepping thru the code, the code just greys out until I actually press ALLOW and DENY myself.

Any help with this is appreciated!

[Minty]

That looks like a very old version of office?
If you use outlook automation, generally that warning no longer exists.

I vaguely seem to remember getting around that warning about 15 years ago, let me see if I can find some old code...

[Welshgasman]

Whilst you are waiting for Minty's method, start looking here?
https://www.google.com/search?q=outl...hrome&ie=UTF-8

[ranman256]

Ive been programming in Office/Access for 20+ years and never needed to use SENDKEYS.

[kd2017]

Agreed with ranman, do your really need to use sendkeys?

Wouldn't something like this be cleaner?

Sub sendOutlookEmail()
    Dim oApp As Outlook.Application
    Dim oMail As MailItem
    
    Set oApp = CreateObject("Outlook.application")
    Set oMail = oApp.CreateItem(olMailItem)
    
    oMail.Body = "Body of the email"
    oMail.Subject = "Test Subject"
    oMail.To = "Someone@somewhere.com"
    
    oMail.Display 'show the email
    'oMail.Send    'or just send the email
    
    Set oMail = Nothing
    Set oApp = Nothing
End Sub

To get the outlook objects from your access project you'll need to go to your vba editor window, go to Tools menu -> References -> and then check Microsoft Outlook 16.0 Object Library (16.0 for me, maybe another version for you)

https://stackoverflow.com/questions/...hrough-outlook