I have the following piece of code that loops through a data set on a worksheet and sends and email to each person listed with a file attached. All of that works fine.

The problem I am having is that the .send property of Outlook continually throws an error, so i can't use that property. I instead am using the .display property with SendKeys "^{Enter}" to send the email. This causes the email message to display on the desktop and then be sent IF the individual using the spreadsheet to send the emails has checked the CTRL ENTER shortcut setting in Outlook (File > Options > Mail > Send Messages > Check the box for CTRL + ENTER sends a message).

If the CTRL ENTER shortcut is not enabled in outlook, the emails all display on the desktop but are not sent.

Is there a method I can use to 'check' and 'uncheck' the CTRL ENTER Shortcut option in Outlook?

There will be hundreds of people using this method for sending emails. I have three choices: 1. get the company to alter the build for everyone so the shortcut is always checks and push that change out to everyone (not going to happen). 2. Somehow get hundreds of people to go into Outlook and check that box themselves prior to using the spreadsheet to send emails. 3. find a way to turn the Outlook CTRL ENTER shortcut on and then off programmatically.

Any help would be appreciated. Code below.

Set OutMail = OutApp.CreateItem(olMailItem)
SendKeys "^{ENTER}"
With OutMail

pdfNameFull = FolderPath & "/" & pdfName
'MsgBox pdfNameFull
.To = Email
.Subject = "Blitz 2017 Menu"
.Body = "Here's your blitz menu "
.Attachments.Add pdfNameFull
'.Send 'Or use
.Display
SendKeys "^{ENTER}"
End With

Set OutMail = Nothing 'clear it out

i = i + 1

'MsgBox i & " at end of loop"

Loop

Set OutApp = Nothing
With Application
.EnableEvents = True
.ScreenUpdating = True
End With