[5分]如何在不打开ACCESS程序能收到提醒？

修改记录发邮件，例如下面是引用OUTLOOK发邮件的

'引用Microsoft Outlook 物件模型

Set objOL = CreateObject("Outlook.Application")
Set itmNewMail = objOL.CreateItem(olMailItem)
With itmNewMail
.Subject = "测试邮件" '主题
.Body = "测试测试" '邮件内容
.To = XXX@163.COM
End If
.Display '啟動視窗
End With
On Error GoTo continue
SendEmail:
AppActivate itmNewMail
DoEvents
SendKeys "%s", Wait:=True
DoEvents
itmNewMail.Display
GoTo SendEmail '发送不成功誓不罢休
continue:
On Error GoTo 0
Set objOL = Nothing
Set itmNewMail = Nothing