访问计时器VBA仅发送运行一次电子邮件

Question

i有一个带有2个子形式的表格。一个子形式有一个计时器30分钟以刷新运行良好的数据。另一个子形式具有以下代码，可以在设定的时间发送电子邮件

If DLookup("SCHEDULEDATETIME", "TBLSCHEDULERNEW", "SCHEDULETYPE='AWAITREG'") >= Date Then
    End
End If
If TimeValue(Now()) > #9:00:00 AM# Then
        Set oApp = CreateObject("Outlook.application")        
        Set oMail = oApp.CreateItem(olMailItem)
        oMail.Body = "email"
        oMail.Subject = "Test Subject"
        oMail.To = "[e-mail]"
        oMail.Send
        Set oMail = Nothing
        Set oApp = Nothing
End If
strsql = "update TBLSCHEDULERNEW set SCHEDULEDATETIME =trunc(sysdate) WHERE SCHEDULETYPE='AWAITREG';"
With MyCon
    .Open "xxx", "xxx", "xxx"
    .Execute strsql
    .Close
End With

我还有其他代码可以检查今天是否已经发送了电子邮件，该电子邮件正常

这只能运行一次。我必须在设计视图中打开表单，然后再次形成视图，以使代码开始工作。为什么可以？

我需要以这种方式安排电子邮件调度，而不是SendObject，因为我需要附加格式的Excel电子表格。

编辑 - 我现在认为这与发送电子邮件无关，因为代码似乎根本被调用了 - 我仅使用msgbox进行了测试。

Answer 1

和 End确实意味着这一点。

您的代码将停止，所有变量将被清除。可能不是你想要的。