添加更改合并字段的vba代码从数据库的形式

Question

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

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

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 = "[e-mail]"
oMail.Send
Set oMail = Nothing
Set oApp = Nothing
End Sub

如果您能给予我任何帮助，我将不胜感激。

谢谢

Answer 1

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

oMail.To = Forms!checks!servicecontact

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

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

 Me.servicecontact