Consulting

Results 1 to 6 of 6

Thread: Solved: Winfax automation from VB6

  1. #1

    Solved: Winfax automation from VB6

    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!

  2. #2
    VBAX Mentor
    Joined
    Sep 2004
    Location
    Nashua, NH, USA
    Posts
    489
    Location
    Quote Originally Posted by Mr Doubtfire
    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!
    There appears to be much stuff in the MSDN library on faxing.
    Never looked at meself.

  3. #3
    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!

  4. #4
    VBAX Mentor
    Joined
    Sep 2004
    Location
    Nashua, NH, USA
    Posts
    489
    Location
    Quote Originally Posted by Mr Doubtfire
    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!
    assuming you copied the code correctly, what more do you need?
    just use the appropriate word document to set the fax body.

  5. #5
    Thank you in advance although I have not finished testing thoroughly!

  6. #6
    Hi Mr Doubtfire


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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •