Automatisk udsendelse af Email

fdata har tidligere hjulpet mig med at konstruere et VB script til automatisk udsendelse af E-mails. Det eneste der er i vejen med dette er, at der ikke automatisk bliver valgt hvilket format rapporten skal udsendes i. Jeg vil gerne have at scriptet definerer at rapporterne skal udsendes i \"Rich Text\". Er der nogen der kan greje den? Scriptet ser sådan ud:

Function SendReports()
  Dim rst As Recordset
  Set rst = CurrentDb.OpenRecordset(\"EmailKunder\")
  With rst
    Do Until .EOF
      DoCmd.SendObject acSendReport, .Fields(\"RapportNavn\"), , .Fields(\"EmailAdr\"), , , DLookup(\"[Emnet]\", \"EmneTabel\", \"[ID]=\" & .Fields(\"EmneRef\")), DLookup(\"[Meddelelsen]\", \"MeddTabel\", \"[ID]=\" & .Fields(\"MeddRef\")), False
      .MoveNext
    Loop
    .Close
  End With
  Set rst = Nothing
End Function

På forhånd tak!