Cómo crear y enviar un informe automático de Microsoft Access en Microsoft Outlook

Microsoft Access proporciona funciones de información para pequeñas y grandes empresas. El software de base de datos Access utiliza una versión ligera de Visual Basic llamado Visual Basic para Aplicaciones (VBA). Este lenguaje le proporciona opciones de secuencias de comandos, incluyendo las funciones necesarias para enviar un informe de Access directamente al buzón de un usuario a través de Microsoft Outlook. Esto es beneficioso cuando se tiene clientes que requieren un informe cada día, y VBA le ayuda a automatizar el proceso.

Instrucciones

1 Seleccione el informe que desea enviar al destinatario. Se selecciona un informe utilizando el siguiente código:

Establecer theReport = db.OpenRecordset ( "Seleccionar theReport del informe donde id = 2")

El código anterior recupera un informe con un diámetro interior de 2.

2 Crear un objeto de correo electrónico. El objeto de correo electrónico está configurado para una aplicación de Microsoft Outlook. El siguiente código crea un objeto de correo utilizado para enviar el informe a través de Outlook:

Conjunto app = Nueva Outlook.Application
Conjunto de correo electrónico = app.CreateItem ()

3 Establecer las propiedades de correo electrónico, incluyendo el asunto, el cuerpo y el apego informe de Access. El siguiente código establece sus propiedades de correo electrónico visibles para el destinatario del correo electrónico:

email.subject = "Informe de la mañana por 1/1/2010"
email.Recipients.Add "[email protected]"
email.Body = "Por favor, consulte a su informe adjunto"
email.Attachments.Add theReport, OlByValue, 1, "Informe de la mañana"

4 Enviar el correo electrónico y cerrar los objetos. Cierre de objetos libera los recursos del ordenador, incluyendo el espacio de memoria. El siguiente informe finaliza su código de acceso:

email.Send
Conjunto de correo electrónico = Nada
Conjunto app = Nada