Ms access 在'；访问2013报告'；作为分号分隔的字符串值

我有一个报告-新客户，它显示了“客户”表中客户在过去一个月添加的子集。报告中的一个字段是“电子邮件地址”。我的要求是，我想添加一个按钮“发送电子邮件给这些客户”，这个按钮应该打开一个“新的电子邮件正文”。我已经弄明白了

现在是棘手的部分。如何将“新客户报告”中的所有电子邮件地址作为电子邮件“收件人”字段中的分号分隔列表获取

---

OpenRecordset可以与报表一起使用吗？

这将创建一个名为

list

的字符串，记录集中包含所有电子邮件，只需将

rs=db.OpenRecordset

调整到报表的以下位置：

Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM tblCustomers WHERE [JoinDate] + 30 >= Date()")

Dim list As String

With rs
    .MoveFirst
    list = ![Email]
    .MoveNext

    While Not .EOF
        list = list & ";" & ![Email]
        .MoveNext
    Wend
End With