如何让Access通过Outlook发送自动通知

Question

我设计了一个简单的Access数据库和一个表单来保存数据。我的问题是：当有人打开表单并填写表单时，一旦他们点击“保存”按钮，我想让一些人（管理员）收到一封通知邮件到他们的收件箱。我怎样才能做到这一点？

Answer 1

尝试以下操作：

Dim oApp As Outlook.Application 
Dim oMail As MailItem 
Set oApp = CreateObject("Outlook.application") 

Set oMail = oApp.CreateItem(olMailItem) 
oMail.Body = "Body of the email" 
oMail.Subject = "The subject of the email" 
oMail.To = "Someone@somewhere.com" 
oMail.Send 
Set oMail = Nothing 
Set oApp = Nothing 

您还可以根据需要添加附着物。而在身体，你可以包括为你的表格上使用BU

Forms!frm_yourformname!CustomerName