Добрый день!
Вот такой код использую для рассылки:

Private Sub Êíîïêà0_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

ВОПРОС 1: как задать параметр, чтобы письма уходили по одному с заданным интервалом?
ВОПРОС 2: как задать параметр, чтобы письма уходили не разом всем получателям, а по 20 шт в одном письме, следующие 20 во втором письме и т.д.?

http://www.sql.ru/forum/1256498/rassylka-pisem-s-access-s-intervalom