Sending report to Outlook

  • Thread starter Thread starter Lisa
  • Start date Start date
L

Lisa

Hi

I have created a report which is an invoice. Once the
invoice has been opened and reviewed I would like to be
able to automatically email it or fax it to the customer -
where the email address or fax number are retrieved from
the customer table

How do you do this?

Any help is appreciated
 
Here is a sub i use to send mail to a internal list of
reciepients which is select manually. It doesn't do all
that you want but it might get you started.

Private Sub cmdSendeMail_Click()
On Error GoTo Err_cmdSendeMail_Click
Dim stDocName As String
stDocName = "rptVMDForm"
DoCmd.SendObject acReport, stDocName, "RichTextFormat
(*.rtf)"
Exit_cmdSendeMail_Click:
Exit Sub
Err_cmdSendeMail_Click:
MsgBox Err.Description
Resume Exit_cmdSendeMail_Click
End Sub
 
Back
Top