Author: Calvin Smith
http://www.CalvinSmithSoftware.com/codedisk/sneakpeek.htm

The following code snippet demonstrates how a developer can loop through a recordset of email addresses and mass email to each address

Example:

' ---------------------------------------------------------------------------------
' Author: Calvin Smith - CodeDiskHelp@Yahoo.com
' Environment(s): MS Access (32-bit) / Visual Basic (32-bit)
' ---------------------------------------------------------------------------------
'
'   *****************************************
'   * Courtesy code snippet from my CodeDisk© product
'   *****************************************

          With rsYourRecordSetName
                Do While Not .eof
                      bRetVal=EmailUsingOutlook(!RecipientName, strEmailSubject$,strEmailBody$ [,AttachedFileName])
                      .MoveNext
                Loop
          End With