错误ms access vba电子邮件报告

当我运行这段代码时，我一直收到一个错误

Sub SendEmailMaturing()
    Dim rs As DAO.Recordset
    Dim db As Database
    Dim strSQL As String

    Set db = CurrentDb

    strSQL = "SELECT * FROM qRespCodeEmail"
    Set rs = CurrentDb.OpenRecordset(strSQL)

    If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst
        Do While Not rs.EOF
            'Debug.Print rs.Fields("RMName")
            DoCmd.OpenReport "Maturing Loans in 90", acViewPreview, , "RespName = " & rs!RMName
            DoCmd.SendObject acSendReport, "Maturing Loans in 90", acFormatPDF, rs!Email, , , "Maturing Loans", "Kindly take a look and send me an update on the status of matured loans.", True
            DoCmd.Close acReport, "Maturing Loans in 90", acSaveNo

            rs.MoveNext
        Loop
    End If

    rs.Close
    Set rs = Nothing
End Sub

---

如果要对文本字段进行筛选，请对参数使用撇号分隔符：

DoCmd.OpenReport“90年到期贷款”，acViewPreview，“RespName=”&rs！RMName&“'”

日期/时间字段使用#，数字类型不使用

---

通过在SQL语句中包含必要的字段，可以减少拉取的数据量。似乎您只需要RMName和电子邮件

你尝试过什么吗？我尝试过很多东西，但都没有成功当你问一个关于StackOverflow的问题时，你应该展示你的工作和你尝试过的东西，包括你得到的确切错误。你收到了哪一个错误？在哪一行代码中？