I'm currently using this function to send the text of my report via email. However, it is being attached as an attachment to the email. Is there a way to just past the data in the email itself, instead as an attachment?
Thank you Joe Private Sub cmdExportToEmail_Click() On Error GoTo Err_cmdExportToEmail_Click Dim stDocName As String Dim txtorderNo As String txtorderNo = Me.OrderID stDocName = "rptExport" ' DoCmd.OpenReport stDocName, acPreview DoCmd.SendObject acSendReport, stDocName, acFormatTXT, "[EMAIL PROTECTED]", , , "Order ID# " & txtorderNo Exit_cmdExportToEmail_Click: Exit Sub Err_cmdExportToEmail_Click: MsgBox Err.Description Resume Exit_cmdExportToEmail_Click End Sub
