Cómo utilizar VBA para Correo en Access

La creación de un programa de gestión de correo electrónico dentro de su base de datos Microsoft Access puede hacer su solicitud de acceso más valioso y más dinámico. En VBA puede utilizar la biblioteca de objetos de Microsoft Outlook para crear carpetas de correo electrónico y correo electrónico en Microsoft Outlook. La biblioteca le permite crear y enviar un correo electrónico sin tener que abrir Outlook mediante programación. Utilice esta biblioteca para enviar mensajes de correo electrónico automáticamente a los usuarios información de base de datos que es importante para ellos.

Instrucciones

1 Haga clic en la pestaña "Herramientas de base de datos", haga clic en "Visual Basic", y haga clic en el menú "Insertar". Haga clic en "Módulo" para insertar un nuevo módulo de código VBA.

2 Haga clic en el menú "Herramientas" y haga clic en "Referencias". Marque la casilla junto a "Microsoft Outlook <número de versión> biblioteca de objetos" y haga clic en "OK".

3 Crear un nuevo procedimiento para sub y definir los objetos de Outlook mediante la adición de la siguiente código VBA:

Private Sub createEmail ()

Establecer outlookApp = CreateObject ( "Outlook.Application")

myItem Dim As Object

Establecer myItem = outlookApp.CreateItem (olMailItem)

4 Crear un nuevo elemento de correo electrónico añadiendo el siguiente código:

myItem.Subject = "email subject"

myItem.Body = "mensaje de correo electrónico"

myItem.To = "[email protected]"

myItem.Send

5 Editar el paso anterior e introducir un email válido al lado de "myItem.To" para enviar el correo electrónico. Tipo "End Sub" para finalizar el procedimiento y pulse la tecla "F5" para ejecutar el procedimiento y enviar el correo electrónico a través de Outlook.

6 Leer el correo electrónico en su bandeja de entrada y mostrarlo en la ventana Inmediato creando el siguiente procedimiento sub:

Private Sub checkEmail ()

Establecer olApp = CreateObject ( "Outlook.Application")

Establecer MAPIS = OLApp.GetNamespace ( "MAPI")

Establecer outlookFolder = MAPIs.GetDefaultFolder (olFolderInbox)

Para cada MyMail En outlookFolder.Items

Debug.Print myMail.Subject

Debug.Print myMail.Body

Siguiente MyMail

End Sub

7 Pulse la tecla "F5" para ejecutar el procedimiento.