Cómo utilizar VBA para correo electrónico de acceso

Creación de un programa de gestión de correo electrónico dentro de su base de datos de 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 correo electrónico y carpetas de correo electrónico de acceso en Microsoft Outlook. La biblioteca le permite crear mediante programación y enviar un correo electrónico sin tener que abrir Outlook. Utilice esta biblioteca para enviar correos electrónicos de forma automática a los usuarios con información de la base de que es importante para ellos . Instrucciones
1

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ódulos" 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 " Perspectivas 3

Crear un nuevo procedimiento sub desde y definir los objetos de Outlook agregando la siguiente código VBA :

Private Sub createEmail ()

Set outlookApp = CreateObject ( " Outlook.Application " )

miElemento Dim As Object

Set miElemento = outlookApp.CreateItem ( olMailItem )
4

Crear un nuevo elemento de correo electrónico con el código siguiente :

myItem.Subject = "email tema "

myItem.Body = "Mensaje de correo"

myItem.To = " [email protected] "

myItem.Send
5

Editar el paso anterior e introduzca un email válido abordar junto a " myItem.To " para enviar el correo electrónico. Tipo "End Sub " para poner fin al procedimiento y presione "F5 " para ejecutar el procedimiento y enviar el correo electrónico con Outlook .
6

leer el correo electrónico en la carpeta Bandeja de entrada y la muestra en la ventana Inmediato creando el siguiente procedimiento sub :

Private Sub checkEmail ()

Set olApp = CreateObject ( " Outlook.Application " )

Set MAPIS = OLApp.GetNamespace ( " MAPI ")

Set outlookFolder = MAPIs.GetDefaultFolder ( olFolderInbox )

For Each MyMail En outlookFolder.Items

Debug.Print myMail.Subject

Debug.Print MyMail . Cuerpo

Siguiente MyMail

End Sub
7

Press "F5 " para ejecutar el procedimiento .