0

我构建了一个查询,用于提取延迟付款的客户的姓名、电子邮件地址和订单代码。我正在尝试编写一个自动向所有生成的客户发送电子邮件的 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

作为电子邮件(点击时),如果我将某人的特定电子邮件地址放在“收件人”位置,它就会起作用。我如何从查询中提取电子邮件地址?(假设可能有很多,没有或一个)

4

0 回答 0