Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 589
  • Last Modified:

Winfax SDK problem

I'm developing an application in VB that is supposed to make use of the Winfax SDK (I am using version 10.0 and Concord's Internet Fax service).  It seems to be working for the most part, but once I send the fax, it just sits in the Message Manager Outbox.  If I right click on the fax and select Send Now, it still just sits there.  The fax always seems to be correctly formatted, and all attachments are present.

I have no problem sending a fax using Winfax directly and if I have my application bring up the send dialog before sending, it works just fine.

I created a simple application that is supposed to send a fax to my fax machine upon being run, but it encounters the same problem.  Here is the code I have for this application:

---------------------------------------------------------
Private Sub Form_Load()
Dim sendObject As Object
Dim ret As Integer

Set sendObject = CreateObject("Winfax.SDKSend")

ret = sendObject.SetSubject("TEST!!!")
If (ret = 1) Then
    MsgBox ("SetSubject Failed")
    End
End If

ret = sendObject.SetKeywords("Test")
If (ret = 1) Then
    MsgBox ("SetKeywords Failed")
    End
End If

ret = sendObject.SetResolution(0)
If (ret = 1) Then
    MsgBox ("SetResolution Failed")
    End
End If

ret = sendObject.SetQuickCover(1)
If (ret = 1) Then
    MsgBox ("SetQuickCover Failed")
    End
End If
   
ret = sendObject.SetCoverText("This is a Test.")
If (ret = 1) Then
    MsgBox ("SetCOverText Failed")
    End
End If
   
ret = sendObject.SetUseCover(1)
If (ret = 1) Then
    MsgBox ("SetUseCover Failed")
    End
End If

ret = sendObject.ShowCallProgress(1)
If (ret = 1) Then
    MsgBox ("ShowCallProgress Failed")
    End
End If

ret = sendObject.SetTo("Somebody")
If (ret = 1) Then
    MsgBox ("SetTo Failed")
    End
End If

ret = sendObject.SetNumber("#######") 'My fax number
If (ret = 1) Then
    MsgBox ("SetNumber Failed")
    End
End If
   
ret = sendObject.SetAreaCode("###") 'My area code
If (ret = 1) Then
    MsgBox ("SetAreaCode Failed")
    End
End If
   
ret = sendObject.SetPriority(1)
If (ret = 1) Then
    MsgBox ("SetPriority Failed")
    End
End If
   
ret = sendObject.AddRecipient()
If (ret = 1) Then
    MsgBox ("AddRecipient Failed")
    End
End If
   
ret = sendObject.LeaveRunning()
If (ret = 1) Then
    MsgBox ("LeaveRunning Failed")
    End
End If
 
ret = sendObject.GetRecipientCount() 'this shows 1
MsgBox ("Recipient Count: " & ret)   'recipient
 
ret = sendObject.Send(1)
If (ret = 1) Then
    MsgBox ("Send Failed")
    End
End If
 
End Sub
---------------------------------------------------------
0
sellison
Asked:
sellison
1 Solution
 
sellisonAuthor Commented:
Ok, I've answered my own question.  I need to call sendObject.SetType with the index of the transport method I am using (in this case, 0 for Internet).
0
 
SpideyModCommented:
PAQ'd and points refunded

SpideyMod
Community Support Moderator @Experts Exchange
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now