如何讓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