Vba 在自动化电子邮件访问中从查询中提取多个电子邮件地址？

我构建了一个查询，提取了一个延迟付款客户的姓名、电子邮件地址和订单代码。我正在尝试编写一个vba代码，自动向生成的所有客户发送电子邮件。到目前为止，我已经：

Private Sub Command27_Click()
    Dim oApp As New Outlook.Application
    Dim oEmail As Outlook.MailItem

    Set oEmail = oApp.CreateItem(olMailItem)

    oEmail.To = ?????????
    oEmail.Subject = "Test"
    oEmail.Body = "Body Text."
    oEmail.Send
End Sub

---

作为一封电子邮件（点击时），如果我把某人的特定电子邮件地址放在“收件人”位置，它就会起作用。如何从查询中提取电子邮件地址？（假设可能有很多、没有或只有一个）

阅读有关记录集的内容。这是否回答了您的问题。循环记录集。为单个电子邮件生成电子邮件地址的串联字符串，或向每个地址发送单个电子邮件。这是许多论坛的共同话题。谷歌和你会找到例子。6月7日-谢谢！成功了！