Microsoft Access fornece funções de relatório para pequenas e grandes empresas. O software de banco de dados Access usa uma versão leve do Visual Basic chamado Visual Basic for Applications (VBA). Esta linguagem proporciona-lhe opções de script, incluindo as funções necessárias para enviar um relatório do Access diretamente para a caixa de entrada do usuário através do Microsoft Outlook. Isso é benéfico quando você tem clientes que exigem um relatório a cada dia, e VBA ajuda a automatizar o processo.
Selecione o relatório que deseja enviar para o destinatário. Você seleciona um relatório usando o seguinte código:
Definir theReport = db.OpenRecordset ( "Select theReport do relatório, onde id = 2")
O código acima recupera um relatório com um ID de 2.
Criar um objeto de e-mail. O objeto de e-mail está definido como um aplicativo do Microsoft Outlook. O código a seguir cria um objeto de e-mail usado para enviar o relatório por meio do Outlook:
app Set = New Outlook.Application
Set email = app.CreateItem ()Defina as propriedades de e-mail, incluindo o assunto, corpo e apego relatório do Access. O código a seguir define as propriedades de e-mail visível para o destinatário de e-mail:
email.subject = "Relatório da manhã para 1/1/2010"
email.Recipients.Add "[email protected]"
email.Body = "Por favor, consulte o seu relatório anexo"
email.Attachments.Add theReport, olByValue, 1, "Relatório da manhã"Enviar e-mail e fechar os objetos. Fechando objetos libera recursos do computador, incluindo o espaço de memória. A seguir finaliza o seu código de relatório do Access:
email.Send
Set-mail = Nothing
app Set = Nothing