Cómo utilizar VBA para el correo electrónico en Access

Escrito por jaime avelar | Traducido por gabriela nungaray
  • Comparte
  • Twittea
  • Comparte
  • Pin
  • E-mail
Cómo utilizar VBA para el correo electrónico en Access
Envía mensajes de correo electrónico desde Acess. (John Foxx/Stockbyte/Getty Images)

La creación de un programa de gestión de correo electrónico dentro de tu base de datos de Microsoft Access puede hacerlo más valioso y más dinámico. En VBA puedes utilizar la biblioteca de objetos de Microsoft Outlook para crear carpetas de correo electrónico y acceso al correo electrónico en Microsoft Outlook. La biblioteca te permite crear mediante programación y envío de un correo electrónico sin tener que abrir Outlook. Utiliza esta biblioteca para enviar mensajes de correo electrónico automáticamente a los usuarios con la información de la base de datos que es importante para ellos.

Nivel de dificultad:
Moderado

Otras personas están leyendo

Instrucciones

  1. 1

    Haz clic en la "Herramientas Base de datos", luego en "Visual Basic" y haz clic en el menú "Insertar". Haz clic en "módulos" para insertar un nuevo módulo de código VBA.

  2. 2

    Haz clic en el menú "Herramientas" y haz clic en "Referencias". Marca la casilla junto a "Microsoft Outlook Biblioteca de objetos (número de versión)" y haz clic en "Aceptar".

  3. 3

    Crear un subprocedimiento nuevo y definir los objetos de Outlook, añadiendo el siguiente código VBA:

    Private Sub createEmail() Set outlookApp = CreateObject("Outlook.Application") Dim myItem As Object Set myItem = outlookApp.CreateItem(olMailItem)

  4. 4

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

    myItem.Subject = "asunto del correo electrónico" myItem.Body = "correo electrónico" myItem.To = "minombre@miemail.com" myItem.Send

  5. 5

    Edita el paso anterior e introduce una dirección válida de correo electrónico junto a "myItem.To" para enviar el correo electrónico. Escribe "Final Sub" para poner fin al procedimiento y pulsa la tecla "F5" para ejecutar el procedimiento y enviar el correo electrónico a través de Outlook.

  6. 6

    Lee el correo electrónico en tu bandeja de entrada y lo mostrará 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 In outlookFolder.Items Debug.Print myMail.Subject Debug.Print myMail.Body Next myMail

    End Sub

  7. 7

    Pulsa la tecla "F5" para ejecutar el procedimiento.

No dejes de ver

Filtrar por:
  • Mostrar todos
  • Artículos
  • Galerías de fotos
  • Videos
Ordenar:
  • Más relevante
  • Más popular
  • Más reciente

No se encuentran artículos disponibles

No se encuentran slideshows disponibles

No se encuentran videos disponibles