Winfax funciona muito bem: (http://www.delrina.com/)
Você pode trabalhar facilmenta através da porta COM:
oWinFax = CreateObject("WinFax.SDKSend")
oWinFax.SetSubject("Test Fax")
oWinFax.SetNumber("1234567")
oWinFax.SetAreaCode("555")
oWinFax.SetCompany("Alguma Empresa")
oWinFax.AddRecipient() && requerido
oWinFax.SetPrintFromApp(1)
oWinFax.AddAttachmentFile("") && aqui vai o arquivo se quizeres
oWinFax.Send(1)
SET PRINTER TO NAME winfax
REPORT FORM MyReport TO PRINT NOCONSOLE
SET PRINTER TO
RELEASE oWinFax
HTH
--
Alex Feldstein - MCP Visual FoxPro |