Forskellige sider af rapporten til forskellige email adresser

Nu er følgende kode indsat i en formular der åbner rapporten:
Private Sub Kommandoknap161_Click()
Dim SQLStr As String
   
    If Me!Email <> "" Then
        SQLStr = SQLStr & "[email] like '*" & Me!Email & "*' And "
    End If
    If Me![ult løn] <> "" Then
        SQLStr = SQLStr & "[ult løn] like '*" & Me![ult løn] & "*' And "
    End If
    If Len(SQLStr) = 0 Then
        DoCmd.OpenReport "RAPP rapport email udsending uden kriterie", acViewPreview
        DoCmd.Close acForm, "send mails"
    Else
        SQLStr = Left(SQLStr, Len(SQLStr) - 5)
        DoCmd.OpenReport "RAPP rapport email udsending uden kriterie", acViewPreview, , SQLStr
        DoCmd.SetWarnings False
        DoCmd.OutputTo acOutputReport, "RAPP rapport email udsending uden kriterie", acFormatRTF, "c:\dpoversigt til - " & Date & ".rtf", False
        DoCmd.SendObject acSendReport, "RAPP rapport email udsending uden kriterie", acFormatRTF, Me.Email, , , "test", , True
        DoCmd.SetWarnings True
        DoCmd.Close acReport, "RAPP rapport email udsending uden kriterie"
    End If
End Sub

Ovenstående åbner mail som så kan sendes afsted.

Nu kunne jeg godt tænke mig en loop funktion som sender til alle email adresser i tabellen "tabel email" i feltet "email".
Så vidt jeg ved kan jeg ikke undgå at skulle trykke ja eller send til hver email, men det gør ikke noget.

Spørgsmålet lukkes