Execute the Send Action on the Outlook Appointments item/form

[koms16]

hi all,

I am trying to automatically send an Appoinment and have been able to
use the following code
I want to Push the send button on the item/form automatically, i am
not talking about the Send/Receive button .

With objAppt

.Recipients.ResolveAll()
.Close(Outlook.OlInspectorClose.olSave)
.Display()
.Subject = strSubject
.Resources = strAResource
.MeetingStatus = Outlook.OlMeetingStatus.olMeeting
.Subject = strSubject
.Location = strLocation
.Start = strBTime
.End = strETime
.Body = MapiBodyText
'This is the line that i want to try and change
.GetInspector.CommandBars.Item("Menu
Bar").Controls("File").Controls("Print...").Execute()

.send()

End With

the above code works perfectly and i wish to actually automate the
Send of this item.
I have tried to use --

..GetInspector.CommandBars.Item("Menu
Bar").Controls("File").Controls("Send").Execute()

but get an "Uknown Error", as i can see that Send is not really a
function of an Appointment Item.

Any help here would be appreciated !!!

thanks,
koms