×
Loading ...

Como utilizar o VBA para gerenciar e-mails no Access

Atualizado em 20 julho, 2017

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.

Instruções

Envie mensagens de e-mail a partir do Access (John Foxx/Stockbyte/Getty Images)
  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.

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

  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. 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. 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. 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. Para executar o procedimento, aperte "F5".

Loading...

Referências

Loading ...
Loading ...