Code to obviate necessity to click when sending a copy via outlo

Hi Anthony

This is the Sub Routine I am using:

Sub ApprovedForPayment()
'Sends the Workbook to 'pl@sussexdowns.ac.uk'
Dim Location As String
Location = Sheets("Payments").Range("$H$2")

Application.DisplayAlerts = False

ActiveWorkbook.SendMail "pl@sussexdowns.ac.uk", Subject:=Location & " Homestay Payments Approved for Payment"

Application.DisplayAlerts = True
End Sub

The process stops at the sendmail command and I am presented with the message that an aplication outside Outlook wants to send a message and option to 'Allow' or 'Deny' with the 'Deny' button as the default option. There is also a 'Help' button.
I can use 'Tab' key and 'Enter to 'Allow' but so far I have been unable to make the 'SendKeys' function work; when stepping throu the subroutine processing is halted until an option is selected.
Where am I going wrong?
I would be grateful for your help with this please.

John