Rundsend mail

Jeg har brugt neden stående kode fra thomas, men når jeg køre dette kommer der en fejl som hedder følgende Run-time error 287 og det sker ved .send commandoen. Det skal lige siges at jeg køre med access2000.

Nogen der kan hjælpe mig ?

Public Sub SendMails(Qry As String, Emne As String, Brødtekst As String, Optional Vedhæftet As String)
Dim OutL As Outlook.Application
Dim Item As MailItem
Dim Receiver As Recipient
Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset
   
    Set cn = CurrentProject.Connection
    rs.Open Qry, cn, adOpenStatic, , adCmdTable

    Set OutL = New Outlook.Application

    Do Until rs.EOF
        Set Item = OutL.CreateItem(olMailItem)
       
        With Item
            .Subject = Emne
            .Body = "Kære " & rs!Fornavn & vbnewline & vbnewline & Brødtekst
            .FlagStatus = olFlagMarked
            If Len(Vedhæftet) > 0 Then
                .Attachments.Add Vedhæftet
            End If
            .Recipients.Add rs!EMail
            .Send
        End With
        Set Item = Nothing
        rs.MoveNext
    Loop
End Sub