Ms access VBA访问从数据库获取字符串

我有一个包含电子邮件地址的列的表

我想获得这些电子邮件地址并发送邮件给他们。 我的问题是我不知道如何得到地址。 我想得到一个字符串作为

me@email.com;me2@email.com;me3@email.com...etc

如何获取此字符串以便将其传递给收件人？

来自内存（未测试）：

---

由于连接查询中的字符串是一项常见任务，因此我建议创建一个可重用函数：

Public Function ConcatenateFromSql(ByVal sql As  String, _
                                   Optional ByVal delimiter As String = ";") As String
    Dim db As DAO.Database, rs As DAO.Recordset
    Dim s As String

    Set db = CurrentDb
    Set rs = db.OpenRecordset(sql)
    Do While Not rs.EOF
        If s = "" Then
            s = rs(0)
        Else
            s = s & delimiter & rs(0)
        End If
        rs.MoveNext
    Loop
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing

    ConcatenateFromSql = s
End Function

---

你试过使用这个字符串吗？你是什么意思？我不知道数据库中会有哪些电子邮件，你数据库中的字符串是什么？

Public Function ConcatenateFromSql(ByVal sql As  String, _
                                   Optional ByVal delimiter As String = ";") As String
    Dim db As DAO.Database, rs As DAO.Recordset
    Dim s As String

    Set db = CurrentDb
    Set rs = db.OpenRecordset(sql)
    Do While Not rs.EOF
        If s = "" Then
            s = rs(0)
        Else
            s = s & delimiter & rs(0)
        End If
        rs.MoveNext
    Loop
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing

    ConcatenateFromSql = s
End Function