Jump to content
Xtreme .Net Talk

Recommended Posts

Posted

Robby I figured it out.

Jast adding Print dialog and selecting WinFax from the combo with instaled printers solves the problem.

I thought it would be much harder so I asked for help.

 

Thanks for trying to help

  • 1 month later...
Posted

this is how you use vb.net or vb 6 & winFax

 

How to send WinFax Pro faxes using VB 6 or VB .NET from a WinFax Pro client to a WinFax Pro Server

 

Start a project.

Open a form

Reference the winfax.dll in your system 32 directory

 

In VB 6 use this code:

 

Dim sendObj As Object

Private Sub Form_Load()

Set sendObj = CreateObject("WinFax.SDKSend8.0")

sendObj.SetCompany ("AAA Energy Co.")

sendObj.SetTo ("john smith")

sendObj.SetSubject ("Test Faxing")

sendObj.SetCoverFile ("C:\DLoad\BASIC1.CVP")

sendObj.SetCoverText ("Test of cover Page")

sendObj.SetUseCover (1)

sendObj.AddAttachmentFile ("c:\DLoad\License.txt")

sendObj.SetNumber ("1112121")

sendObj.AddRecipient

sendObj.Send (0)

sendObj.Done

 

In VB . Net use this code:

Imports wfxctl32.COleWinFaxAppClass

Imports wfxctl32.CSDKSendClass

Imports wfxctl32.COleAttachmentsClass

Dim sendObj As New wfxctl32.CSDKSend()

sendObj.SetCompany("AAA Energy Co.")

sendObj.SetTo("Brian Hall")

sendObj.SetSubject("Test UDC Faxing")

sendObj.SetCoverFile("C:\DLoad\BASIC1.CVP")

sendObj.SetCoverText("Test of cover Page")

sendObj.SetUseCover(1)

sendObj.AddAttachmentFile("c:\DLoad\License.txt")

sendObj.SetNumber("3271407")

sendObj.AddRecipient()

sendObj.Send(0)

sendObj.Done()

 

That�s It !!

 

Brian

  • 1 month later...
Posted
I tried the VB .Net example code and it works. One big problem though. The Print dialog appears and you have to click the [Print] button to continue the process. This is a show stopper as I'm looking for a "hands-off / totally automated" approach. Any suggestions?
Posted

pop up window

 

I do see a window pop-up but then it goes away. I don't have to touch anything for the fax to go thru. I have the winfax client on my desktop and the winfax server on a 2K server. Not sure why you have to click print.

 

Dim sendObj As New wfxctl32.CSDKSend()

sendObj.SetCompany("AAA Energy Co.")

sendObj.SetTo("Namel")

sendObj.SetSubject("Test UDC Faxing")

sendObj.AddAttachmentFile("C:\faxdoc \Confirmation.rtf")

sendObj.SetNumber("5556666")

sendObj.AddRecipient()

sendObj.Send(0)

sendObj.Done()

 

Brian

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...