Search Tools Links Login

Fax


I was looking for code to fax on PSC. found some fax stuff but people had some problems. Hopefully this solves it. It worked for me. Put this code in a Class Module.

Original Author: Barry Pranklin

Code

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function Fax(ByVal FileName As String, ByVal FaxNumber As String)
Dim FaxServer As Object
Dim FaxDoc As Object
Dim ComputerName As String
  ComputerName = String(50, Chr(0))
  Call GetComputerName(ComputerName, 50)
  ComputerName = Trim(Replace(ComputerName, Chr(0), ""))
  
  Set FaxServer = CreateObject("FaxServer.FaxServer")
  FaxServer.Connect ("\" & ComputerName)
  
  Set FaxDoc = FaxServer.CreateDocument(FileName)
  With FaxDoc
    .FaxNumber = FaxNumber
    .Send
  End With
  
  
  Set FaxDoc = Nothing
  Set FaxServer = Nothing
End Function

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 78 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.