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 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 ) Crear un nuevo elemento de correo electrónico con el código siguiente : myItem.Subject = "email tema " myItem.Body = "Mensaje de correo" myItem.To = " myname@myemail.com " myItem.Send 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 . 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 Press "F5 " para ejecutar el procedimiento .
4
5
6
7