范围自动发送电子邮件正文

Question

如果超出某个范围内的特定时间，是否有任何代码可以在电子邮件正文中发送范围。这应该是自动化的而不是按钮。

Answer 1

为了让电子邮件发送子每天在设定的时间运行，最简单的方法是使用OnTime-method。在您的情况下，您可以在ThisWorkbook - 模块：

中添加类似的内容

Private Sub Workbook_Open()
  Call new_timer
End Sub

以及标准模块中的类似内容：

Sub email_sending_macro
  <your code to send the email>
  Application.Wait(Now + TimeValue("0:00:01"))
  Call new_timer
End Sub

Sub new_timer
  Application.OnTime TimeValue("16:00:00"), "email_sending_macro"
End Sub

这应该将您的代码设置为每天4点钟运行。 Application.Wait是为了防止宏运行不到一秒，你不希望它发送多个电子邮件，对吗？ ：）