PDA

View Full Version : Solved: Winfax automation from VB6



Mr Doubtfire
04-24-2005, 01:53 PM
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

Howard Kaikow
04-25-2005, 03:19 AM
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.
Never looked at meself.

Mr Doubtfire
04-25-2005, 06:20 PM
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:

Howard Kaikow
04-25-2005, 07:20 PM
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?
just use the appropriate word document to set the fax body.

Mr Doubtfire
04-26-2005, 04:44 PM
Thank you in advance although I have not finished testing thoroughly!

TimTDP
01-24-2006, 04:54 AM
Hi Mr Doubtfire


Have you managed solve the problem, and if so, can you share it?