by O. Smith Creations (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 6th July 2008
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
' 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
No comments have been posted about Automate Sending fax via MS Fax without user input. I found this code after many weeks of searching. Why not be the first to post a comment about Automate Sending fax via MS Fax without user input. I found this code after many weeks of searching.