DDE functions having no result and no errors

[StaZ]

Hi,

I'm trying to set up the Name and Number of a FAX programmatically.

I'm Using MS Access 2000 and Delrina WinFax PRO 10.

here is my code :

Public Sub SendFax()

'open fax send (WORKING)

ShellWait "C:\Program Files\Symantec\DelFax\CMPOSFAX.EXE",
vbMinimizedNoFocus

Dim vChan As Variant
Dim vVar As Variant

'Desactivate fax recieving
vChan = DDEInitiate("faxmng32", "CONTROL")
DDEExecute vChan, "GoIdle"
DDETerminate vChan

'open the connection
vChan = DDEInitiate("faxmng32", "TRANSMIT")

'recipient
DDEPoke vChan, "sendfax", "recipient(""255-8820"", ""13:47:00"",
""04/13/04"", ""Richard Perreault"", ""Rémax Lapointe"", ""Test1"
", ""Test2"", ""Fax"")"

'setcoverpage
DDEPoke vChan, "sendfax", "setcoverpage(" + Chr$(34) + "C:\Program
Files\Symantec\DelFax\Garde\BASIC1.CVP" + Chr$(34) + ")"

'fillcoverpage
DDEPoke vChan, "sendfax", "fillcoverpage(" + Chr$(34) + "Veuillez
envoyer ceci à Rémax Lapointe svp." + Chr$(34) + ")"

'showsendscreen
DDEPoke vChan, "sendfax", "showsendscreen(" + Chr$(34) + "0" +
Chr$(34) + ")"

'resolution
DDEPoke vChan, "sendfax", "resolution(" + Chr$(34) + "HIGH" +
Chr$(34) + ")"

DDEPoke vChan, "sendfax", "SendfaxUI"
DDETerminate vChan

End Sub

That code is supposed to :
- Open the sendFax window (working)
- Desactivate automatic recieving (Don't know if it works)
- Send the diffrent datas to the send fax window (not working)

the problem is that i get no error and my sendfax window's textboxes
are still blank.

So now i'm really wondering what is the problem... i don't wanna send
the fax, i just wanna set those values automatically.

So if any of you has any idea, i would really appreciate the help.

Thank you,
StaZ

[CDB]

I have recently had to replace code which used DDE after a client installed
Office 2003.

The client chose to uninstall Office 2003, and the old DDE-based code in
other apps again worked.

I suspected that it may result from tightening security measures of service
packs, etc.

Clive
"StaZ" <St*****@hotmail.com> wrote in message
news:d8**************************@posting.google.c om...

Hi,

I'm trying to set up the Name and Number of a FAX programmatically.

I'm Using MS Access 2000 and Delrina WinFax PRO 10.

here is my code :

Public Sub SendFax()

'open fax send (WORKING)

ShellWait "C:\Program Files\Symantec\DelFax\CMPOSFAX.EXE",
vbMinimizedNoFocus

Dim vChan As Variant
Dim vVar As Variant

'Desactivate fax recieving
vChan = DDEInitiate("faxmng32", "CONTROL")
DDEExecute vChan, "GoIdle"
DDETerminate vChan

'open the connection
vChan = DDEInitiate("faxmng32", "TRANSMIT")

'recipient
DDEPoke vChan, "sendfax", "recipient(""255-8820"", ""13:47:00"",
""04/13/04"", ""Richard Perreault"", ""Rémax Lapointe"", ""Test1"
", ""Test2"", ""Fax"")"

'setcoverpage
DDEPoke vChan, "sendfax", "setcoverpage(" + Chr$(34) + "C:\Program
Files\Symantec\DelFax\Garde\BASIC1.CVP" + Chr$(34) + ")"

'fillcoverpage
DDEPoke vChan, "sendfax", "fillcoverpage(" + Chr$(34) + "Veuillez
envoyer ceci à Rémax Lapointe svp." + Chr$(34) + ")"

'showsendscreen
DDEPoke vChan, "sendfax", "showsendscreen(" + Chr$(34) + "0" +
Chr$(34) + ")"

'resolution
DDEPoke vChan, "sendfax", "resolution(" + Chr$(34) + "HIGH" +
Chr$(34) + ")"

DDEPoke vChan, "sendfax", "SendfaxUI"
DDETerminate vChan

End Sub

That code is supposed to :
- Open the sendFax window (working)
- Desactivate automatic recieving (Don't know if it works)
- Send the diffrent datas to the send fax window (not working)

the problem is that i get no error and my sendfax window's textboxes
are still blank.

So now i'm really wondering what is the problem... i don't wanna send
the fax, i just wanna set those values automatically.

So if any of you has any idea, i would really appreciate the help.

Thank you,
StaZ