Como utilizar o VBA para gerenciar e-mails no Access

Escrito por jaime avelar | Traduzido por yaakov ben levy
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como utilizar o VBA para gerenciar e-mails no Access
Envie mensagens de e-mail a partir do Access (John Foxx/Stockbyte/Getty Images)

A criação de um programa gerenciador de e-mails dentro do banco de dados "Microsoft Access" poderá fazer com que a aplicação do Access seja mais valorizada e dinâmica. No VBA, você poderá usar o Microsoft Outlook Object Library para criar um e-mail e acessar pastas de e-mails do Microsoft Outlook. A biblioteca permite a criação e o envio de e-mails, programaticamente, sem a necessidade de abrir o Outlook. Use essa biblioteca para enviar e-mails automaticamente para usuários, com informações do banco de dados que sejam importantes para eles.

Nível de dificuldade:
Moderado

Outras pessoas estão lendo

Instruções

  1. 1

    Clique na aba "Database Tools" (ferramentas do banco de dados), em "Visual Basic" e no menu "Insert" (inserir). Clique em "Module" (módulo), para inserir um novo módulo de código VBA.

  2. 2

    Clique no menu "Tools" (ferramentas) e vá em "References" (referências). Marque a caixa próxima a "Microsoft Outlook <versão> Object Library" (Biblioteca de Objetos do Microsoft Outlook) e clique em "Ok".

  3. 3

    Crie um novo sub-procedimento para definir os objetos do Outlook, acrescentando o seguinte código VBA:

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

  4. 4

    Crie um novo item de e-mail, acrescentando o seguinte código:

    myItem.Subject = "assunto do email" myItem.Body = "mensagem do email" myItem.To = "meunome@meuemail.com" myItem.Send

  5. 5

    Edite o passo anterior e coloque um endereço de e-mail válido próximo de "myItem.To", para enviar o e-mail. Digite "End Sub", para finalizar o procedimento, e aperte "F5", para executar o procedimento e enviar o e-mail usando o Outlook.

  6. 6

    Leia o e-mail dentro da caixa de entrada e exiba-o na janela seguinte, ao criar o seguinte sub-procedimento:

    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

    Para executar o procedimento, aperte "F5".

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível