access 2010 vba의 레코드 세트에서 메일 링리스트를 만드시겠습니까?

Question

나는 테이블에서 전자 메일 주소를 가져 와서 Outlook 메시지의 "받는 사람 :"필드에 사용할 수있는 문자열로 서식을 지정하려고합니다. 웬일인지, 내가 쓴 루프는 프로그램을 멈추는 것이다. 누구나 내가 잘못하고있는 것을 발견하거나이를 수행하는 더 좋은 방법을 제공 할 수 있습니까?

이

가 할 일 전까지 루프

rs.MoveNext() 

이 줄을 추가 :

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

당신은 MoveNext 전화를 놓친 : 여기 내가 지금 가지고있는 코드입니다