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

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

为了让电子邮件发送子系统在每天设定的时间运行，最简单的方法是使用。在您的情况下，您可以在ThisWorkbook模块中放置类似的内容：

在标准模块中有类似的内容：

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点运行。如果宏运行不到一秒钟，您不希望它发送多封电子邮件，是吗

是的，您可以使用OnTime事件。到目前为止，你自己试过什么吗？@eirik谢谢你宝贵的时间。这是我到目前为止所做的代码。我无法张贴它，因为它显示在它是太长了。我不需要看到它的全部，只是关于你想在这里做的特定操作。显示它的最简单方法可能是将它编辑成原始问题。如果你想自己试一试，我建议你看一看，正如我已经提到的，我会这样做。位我应该将此代码映射到我的代码的何处。我在一家呼叫中心工作，我准备了一个休息跟踪器，人们在其中标记他们的休息时间。当他们回家时，他们单击一个按钮，所有数据都会被捕获到电子邮件中，并通过电子邮件发送到电子邮件id。员工不单击该按钮，我们必须手动跟踪电子邮件中的数据。因此，您需要知道的是如何将数据从电子邮件中提取到Excel？我将在周一完成此工作，如果有，请与您联系查询。如果它对您有效，如果您将其标记为已解决，我将不胜感激。我已对此进行了处理，但仍不适用于我。您能否为我编写完整的代码，我将试用它，并且是否应将此代码放入excel或outlook中。

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