如何在win2000下面用faxcom发传真，我试了一个程序 总是报自动化错误

[sims]

这是我抄下来的程序


Private Const MAX_COMPUTERNAME_LENGTH As Long = 31

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private FS As New FAXCOMLib.FaxServer

Private FD As New FAXCOMLib.FaxDoc



Private Property Get ComputerName() As String

Dim dwlen As Long

Dim strString As String

dwlen = MAX_COMPUTERNAME_LENGTH + 1

strString = String(dwlen, " ")

GetComputerName strString, dwlen

strString = Left(strString, dwlen)

End Property

Public Function SendFax(SendDocPath As String, SendNumber As String) As String

On Error GoTo Err_Conn

FS.Connect ("My Computer's name") ' My Computer's name

On Error GoTo Err_Catch

Set FD = FS.CreateDocument(SendDocPath)

FD.FileName = SendDocPath

FD.FaxNumber = SendNumber ' Fax number

FD.DisplayName = SendNumber

FD.DiscountSend = 0

FD.SendCoverpage = 0

FD.Send ‘出错

Err_Catch:

GoTo ExitFunc

Err_Conn:

GoTo ExitFunc

ExitFunc:

If Err.Description <> "" Then

SendFax = Err.Description

Else

SendFax = "0"

End If

On Error Resume Next

FS.Disconnect

End Function