By way of background, I need to run processes like batches of email or EDI messages without operator intervention (at least unless there is a serious problem). I successfully ran the mabry samples for email, but in rearranging the process to send multiple messages, everything just hung. This could be tracked to its done event not firing.

The problem I find has nothing to do with email.
Create an empty form, add a label, a property fbusy, and two methos - test1 and test2. Also a timer.
Set the caption on the label, and in the ActivateEvent (seemed the bast place to start) change the label caption, and call test1 then test2 and release the form.
In test 1:
thisform.timer1.interval = 1000
thisform.timer1.enabled = .t.
thisform.fbusy = .t.
do while thisform.fbusy = .t.
enddo
thisform.label1.caption = "Something else"

In the timer event;
thisform.fbusy = .f
In test2, same code, but new caption
Run the form and the timer does not fire. Put a wait timeout .5 in the do while, and it works fine.
The wait is ugly, it flashes on the screen or scribbles on the window.
It obviously needs something in the loop which provides a time interval for the other events to fire. Are there any other options?

Geoff