vba - Excel VBA-时间延迟 : How to use Time Delay after running macro

Question

我试图弄清楚如何在 Excel VBA 中使用时间延迟。

这是我想做的事情:

我在宏中有一个按钮，当我单击它时，它会发送第一封电子邮件。然后 1 小时后，我想自动发送第二封电子邮件，而无需单击另一个按钮或再次运行程序。

我有这段代码可以设置时间。然后在时间到期后，它将运行宏。我想要做的是在第一次发送后一小时内自动发送第二封电子邮件。

   Private Sub Workbook_Open()

     Dim sSetTimer As Date

     sSetTimer = Sheets("SetTime").Cells(1, 1)

     Application.OnTime TimeValue(sSetTimer), "Orayt"

   End Sub

Answer 1

在第一次的基础上增加一个小时，并用它来启动第二个进程。

Application.OnTime TimeValue(sSetTimer), "Orayt"
Application.OnTime TimeValue(sSetTimer) + TimeSerial(0, 1, 0), "Orayt2"