Envoi par courriel d'une page d'un état

Bonjour VBA experts,
Je veux envoyer par courriel une lettre de confirmation d'un état Access.
Mon problème est que j'utilise Access XP et le me.filter ne semble pas
fonctionner puisque tout le rapport au complet est envoyé au participant et
non seulement la feuille le concertant.

Merci de votre aide !!
Esperanza


' code dans le rapport
Private Sub Report_Open(Cancel As Integer)
Me.Filter = strParticipant
End Sub

'============================================================
'code dans le module
Sub ConfirmationDuCours()
Dim db As Database
Dim rst As Recordset
Dim strCourriel As String
Set db = CurrentDb()
Set _
rst = db.OpenRecordset("SELECT * FROM [REQ participants xp _Confirmation]
WHERE MediumConfirmation like'E-Mail'", dbOpenDynaset)


With rst
Do Until .EOF
' Create the Invoice report Filter used by the Report_Open
' event.
strCourriel = rst!Courriel
strParticipant = rst![# Participant] 'ma variable est
déclarer public dans un module
DoCmd.SendObject acReport, "Etat_Confirmation_Des_Participants",
acFormatRTF, _
strCourriel, , , , , False
.MoveNext
Loop
End With

rst.Close
End Sub