ExcelVBA-时间延迟：如何使用运行宏后的时间延迟

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"