DoCmd AfterUpdate Error

[gittymoe]

Hi guys, I am having a little bit of trouble getting my DoCmd to execute properly. I am quite new to running code thru event procedures so I'll do my best to explain.


I am needing a query to run and then requery and then email that query to a known email address. Below is what I have come up with and it works up until it trys to send an email and I receive an error message "Run-Time Error '2995': Unknow message recipient(s); the message was not sent."

I have dummied the email address for obvious reasons but it is correct. My guess is that I have a comma or space out of place but just not sure?


Private Sub Text26_AfterUpdate()
Dim stDOCName As String

stDOCName = "qry SVE PURCHASE ORDERS + APPROVAL + TRANSIT RPT by vendor"
DoCmd.OpenQuery stDOCName, acNormal, acEdit
DoCmd.Requery

DoCmd.SendObject acSendQuery, "qry SVE PURCHASE ORDERS + APPROVAL + TRANSIT RPT by vendor", acFormatXLS, _
"MichaelJordan@domain.com", _
"Test Spreadsheet", "Test subject", "This is my message", , False


End Sub

 

[welshgasman]

This link https://www.fmsinc.com/microsoftaccess/email/sendobject.html seems to infer that the names have to be resolved, and not use domain syntax.?

Try putting the email address in Contacts and use the display name.

HTH

Edit:
OK, I have spotted that you have not allowed for CC & BCC, see that link

 

[gittymoe]

After playing around after I posted I have figured out my error just as you described....however, my new issues has now become the following error.

"DB can't save the output data to the file you've selected" In doing some reasearch it seems to want to save and close the query before allowing to send an email?

Private Sub Text26_AfterUpdate()
Dim stDOCName As String

stDOCName = "qry SVE PURCHASE ORDERS + APPROVAL + TRANSIT RPT by vendor"
DoCmd.OpenQuery stDOCName, acNormal, acEdit
DoCmd.Requery
'DoCmd.Close acForm, "qry SVE PURCHASE ORDERS open by vendor1", acSaveYes
'DoCmd.Close acForm, "qry SVE PURCHASE ORDERS + APPROVAL + TRANSIT RPT by vendor", acSaveYes

DoCmd.SendObject acSendQuery, "qry SVE PURCHASE ORDERS + APPROVAL + TRANSIT RPT by vendor", acFormatXLS, _
"MichaelJordan@domain.com", , , "Test Subject", "Test Message Text", True, False



End Sub

 

[welshgasman]

There is no need to run the query as you have done.?
Sending the object runs the query at that time.

Also if you have to have such a long query name, why not just use stDocname instead of the name as you have defined it

DoCmd.SendObject acSendQuery,stDocName ......