Добрый день!
Вот такой код использую для общего отчета.
ВОПРОС: как сделать так, чтобы отчет формировался по каждому клиенту и только ему отправлялся на почту?

мой вариант: фильтровать запрос на выборку исходя из ID клиента и отправлять отчет, созданных на основе запроса.
только я не понимаю как задать код, чтобы в запрос подставлялись данные для фильтрации.
Возможно, есть еще проще вариант.

Прошу вашей помощи.

Private Sub kn5_Click()

Dim rs As DAO.Recordset
Dim Emails As String

Set rs = CurrentDb.OpenRecordset("SELECT Email FROM EmailKlient")
rs.MoveFirst

Do While (Not rs.EOF)

If Not IsNull(rs!Email) Then
Emails = Emails & rs!Email & "; "
End If

rs.MoveNext
Loop
rs.Close

Emails = Left(Emails, Len(Emails) - 2)

DoCmd.SendObject _
    acSendReport, _
    "EmailKlient", _
    acFormatHTML, _
    Emails, _
    , _
    , _
    "Subject", _
    "Message", _
    True


End Sub

http://www.sql.ru/forum/1259109/rassylki-otchetov-po-klientam