S
sjj11
Hi,
I am trying to setup an automated command within excel for every 1/2 hr to
send a column in excel with data to large group of people through outlook.
I am using this code but it is not working out:
Sub AutoRefresh()
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:01:00"), "SendEmail"
Application.OnTime Now + TimeValue("00:30:00"), "AutoRefresh"
End Sub
It works only the 1st time when the workbook is open after that for every
1/2 hr it loses 1 min so the next time instead of starting @ 30 min interval,
it starts @ 29 min and so on. In the end the schedule email gets delivered
earlier and earlier instead of the precise 30 min interval that I am looking
for.
How can I get it done???
I am trying to setup an automated command within excel for every 1/2 hr to
send a column in excel with data to large group of people through outlook.
I am using this code but it is not working out:
Sub AutoRefresh()
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:01:00"), "SendEmail"
Application.OnTime Now + TimeValue("00:30:00"), "AutoRefresh"
End Sub
It works only the 1st time when the workbook is open after that for every
1/2 hr it loses 1 min so the next time instead of starting @ 30 min interval,
it starts @ 29 min and so on. In the end the schedule email gets delivered
earlier and earlier instead of the precise 30 min interval that I am looking
for.
How can I get it done???