Community Forums

Thank you for your help,

I can make it work with “Snapshot” format which is what I want to use anyway because images and such.

So it does work now but, is there a way that I can just attach the report itself which resides in the database intead of having to output it as a windows file path? I have the code below. If you scroll down, there is a “attach= ??????” section. Here is my code:

Private Sub cmdSendFax_Click()

On Error GoTo ErrorHandler

Dim strMessage As String
Dim strSendTime As String
Dim strSendDate As String
Dim strRecipient As String
Dim lngChannel As Long
Dim strCoverSheet As String
Dim strFax As String
Dim dbs As DAO.Database
Dim dteFax As Date
Dim rst As DAO.Recordset
Dim frm As Access.Form
Dim ctl As Access.Control
Dim strCustomerName As String
Dim strCompany As String
Dim strMessageSubject As String
Dim strTitle As String
Dim strPrompt As String
Dim strWinFaxDir As String
Dim strBody As String
Dim strattach As String

‘Test for required fields
strFax = Me![txtToFax].Value
If strFax = “” Then
MsgBox “Please enter a fax number”
GoTo ErrorHandlerExit
End If

Debug.Print “Fax: ” & strFax
strMessageSubject = Me![txtMessageSubject].Value
strBody = Me![txtBody].Value
If strBody = “” Then
MsgBox “Please enter the fax text”
Me![txtBody].SetFocus
GoTo ErrorHandlerExit
End If

If IsDate(Me![txtFaxDate].Value) = False Then
MsgBox “Please enter a send date”
Me![txtFaxDate].SetFocus
GoTo ErrorHandlerExit
Else
dteFax = Me![txtFaxDate].Value
End If

‘Send fax
If strFax <> “” Then
strCustomerName = Nz(Me![txtCustomerName])
strCompany = Nz(Me![txtCompanyName])
If dteFax = Date Then
strSendTime = Format(Now(), “hh:mm:ss”)
Else
strSendTime = “08:00:00”
End If
strSendDate = Format(dteFax, “mm/dd/yy”)

strCoverSheet = WinFaxDir & “COVERBASIC1.CVP”
Debug.Print “Cover sheet: ” & strCoverSheet

strattach = “Report.Table1.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) & “,” _
& Chr$(34) & strSendTime & Chr$(34) & “,” _
& Chr$(34) & strSendDate & Chr$(34) & “,” _
& Chr$(34) & strCustomerName & Chr$(34) & “,” _
& Chr$(34) & strCompany & Chr$(34) & “,” _
& Chr$(34) & strMessageSubject & Chr$(34) & “)”
Debug.Print “Recipient string: ” & strRecipient
Debug.Print “Length of recipient string: ” & Len(strRecipient)
DDEPoke ChanNum:=lngChannel, Item:=”sendfax”, Data:=strRecipient

‘Specify cover page
DDEPoke ChanNum:=lngChannel, Item:=”sendfax”, _
Data:=”setcoverpage(” & Chr$(34) _
& strCoverSheet & Chr$(34) & “)”

‘Specify attach
DDEPoke ChanNum:=lngChannel, Item:=”sendfax”, _
Data:=”attach(” & Chr$(34) _
& strattach & Chr$(34) & “)”

‘Send cover sheet text
DDEPoke ChanNum:=lngChannel, Item:=”sendfax”, _
Data:=”fillcoverpage(” & Chr$(34) _
& strBody & 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) _
& “HIGH” & Chr$(34) & “)”

‘Send the fax
DDEPoke ChanNum:=lngChannel, Item:=”sendfax”, Data:=”SendfaxUI”
DDETerminate ChanNum:=lngChannel
lngChannel = DDEInitiate(Application:=”FAXMNG32″, topic:=”CONTROL”)
DDEExecute ChanNum:=lngChannel, Command:=”GoActive”
DDETerminate ChanNum:=lngChannel
End If

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

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

End Sub

OK,

Now I just a command button in a MS Access Form, and all I want to do is use WinFax to fax the specified Report to the Fax Number in the marked text field. This works fine.

If print to the printer driver, can I still make it work in this setup code? Such as use WinFax to send the report?

Here is what I am using now:

Private Sub Command2_Click()
On Error GoTo ErrorHandler

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

‘Test for required fields
strFax = Me![txtToFax].Value
If strFax = “” Then
MsgBox “Please enter a fax number”
GoTo ErrorHandlerExit
End If

Debug.Print “Fax: ” & strFax

strattach = “E:Documents and SettingsAdministratorDesktoptblContacts.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) _
& “HIGH” & Chr$(34) & “)”

‘Send the fax
DDEPoke ChanNum:=lngChannel, Item:=”sendfax”, Data:=”SendfaxUI”
DDETerminate ChanNum:=lngChannel
lngChannel = DDEInitiate(Application:=”FAXMNG32″, topic:=”CONTROL”)
DDEExecute ChanNum:=lngChannel, Command:=”GoActive”
DDETerminate ChanNum:=lngChannel

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

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

End Sub