**activate procedure
If Not Used('trans1')
USE trans1.dbf Alias trans1 Again In 0 Shared
Endif
SELECT trans1
DO mac1
*? dnshostname
IF trans1.fexerno=3207 AND trans1.mark1=0 AND dnshostname="mohammadqasem"
IF trans1.fexerno=2610 AND trans1.mark1=0 AND dnshostname="Tareq-Top"
IF trans1.fexerno=3401 AND trans1.mark1=0 AND dnshostname="mohammed.ks"
IF trans1.fexerno=2011 AND trans1.mark1=0 AND dnshostname="a-momy"
loSpeak = CREATEOBJECT("SAPI.SPVoice")
loSpeak.Voice = loSpeak.GetVoices().Item(0) && set the voice
* FOR i=1 TO 10
loSpeak.SPEAK('you have a message')
MESSAGEBOX("you have a message")
*next
endif
endif
endif
endif
/pre>
thanks