Hello Jaime,
Thanks for your help.
I add a delay but dont work.
I solve the problem generating a .VBS from VFP and running this.
I don't understand why works fine from this method, but...
-------------------------------------------------------------------
>Mauricio
>Try to add some delay between faxes. Try at first to add some 60 seconds wait between faxes, then if it works ok, you can move to 30 seconds and less. I had a similar problem a while ago when sending through WinFax, and this solved the problem.
>
>HTH
>Jaime
>
>>Hello to all.
>>
>>How I make to send a fax group from MSFax. Sending a single fax, everything works correctly, but if I scan a table to send a fax for each record, VFP stops to respond.
>>
>>
>>
>>This is the program.
>>--------------------------------------------------------------------------
>>
>>FUNCTION fnEnviarFax
>>LPARAMETERS pstrAsunto, pstrFax, pstrNombre, pstrArchivoAEnviar
>>
>>LOCAL lobjFaxDocument, lobjFaxServer
>>
>>**-- Crear el servidor de fax
>>lobjFaxServer = NEWOBJECT([FAXCOMEX.FaxServer])
>>IF !VARTYPE(lobjFaxServer) $ [O]
>> Wait Window [No se pudo crear el objeto servidor del fax.]
>> RETURN .F.
>>ENDIF
>>**-- Conectar con el servidor de correo
>>lobjFaxServer.Connect([])
>>
>>**-- Crear el Documento de fax
>>lobjFaxDocument = NEWOBJECT([FAXCOMEX.FaxDocument])
>>IF !VARTYPE(lobjFaxDocument) $ [O]
>> Wait Window [No se pudo crear el objeto de manejo de documentos del fax.]
>> RETURN .F.
>>ENDIF
>>
>>
>>**-- Datos del fax
>>WITH lobjFaxDocument
>> .Body = ALLTRIM(pstrArchivoAEnviar)
>> .Priority = 1
>> .Recipients.Add(ALLTRIM(pstrFax), ALLTRIM(pstrNombre))
>> .AttachFaxToReceipt = .T.
>> .CoverPageType = 0
>> .CoverPage = "generic"
>> .Note = ""
>> .ReceiptAddress = ""
>> .ReceiptType = 0
>> .ScheduleType = 0
>> .ScheduleTime = TIME()
>> .Subject = ALLTRIM(pstrAsunto)
>>
>> .ConnectedSubmit(lobjFaxServer)
>>ENDWITH
>>RETURN .T.
>>ENDFUNC
>>**--------------------------------------------------------------------------
>>
>>
>>Cordial greetings,
>>Mauricio Mesa
Mauricio Mesa