'액세스보고서를 메일을 이용하여 첨부파일로 보낸다

 'Send Microsoft Access Report as Outlook or Other Email Attachment

Public Sub MailIt()

On Error GoTo Error_MailIt

Dim Rst As Recordset

‘ Open the table that the report reads to make sure there is a record In it.

Set Rst = CurrentDb.OpenRecordset( "EmailRpt", & _ DB_OPEN_DYNASET)

If Not Rst.BOF Then

     DoCmd.SendObject acReport, "RptEmailAdjustment", & _
     "rich text format (*.rtf)", strEmailAddressGlobal, , , & _
     StrSubjectGlobal , StrMessageGlobal

End If

     GoTo OK_Exit:

Error_MailIt:

     MsgBox Error$ & " MailIt " GoTo Exit_MailIt

     Resume OK_Exit

OK_Exit:

     Rst.Close

     Set Rst = Nothing

End Sub

Copyright By AccessVision