Hi,
I used Access to send emails but this is the first time I am trying to use it to fax.
I tried faxing a report using a macro, but I am getting email back saying that it did not go through. Can anyone tell me if anything is wrong with the code I am using?
Function Macro1()
On Error GoTo Macro1_Err
If (MsgBox("Do you want to fax invoices" & Chr(13) & "to (516) 746-8473 using MSFax?", 4) = 6) Then
DoCmd.SendObject acReport, "rptTest", "RichTextFormat(*.rtf)", "[Fax
516) 746 8473]", "", "", "", "", False, ""
End If
Macro1_Exit:
Exit Function
Macro1_Err:
MsgBox Error$
Resume Macro1_Exit
End Function
Thanks
Dean
I used Access to send emails but this is the first time I am trying to use it to fax.
I tried faxing a report using a macro, but I am getting email back saying that it did not go through. Can anyone tell me if anything is wrong with the code I am using?
Function Macro1()
On Error GoTo Macro1_Err
If (MsgBox("Do you want to fax invoices" & Chr(13) & "to (516) 746-8473 using MSFax?", 4) = 6) Then
DoCmd.SendObject acReport, "rptTest", "RichTextFormat(*.rtf)", "[Fax
516) 746 8473]", "", "", "", "", False, ""End If
Macro1_Exit:
Exit Function
Macro1_Err:
MsgBox Error$
Resume Macro1_Exit
End Function
Thanks
Dean