Fax Software

Community Forums

This topic contains 2 replies, has 0 voices, and was last updated by  Anonymous 16 years, 7 months ago.

Viewing 3 posts - 1 through 3 (of 3 total)
  • Author
    Posts
  • #2569

    Anonymous
    Member

    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

    #4330

    JohnD
    Participant

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

    #4331

    Anonymous
    Member

    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…

Viewing 3 posts - 1 through 3 (of 3 total)

You must be logged in to reply to this topic.