VBA中如何将查询获取的邮箱地址赋值给变量实现发信按钮调用邮件系统

你当前代码的核心问题是把SQL查询语句的文本直接赋值给了变量，从来没有真正执行查询、取出实际的邮箱地址值。
现在valid_mail里存的是一长串SQL字符串，不是具体的邮箱地址，传给DoCmd.SendObject当收件人参数自然没法正常工作，和直接手动输入邮箱能正常运行的差异本质就是这个变量存储的内容不对。

• 调整全局变量的类型：邮箱地址是文本内容，定义为String类型比Variant更稳妥
• 修改原来的mail_list子过程：不再给变量存SQL文本，而是真正执行查询，把匹配到的邮箱字段值读出来存到变量里
• 在按钮点击事件里增加校验：确认变量里存了有效邮箱后，再触发打开新邮件的逻辑

修正后的完整代码参考：

' 全局变量调整为存储文本类型的邮箱地址
Public valid_mail As String
    
Public Sub mail_list()
    Dim rs As DAO.Recordset
    Dim sqlStr As String
    ' 把你原有的查询逻辑单独存为SQL字符串，用来执行查询
    sqlStr = "SELECT CustomerFACT.îééì FROM CustomerFACT WHERE " & _
             "(((CustomerFACT.[èìôåï ðééã]) Like '*' & Forms!CustomerLookUpFORM!searchbox & '*')) Or " & _
             "(((CustomerFACT.[ùí àéù ÷ùø]) Like '*' & Forms!CustomerLookUpFORM!searchbox & '*')) Or " & _
             "(((CustomerFACT.[ùí äì÷åç]) Like '*' & Forms!CustomerLookUpFORM!searchbox & '*')) Or " & _
             "(((CustomerFACT.[îñôø òåñ÷]) Like '*' & Forms!CustomerLookUpFORM!searchbox & '*'));"
    ' 打开查询记录集
    Set rs = CurrentDb.OpenRecordset(sqlStr)
    ' 判断是否匹配到有效记录
    If rs.RecordCount > 0 Then
        ' 把字段里存储的实际邮箱值赋值给变量
        valid_mail = rs.Fields(0).Value
    Else
        valid_mail = ""
        MsgBox "未匹配到对应客户的有效邮箱，请检查搜索关键词", vbInformation
    End If
    ' 释放记录集对象
    rs.Close
    Set rs = Nothing
End Sub
    
Private Sub mail_70_Click()
    ' 点击按钮时先执行查询拿到最新的邮箱值
    Call mail_list
    ' 校验邮箱不为空时再触发打开新邮件
    If valid_mail <> "" Then
        DoCmd.SendObject acSendNoObject, , , valid_mail
    End If
End Sub

• 确认你查询的目标字段CustomerFACT.îééì确实是存储客户邮箱的字段，没有拼写错误，否则取出的值会是空
• 你的查询是基于搜索框内容的模糊匹配，需要注意模糊匹配可能命中多条客户记录的场景，当前写法会默认取第一条匹配结果的邮箱，如果存在多条匹配的情况建议增加选择提示，避免发错收件人
• 原来的写法依赖提前手动触发mail_list过程给变量赋值，很容易因为操作顺序不对导致变量为空；修正后把查询逻辑放到按钮点击时当场执行，不需要提前操作，也能避免全局变量因为其他代码运行被意外清空的问题

内容的提问来源于stack exchange，提问作者Eyal Marom