VBA help - Sending report to contacts from a query/table

[programmer_novice]

Hi

I"m a novice at anything access, so I apologize in advance for my ignorance. I am trying to get access to email a report to email addresses in a query (qry_contacts). Filed Names within the query is called "email". I am able to get access to generate the email, but the only way I can get anything in the "TO" field is if i hard code it in the VBA (type the actual email address in there). Please see below for my code. I appreciate your help in advance. I apologize also, if there are a million examples of this elsewhere. But if you point me to one of them, I'm not going to be able to figure out how that applies to mine. Thanks. Also, I dont know if it matters or not, but I'm using Lotus Notes as my email client.



Private Sub MAIL_Deferred_DTSR_List_Click()
On Error GoTo Err_MAIL_Deferred_DTSR_List_Click

Dim stDocName As String

stDocName = "rpt_Deferred_DTSR_List_By_Plant"
DoCmd.SendObject acReport, stDocName, "Rich Text Format"

Exit_MAIL_Deferred_DTSR_List_Click:
Exit Sub



Err_MAIL_Deferred_DTSR_List_Click:
MsgBox Err.Description
Resume Exit_MAIL_Deferred_DTSR_List_Click

End Sub

[June7]

It does matter that you are using Lotus Notes (instead of MS Outlook). In spite of the caveat in your request, I am referring you to example code that you will have to adapt.

Google: Access VBA lotus notes
http://www.fabalou.com/VBandVBA/lotusnotesmail.asp

To batch email to all contacts in a query, will need to open a recordset and loop through the records.
https://www.accessforums.net/program...ook-21903.html
http://msdn.microsoft.com/en-us/libr...ffice.12).aspx