Printable View
First = I do not know whether this is the right place for the help!?
If First = True then
Do anyone of you have the experience to develop VB6 using a Winfax
component to do fax automation retrieving/sending from database? Or VB6
has any component (like Email using CDONTs) to do the right job?
End If
Thank you!:help
There appears to be much stuff in the MSDN library on faxing.Quote:
Originally Posted by Mr Doubtfire
Never looked at meself.
Thank you and I have obtained some useful information after visiting the site.
I have obtained the following code from "msdn" library how to send a fax:
Private Sub Form_Load()
Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
Dim objFaxServer As New FAXCOMEXLib.FaxServer
Dim objSender As FaxSender
Dim JobID As Variant
'Error handling
On Error GoTo Error_Handler
'Connect to the fax server
objFaxServer.Connect ""
'Set the fax body
objFaxDocument.Body = "c:\Docs\Body.txt"
'Name the document
objFaxDocument.DocumentName = "My First Fax"
'Set the fax priority
objFaxDocument.Priority = fptHIGH
'Add the recipient with the fax number 12225550100
objFaxDocument.Recipients.Add "12225550100", "Bud"
'Choose to attach the fax to the fax receipt
objFaxDocument.AttachFaxToReceipt = True
'Set the cover page type and the path to the cover page
objFaxDocument.CoverPageType = fcptSERVER
objFaxDocument.CoverPage = "generic"
'Provide the cover page note
objFaxDocument.Note = "Here is the info you requested"
'Provide the address for the fax receipt
objFaxDocument.ReceiptAddress = "someone@example.com"
'Set the receipt type to email
objFaxDocument.ReceiptType = frtMAIL
'Specify that the fax is to be sent at a particular time
objFaxDocument.ScheduleType = fstSPECIFIC_TIME
'CDate converts the time to the Date data type
objFaxDocument.ScheduleTime = CDate("4:35:47 PM")
objFaxDocument.Subject = "Today's fax"
'Set the sender properties.
objFaxDocument.Sender.Title = "Mr."
objFaxDocument.Sender.Name = "Bob"
objFaxDocument.Sender.City = "Cleveland Heights"
objFaxDocument.Sender.State = "Ohio"
objFaxDocument.Sender.Company = "Microsoft"
objFaxDocument.Sender.Country = "USA"
objFaxDocument.Sender.Email = "someone@microsoft.com"
objFaxDocument.Sender.FaxNumber = "12165555554"
objFaxDocument.Sender.HomePhone = "12165555555"
objFaxDocument.Sender.OfficeLocation = "Downtown"
objFaxDocument.Sender.OfficePhone = "12165555553"
objFaxDocument.Sender.StreetAddress = "123 Main Street"
objFaxDocument.Sender.TSID = "Office fax machine"
objFaxDocument.Sender.ZipCode = "44118"
objFaxDocument.Sender.BillingCode = "23A54"
objFaxDocument.Sender.Department = "Accts Payable"
'Save sender information as default
objFaxDocument.Sender.SaveDefaultSender
'Submit the document to the connected fax server
'and get back the job ID.
JobID = objFaxDocument.ConnectedSubmit(objFaxServer)
MsgBox "The Job ID is :" & JobID(0)
Exit Sub
Error_Handler:
'Implement error handling at the end of your subroutine. This implementation is for demonstration purposes
MsgBox "Error number: " & Hex(Err.Number) & ", " & Err.Description
End Sub
Does anyone have the experience of faxing a MS-Word document using VB6?Anyone could share their simple example(s)!?Any way to identify successful faxing out?Thank you!:banghead:
assuming you copied the code correctly, what more do you need?Quote:
Originally Posted by Mr Doubtfire
just use the appropriate word document to set the fax body.
Thank you in advance although I have not finished testing thoroughly!
Hi Mr Doubtfire
Have you managed solve the problem, and if so, can you share it?