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
Why do programs stop working correctly as soon as you leave the Fox?