时间戳

首页 > 解决方案 > 需要来自 DB 中另一个表的数据来生成电子邮件而无需额外查询

vba - 需要来自 DB 中另一个表的数据来生成电子邮件而无需额外查询

问题描述

所以我有一个有两个表的数据库。一，“收件人”，包含个人姓名或发行列表名称、他们在公司内的部门以及他们的电子邮件地址。第二个是“站点”，包含有关公司设有办事处的不同位置的信息。这两个表中的数据不相关。

我想单击站点表单上链接到站点表中的数据的按钮，以通过电子邮件发送有关记录中站点的信息，该记录根据他们的部分或位置显示给收件人表中的每个人。例如，电子邮件发送给销售部门的每个人，主管和经理将被抄送，

除了查找电子邮件地址和填写收件人和抄送地址字段外，我已经完成了 VBA 脚本。我可以对电子邮件地址进行硬编码，但我正在为我办公室的其他成员构建它以供我使用，并希望他们能够在员工离开、被添加或被替换时更新电子邮件列表而无需学习如何解释代码。其他一切都令人满意。

我正在使用 Office 365，我的脚本如下。

Private Sub Command106_Click()

     'Set up outlook
     Set OutApp = CreateObject("Outlook.Application")
     Set OutMail = OutApp.CreateItem(0)

     'Create message
    strbody = "<p style='font-size:15'>" & "All," & "<br>" & _
            "<br>" & _
            "Please see the office information below for " & Me.CompanySiteID.Value & "." & "<br>" & _
            "<br>" & _
            "Address: " & "&nbsp;&nbsp;" & Me.Address.Value & "<br>" & _
            "City: " & "&nbsp;&nbsp;" & Me.City.Value & "<br>" & _
            "State: " & "&nbsp;&nbsp;" & Me.State.Value & "<br>" & _
            " Size: " & "&nbsp;&nbsp;" & Me. Size.Value & "<br>" & _

    On Error Resume Next

    With OutMail
        .Display
        .to = ""
        .CC = ""
        .BCC = ""
        .Subject = " Office Information below for " & Me.CompanySiteID.Value
        .HTMLBody = strbody & .HTMLBody
        '.Send
    End With
   
     'Delete any temp files created
      Kill strPath & strFName
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

标签： vbadatabaseemailms-access

解决方案

推荐阅读