Anybody understand Winfax DDE pls?

[AndyShuter]

I am now right at the last fence in what has been an "interesting" assignment! Sending an attachemnt from Access through winfax!

I have found the following excellent code but, the problem is that the documemnt appears in a "preview" kind of pane, I just want it to go ahead and send! Everything else works fine

Any sugestions pls?

Many Thanks
Andy

Public Function SendFax()

'On Error GoTo ErrorHandler

Dim strRecipient As String
Dim strFax As String
Dim strattach As String

'Test for required fields
strFax = Forms!frmFinanceProposal!Text1077
If strFax = "" Then
MsgBox "Please enter a fax number"
GoTo ErrorHandlerExit
End If

Debug.Print "Fax: " & strFax

strattach = "C:\InboundFaxes\Fax.snp"
Debug.Print "Attachment: " & strattach

'Start DDE connection to WinFax.
'Create the link and disable automatic reception in WinFax
lngChannel = DDEInitiate(Application:="FAXMNG32", topic:="CONTROL")
DDEExecute ChanNum:=lngChannel, Command:="GoIdle"
DDETerminate ChanNum:=lngChannel

'Create a new link with the TRANSMIT topic.
lngChannel = DDEInitiate("FAXMNG32", "TRANSMIT")

'Start DDEPokes to control WinFax.
strRecipient = "recipient(" & Chr$(34) & strFax & Chr$(34) & ")"
Debug.Print "Recipient string: " & strRecipient
Debug.Print "Length of recipient string: " & Len(strRecipient)
DDEPoke ChanNum:=lngChannel, Item:="sendfax", Data:=strRecipient

'Specify attach
DDEPoke ChanNum:=lngChannel, Item:="sendfax", _
Data:="attach(" & Chr$(34) _
& strattach & Chr$(34) & ")"

'Show send screen
DDEPoke ChanNum:=lngChannel, Item:="sendfax", _
Data:="showsendscreen(" & Chr$(34) _
& "0" & Chr$(34) & ")"

'Set resolution
DDEPoke ChanNum:=lngChannel, Item:="sendfax", _
Data:="resolution(" & Chr$(34) _
& "LOW" & Chr$(34) & ")"


'Send the fax - heres where it falls over

DDEPoke ChanNum:=lngChannel, Item:="sendfax", Data:="SendfaxUI"
DDETerminate ChanNum:=lngChannel
lngChannel = DDEInitiate(Application:="FAXMNG32", topic:="CONTROL")
DDEExecute ChanNum:=lngChannel, Command:="GoActive"
DDETerminate ChanNum:=lngChannel

lngChannel = DDEInitiate(Application:="FAXMNG32", topic:="CONTROL")
DDEExecute ChanNum:=lngChannel, Command:="GoActive"
DDETerminate ChanNum:=lngChannel


'*************NEED A COMMAND HERE TO GO AHEAD AND PERFORM THE SEND!

ErrorHandlerExit:
'DoCmd.Close objecttype:=acForm, objectname:=Me.Name
Exit Function

ErrorHandler:
MsgBox "Error No: " & Err.Number & "; Description: " & _
Err.Description
Resume ErrorHandlerExit

End Function

 

[Uncle Gizmo]

Have you seen Helen Feddema's web site?

If not I am sure there is an example there, I haven't studied it, but it may have the functionality you are looking for.

 

[Uncle Gizmo]

It is actually on this page, and you want item :

112. Faxing from Access using WinFax with DDE