• Home
 · 
• Miscellaneous
 · 
• Automate Sending fax via MS Fax without user input. I found this code after many weeks of searching

Automate Sending fax via MS Fax without user input. I found this code after many weeks of searching

Automate Sending fax via MS Fax without user input. I found this code after many weeks of searching. I tweek the code a little for easier use.

API Declarations


Dim FaxDoc As Object
Dim retCode As Long



Rate Automate Sending fax via MS Fax without user input. I found this code after many weeks of searching

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    ' Fax a file to a fax number
    ' Uses the standard Windows NT/2000/XP FaxServer on the named Server
    ' David McReynolds, Aug 2003
    ' [email protected]
     
    Dim FaxServer As Object
    Dim FaxDoc As Object
    Dim retCode As Long
    
    FaxServerName = Your Actual Computer's Name ' found in system info
    FileName = "C:\the actual file folder\file to send.doc"
    FaxNumber = "fax number"

         
    Set FaxServer = CreateObject("FaxServer.FaxServer", FaxServerName)
    FaxServer.Connect FaxServerName
    Set FaxDoc = FaxServer.CreateDocument(FileName)

    With FaxDoc
        .FaxNumber = FaxNumber
        retCode = .Send
    End With
    'MsgBox "Result of FaxDoc Send: " & retCode
     
    Set FaxDoc = Nothing
    FaxServer.Disconnect
    Set FaxServer = Nothing
End Sub