Question

我是一名基本用户，我已经设置了一个命令按钮，点击发送电子邮件。到目前为止，我已设法使其工作到我可以向特定电子邮件地址发送电子邮件，但在我的数据库中，我有一个存储字段'servicecontact'并希望能够将电子邮件发送到指定的地址在这个领域里。我还想将合并字段插入到电子邮件正文中，以指定电子邮件与

相关的人员

这是我到目前为止使用的代码

Private Sub Receipt_confirmation_email_Click()
Dim oApp As Outlook.Application
Dim oMail As MailItem
Dim rs As DAO.Recordset
Set oApp = CreateObject("Outlook.application")
Set oMail = oApp.CreateItem(olMailItem)
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from [Checks]", dbOpenDynaset)

oMail.Body = "RE <INSERT FIELD NAME HERE>"
oMail.Body = oMail.Body & " "
oMail.Subject = "Confirmation email"
oMail.To = {{{{THIS IS THE SECTION I AM STRUGGLING TO FORMAT}}}}
oMail.SentOnBehalfOfName = "specific@emailaddress.org"
oMail.Send
Set oMail = Nothing
Set oApp = Nothing

End Sub

非常感谢你能给我的任何帮助。

谢谢

Answer 1

您可以在代码中引用表单，例如：

oMail.To = Forms!checks!servicecontact

您可能需要检查servicecontact是否为空。

如果代码在checks表单上运行，那么您可以使用

 Me.servicecontact

oMail - 将更改合并字段添加到数据库表单中的vba代码

1 个答案: