0

テーブルから電子メール アドレスを取得し、Outlook メッセージの "TO:" フィールドで使用できる文字列にフォーマットしようとしています。何らかの理由で、私が書いたループがプログラムをフリーズしています。誰かが私が間違っていることを見つけたり、これを行うためのより良い方法を提供したりできますか? これが私が現時点で持っているコードです:

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
4

1 に答える 1

0

あなたはMoveNext電話に出られませんでした：

この行をDoUntillループに追加します

rs.MoveNext()
于 2011-09-05T23:27:58.557 に答える