在 ms access 2010 中将组电子邮件命令按钮添加到参数表单

Question

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

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

这会将报告附加到一个空白电子邮件中，以便我选择收件人。

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

在底层参数表单查询 q_t_A 中，我有一个名为 EmailMailout 的 Yes/No 字段，它会挑选出那些只想通过电子邮件将报告发送给他们的人。

我计划根据是/否字段 EmailMailout 向表单 chkEmailReportsOnly 添加一个复选框参数，这样如果选中/为真，只有那些电子邮件地址会收到通过电子邮件发送给他们的报告。

这是最好的方法吗？其次，如何修改下面的代码，让所有的电子邮件收件人都收到组合框 cboReports 中显示的报告？

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

非常感谢您的帮助...我对此非常陌生，非常感谢您的建议。

Oblio

Answer 1

突出显示“SendObject”并单击 F1 以获取帮助。此对象可让您添加收件人、抄送、密送等。

遍历表单上的记录，创建一串电子邮件地址以发送至，例如：

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)