ms-access - MS Access - 群发电子邮件？

Question

我正在使用 MS Access 创建一个包含 5000 多个联系人的数据库。这些联系人被分成联系人所属的员工，然后再次分类以便于搜索。我想要做的是创建一个按钮，它将以表格形式(简单)打开一个查询，然后有复选框，以便员工可以选择，例如，100 个联系人向表格中的 110 个联系人发送电子邮件，然后发送大量电子邮件，例如时事通讯(不是那么简单!)。我一直在努力想出如何做到这一点，因为我并不真正了解编程(我是临时工从事这项工作，只是尽我所能)，我能找到的只是一些东西关于循环(不知道!)并且我需要软件来执行此操作。

请问有什么解决方案吗？如果可能，我想避免购买/安装软件，如果您有答案，请尽可能简单...

提前致谢!

凯特

Answer 1

我刚刚在 MS Access 97 中创建了以下工作示例。

示例表(我用有效的电子邮件地址测试了代码):

ID 姓名邮箱

1 Rics rics@stack.com

2 凯特 kate@stack.com

3 X x@stack.com

一个按钮的表单。单击按钮时将执行以下代码:

Private Sub Mail_Click()

    Dim r As Recordset
    Dim email As String
    Set r = CurrentDb.OpenRecordset("select * from Addresses")
    Do While Not r.EOF
        email = r(2)
        DoCmd.SendObject acSendNoObject, Null, Null, email, Null, Null, "Test subject", "Message body of the test letter", False, Null
        r.MoveNext
    Loop
    r.Close

End Sub

我希望你能将它插入到你的应用程序中。