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