DoCmd Code

  • Thread starter Thread starter Stan
  • Start date Start date
S

Stan

I'm wanting to insert data, in this case and employee's name from query1,
into the text of an email. Can anyone tell me how this is done. I've
provide some sample code below. Many thanks!

Function SendEmail()

DoCmd.SendObject acSendQuery, "Query1", "HTML", "John Doe", , , "Adherence", _
"The following agent (Query1.[Employee Name]) is out of adherence"

End Function
 
Check out the DLookup function, it may provide the results that you seek.

DoCmd.SendObject acSendQuery, "Query1", "HTML", "John Doe", , , "Adherence",
_
"The following agent (" & DLookup("Employee Name", "Query1") & ") is out of
adherence"
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Sending Query with sendObject command 7
Add Voting button to Email sent through Access Vba 0
Send an Query output with a Email using "sendObject" function 1
Excel VBA - counting cells by colors and names to it in two different rows. 0
Calculation w/a field created w/in the same query 2
email recipients based on query 1
Assigning a Query as Report Record Source 1
coding a concatenation 4

Back
Top