la creazione di una mailing list da set di record in Access 2010 VBA?

Question

Sto cercando di tirare indirizzi e-mail da una tabella e formattare in una stringa che può essere utilizzata nel campo "A:" campo di un messaggio di Outlook. Per qualche ragione, il ciclo che ho scritto è il congelamento del programma. chiunque posto Can quello che sto facendo di sbagliato o di offrire un modo migliore per fare questo? qui è il codice che ho in questo momento:

Private Function GetMailingList() As String

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim results As String

    results = ""
    Set db = CurrentDb
    Set rs = db.OpenRecordset("lut_holdEmailList")

        Do Until rs.EOF
            results = results & rs.Fields("emailAddress") & ", "

        Loop

    GetMailingList = results

End Function

Answer 1

È mancato la chiamata MoveNext:

aggiungi questa linea al ciclo Do Until

rs.MoveNext()