访问VBA-从连续表格中复制所有电子邮件地址，然后插入Outlook电子邮件至专线

Question

晚上好

我在Access数据库中有一个连续的表格，其中列出了分配给工作的每个员工及其电子邮件地址。我需要从表单中获取每个电子邮件地址，然后将其插入Outlook电子邮件的“收件人”行中。

有人可以为我指出正确的方向，以查找执行此操作的函数或子例程吗？或向我解释我该如何完成？

先谢谢您...

Answer 1

您需要在VBA中的MS Access中执行以下操作：

• 打开构成表单记录源的查询/表的记录集-您可以使用表单的recordsetclone方法执行此操作。

• 遍历记录集，并使用电子邮件地址字段保留的值构造以分号分隔的字符串。使用构造的字符串填充电子邮件的To字段。

• 或者，使用“邮件项目”的Add属性的Recipients方法在遍历记录集时添加每个收件人。