Welcome guest. Before posting on our computer help forum, you must register. Click here it's easy and free.

Author Topic: Problem with Winfax PRO DDE  (Read 3818 times)

0 Members and 1 Guest are viewing this topic.

JimMorcombe

  • Guest
Problem with Winfax PRO DDE
« on: November 29, 2004, 10:54:35 PM »
I wrote a very simple Visual Basic program on Windows 95 which calls Symantec's Winfax PRO using DDE Pokes.  I copied the code straight out of a Symantec example and it worked.

I have upgraded to Windows XP and the program no longer works.  It crashes with :

Run-time error '285':

Foreign application won't perform DDE method or operation.


Where do I go to get help on this?

Here is a snippet of my code.  


Private Sub Command1_Click()
FAXNumber$ = "9242 3333"
SendTime$ = "06:00:00"
SendDate$ = "11/12/03"
FAXName$ = "Clare"
Company$ = "Ampac"
Subject$ = "Joy of Faxing"
Keyword$ = "fax, joy"
BillingCode$ = ""
Mode$ = "Fax"
CoverPage$ = "C:\Program Files\WinFax\COVER\TEST.CVP"
CoverText$ = "Do enjoy this seasonal message."
Attachment$ = "C:\jim\test.doc"

MsgBox ("Starting")

'This is the start of the DDE to WinFax.

'Create the link and disable
'automatic reception in WinFax.

Label1.LinkTopic = "FAXMNG32|CONTROL"
Label1.LinkMode = 2
Label1.LinkTimeout = -1
Label1.LinkExecute "GoIdle"
Label1.LinkMode = 0
MsgBox ("Automatic reception has been disabled")

'Create a new link with the TRANSMIT topic.

Label1.LinkTopic = "FAXMNG32|TRANSMIT"
Label1.LinkMode = 2
Label1.LinkTimeout = -1
Label1.LinkItem = "sendfax"

'Start DDEPokes to control WinFax.

recip$ = "recipient(" & Chr$(34) & FAXNumber$ & Chr$(34) & "," & Chr$(34) & SendTime$ & Chr$(34) & "," & Chr$(34) & SendDate$ & Chr$(34) & ","
recip$ = recip$ & Chr$(34) & FAXName$ & Chr$(34) & "," & Chr$(34) & Company$ & Chr$(34) & "," & Chr$(34) & Subject$ & Chr$(34) & ","
recip$ = recip$ & Chr$(34) & Keyword$ & Chr$(34) & "," & Chr$(34) & BillingCode$ & Chr$(34) & "," & Chr$(34) & Mode$ & Chr$(34) & ")"
Label1.Caption = recip$
Label1.LinkPoke

MsgBox ("The first LinkPoke has been done!")

'setcoverpage
Label1.Caption = "setcoverpage(" & Chr$(34) & CoverPage$ & Chr$(34) & ")"
Label1.LinkPoke
MsgBox ("The setcoverpage LinkPoke has been done!")




The message ("The first LinkPoke has been done!") is displayed, and then the program crashes on the next LinkPoke.

Any ideas?