Fax Software

Community Forums

#4610

JohnD
Participant

Try this code

Dim objWFXSend As Object
Set objWFXSend = CreateObject(“WinFax.SDKSend8.0”)
objWFXSend.SetClientID (“Client Name”)

With objWFXSend

.SetCountryCode (“”)
.SetAreaCode (AreaCode)
.SetNumber (PhoneNumber)
.SetTo (FullName)
.SetCompany (rs!Company & “”)

.SetSubject Msubject
.SetCoverText (sCoverText)
If Len(docAttach) = 0 Then
Else
.AddAttachmentFile (docAttach)
End If
End With

objWFXSend.LeaveRunning()
objWFXSend.AddRecipient
objWFXSend.Send (1)
objWFXSend.ShowSendScreen (0)

‘ this routine waits until “IsReadyToPrint” returns a Non-zero ‘value (ready) this loop will wait but allow background ‘processing to continue

Do While objWFXSend.IsReadyToPrint = 0
DoEvents
Loop

‘ Close it down.

Set objWFXSend = Nothing

Edited By JohnD on May 31 2002 at 12:20