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???

See this page
http://www.cpearson.com/excel/OnTime.aspx

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"sjj11" <(E-Mail Removed)> wrote in message news:EDE94399-F520-4851-9F2A-(E-Mail Removed)...
> 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???
>