Information générale
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Thanks Sergey,
I'm doing this with XP. Works great but not on w2k.
Are you saying that "faxserver.faxserver" will work for w2k?
And what about Vista?
pname = set("printer",3) && Save current printer
tmpFaxFile = FULLPATH(CURDIR()) + sys(2015)+".TIF" && temporary workfile for fax (.TIF)
oFax = CreateObject("FAXCOMEX.FaxServer") && instantiate FAXCOMEX class server
oFax.connect(eFaxSoftW) && Connect \\TERM-003
SET PRINTER TO NAME eFaxSoftW +"\Fax" && \Fax
Report Form anyreport TO FILE (tmpFaxFile) Noconsole for mark="Y"
oFaxDoc = CreateObject("FAXCOMEX.FaxDocument") && instantiate object document
oFaxDoc.Body = (tmpFaxFile) && .Body is the report
faxnum = AdjFaxNos(faxnum) && adjust fax numbers
oFaxDoc.DocumentName = "Wizebuys Log Verification"
oFaxDoc.Recipients.Add (faxnum)
oFaxDoc.Sender.Name = gluser
oFaxDoc.Sender.Email = ""
oFaxDoc.Sender.FaxNumber = ""
oFaxDoc.ConnectedSubmit(oFax) && Fax it out
=MESSAGEBOX("Sending Fax ...",64,"Faxserver",4)
oFax.Disconnect() && Disconnect oFax object
release oFax, oFaxDoc && Cleanup
delete file (tmpFaxFile) && Delete working file
set printer to name (pname) && Restore printer
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement