关于SendObject

煮版，您好！

   看起来已经很接近了，但还有几个问题还望给予指点！

1.收件人地址如何根据TB1的“村”，在CODE_TB2中查找邮件地址。本想在您的基础上自己研究下，但这一点对于我来说实在比较困难。

2.目前运行的结果收件人地址都是空白的，修改后的语句如下。

3.总共有3个村，但运行结果只有1个村的邮件，我尝试增加MSGBOX就可以得出三个村的邮件了，不知道是否有其它更好的办法？因为MSGBOX需要多次点确定。

Private Sub sendmail_Click()

    Dim rs As New ADODB.Recordset
    Dim ssql As String
    Dim i As Long
   
    ssql = "select distinct ´å from tb1"
    rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
    For i = 1 To rs.RecordCount
        ssql = "select * from tb1 where ´å='" & rs!´å.Value & "'"
        Call UpdateQuery("Óʼþ²éѯ", ssql)
        'DoCmd.SendObject acSendQuery, "Óʼþ²éѯ", acFormatXLS, rs!´å.Value & "@Óʼþ·þÎñÆ÷µØÖ·", , "±¨±í", "ÇëÌîдºóÉϱ¨¡£"
        DoCmd.SendObject acSendQuery, "Óʼþ²éѯ", acFormatXLS, rs!´å.Value & "87654321@qq.com", , "±¨±í", "ÇëÌîдºóÉϱ¨¡£"
        rs.MoveNext   

 'DoEvents   

MsgBox i
    Next

End Sub

Sub UpdateQuery(ByVal queryName As String, ByVal strSql As String)
    Dim Qdef As QueryDef
    If DCount("*", "MSysObjects", "type=5 and name='" & queryName & "'") = 0 Then
    Set Qdef = CurrentDb.CreateQueryDef(queryName)
    Else
        Set Qdef = CurrentDb.QueryDefs(queryName)
    End If
    Qdef.SQL = strSql
    Set Qdef = Nothing
End Sub