Question

我有一个公司信息表单，子表单是一个包含公司联系人的联接表。我想在父表单中使用一个按钮来获取该公司的所有联系人，并根据电子邮件列中的所有电子邮件地址创建一个字符串值。这将为我打开一个电子邮件窗口，其中包含所有电子邮件地址。

如果我是新手访问和VB，但我在DBO和C＃中经验丰富，那么我可以理解任何答案而不需要太多解释。

Answer 1

不确定第一部分需要什么，但这是电子邮件的代码：

Dim OutApp As Object
Dim OutMail As Object   

Set OutApp = CreateObject("Outlook.Application") 'Defines Outlook
Set OutMail = OutApp.CreateItem(0) 'Creates an email

With OutMail
        .To = ""
        .Cc = ""
        .BCC = ""
        .Subject = ""
        .Body = ""
        .attachments.Add ""
        .Display 'To show email
    .Send 'To send email
End With

将来自已过滤子表的电子邮件列中的MS Access数据加入字符串以进行电子邮件发送

1 个答案: