[Anonymous]

The following code snippet never places a fax in the outbox; stays in the do loop after the .send(1). If I don’t execute the do loop, still no fax in the out box. Help!!!!!

Private Sub Command1_Click()
Dim sMsgID As String
Dim sMsgNum As String
Set oSend = New wfxctl32.CSDKSend
Dim oLog As Object
Set oLog = CreateObject(“WinFax.SDKLog”)
Me.MousePointer = vbHourglass
With oSend
.SetClientID “Test Client”
.SetSubject “Test Fax from VB”
.LeaveRunning
.SetUseCover 1
.SetResolution 1
.SetCoverFile “g:coverpagescarrier.cvp”
.SetCoverText “Cover Page Text”
.SetCountryCode “”
.SetAreaCode “”
.SetNumber “555-0000”
.SetCompany “TestCompany”
.SetTo “Test Employee”
.SetHold 1
.AddRecipient
.SetPrintFromApp (1)
.MakeAttachment “REPORT”, “c:program filessymantecwinfaxdata”, 0
Debug.Print “Recipient Count:”, .GetRecipientCount
Me.PrintForm
Debug.Print “Last Error: “; .GetLastError
Debug.Print “Send: “; .Send(1)
Do
DoEvents
Loop Until .IsEntryIDReady(0) = 1 ‘only one recipient
End With
DoEvents

With oLog
sMsgID = .GetMessageListFirst(eStdFolder.STANDARDFOLDER_WINFAX_OUTBOX, “”)
If sMsgID <> “” Then
GoSub ResetHold
End If
Do
sMsgID = .GetMessageListNext()
If sMsgID <> “” Then GoSub ResetHold
Loop Until sMsgID = “”
End With
oSend.Done
DoEvents
Set oSend = Nothing
Set oLog = Nothing
Me.MousePointer = vbDefault
Exit Sub
ResetHold:
If oLog.GetMessageHold(sMsgID) <> 0 Then
oLog.SetMessageNumber sMsgID, “555-0000”
oLog.SetMessageRelease sMsgID
End If
Return
End Sub

[JohnD]

are you trying to send a fax here, or make an attachment? I don’t follow your code.

[Anonymous]

I am trying to send a fax with an attachment printed to the WinFAX printer driver. The reason I am doing a SetHold 1 and then releasing later is that WinFax Pro insists on inserting a “+1” in front of any local exchange phone number. I am using RightFAX Fax Server as the actual Fax sending mechanism, and RightFax dials the 1 as well as the local number, which then fails to connect (“It is not necessary to dail a 1 for this number, … etc”)

The cdde works just fine if the .SetPrintFromApp and .MakeAttachment methods are commented out!

Any help is greatly appreciated as I have been beating this thing for several days…

[Author]

Posts