Vba 将组电子邮件命令按钮添加到ms access 2010中的参数窗体

下面您将看到命令按钮cmdSendReport的点击事件的代码

这会将报告附加到一封空白电子邮件中，允许我选择收件人

我想知道是否可以添加cmdGroupSendReport按钮，以便将报告发送给一组收件人

在基本参数表单query q_t_A中，我有一个名为EmailMailout的Yes/No字段，它将那些只希望将报告通过电子邮件发送给他们的人挑出来

我计划在chkemailreports表单中添加一个复选框参数，该参数仅基于Yes/No字段EmailMailout，这样，如果选中/true，则只有那些电子邮件地址才能通过电子邮件将报告发送给他们

这是最好的方法吗？其次，如何修改下面的代码，以便所有电子邮件收件人都能收到combobox CBoreport中显示的报告

I have an unbound parameter form based on a query called q_t_A.

非常感谢你的帮助…我对这一点很陌生，所以非常感谢你的建议

---

Oblio

突出显示“SendObject”，然后单击F1以获取帮助。此对象允许您添加到、抄送、密件抄送等

循环浏览表单上的记录，创建要发送到的电子邮件地址字符串，例如：

Private Sub cmdSendReport_Click()
If Not IsNull(cboReports) And cboReports <> "" Then
DoCmd.SendObject acSendReport, Me.cboReports, acFormatPDF
Elsed
MsgBox ("Please make a Report selection first from the drop down list to the left.")
cboReports.SetFocus
End If
cboReports = ""
End Sub

---

谢谢你回答我的问题。很抱歉，我直到2016年9月才看到这一点。

Dim rs as recordset, s$
Set rs= Forms!chkEmailReportsOnly.RecordsetClone: With rs
    While not .EOF
        If !SendEmail then s = s & ";" & !Email
    Wend
.close: End with
Set rs= nothing
s=mid(s,2)