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

Question

Is there any code to send a range in an email body if a certain time in a range is exceeded. This should be automated and not a button.

Answer 1

In order to get the email-sending sub to run at a set time every day, the easiest thing to do is to use the OnTime -method . In your case, you would put something like this in the ThisWorkbook -module:

Private Sub Workbook_Open()
  Call new_timer
End Sub

and something like this in a standard module:

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

This should set your code to run at 4 o'clock every day. The Application.Wait is there just in case the macro takes less than a second to run, you do not want it to send more than one email, do you? :)