Send mail ( selected from recordset ) dur ikke som det skal...

jeg har denne kode ( se længere nede ) , der ikke helt spiller som den skal...
---------------------------------------------------------------------------
Problemet er at den kun tager sidste post i recordset og IKKE looper...
hvad pokker går der galt?

Er det ikke muligt at indsætte en værdi fra tabellen i BODY ( tbl_emails ) feltet hedder "telefon"  altså a´la  .Body = "Dit telefonnummer er : " & rs!telefon    ??

mvh martens
-------------------------------------------------------------------------------------------

Private Sub cmb_send_mail_single_Click()
Dim FileName As String
Dim FilePath As String
Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem
Dim rs As Recordset

On Error GoTo errhandler:

FileName = "test.txt"
FilePath = "c:\temp\"

If oOutlook Is Nothing Then
Set oOutlook = New Outlook.Application
End If

Set oEmailItem = oOutlook.CreateItem(olMailItem)

With oEmailItem

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_emails")
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF
If IsNull(rs!email) Then

rs.MoveNext

Else
.To = rs!email
rs.MoveNext
End If


Loop
Else
MsgBox "ingen emailadresser"
End If
Set rs = Nothing

'.To = ""
.CC = ""
.Subject = "test"
.Body = "Dit telefonnummer er : "
'.Attachments.Add FilePath
'
'
'.Send
.Display

End With

'Kill FilePath
exit_errhandler:
Exit Sub
Set oEmailItem = Nothing
Set oOutlook = Nothing
errhandler:
MsgBox Err.Description, vbExclamation
Resume Next
End Sub