需要数据库中另一个表中的数据来生成电子邮件，而无需其他查询

如何解决需要数据库中另一个表中的数据来生成电子邮件，而无需其他查询

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

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

除了查找电子邮件地址并填充“收件人”和“抄送”地址字段外，我已经完成了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