Application.Visible = .F. && There is a screen=off in config.fpw On ShutDown CLEAR EVENTS nMessage = 0 Do CriaObj Read Events Return * ------------------------------------------- Procedure CriaObj oMailLoop = CreateObj ("MailLoop") EndProc && CriaObj * ------------------------------------------- Function SendMapiMail LParameters pMessage . . . EndFunc && SendMapiMail * ------------------------------------------- Define Class MailLoop as Timer Name = "MailLoop" Procedure Timer This.Enabled = .F. nMessage = nMessage + 1 SendMapiMail ("This is message #" + lTrim (Transform (nMessage, "999,999"))) This.Interval = 20000 && 20 sec's This.Enabled = .T. EndProc Procedure Init This.Interval = 100 && Let it fire immidiately This.Enabled = .T. EndProc EndDefine>