Como utilizar a Automatização para enviar uma mensagem de e-Outlook Microsoft com o Access 2000

Este artigo aplica-se a uma base de dados do Microsoft Access (.mdb) e a um projeto do Microsoft Access (.adp).

Resumo

Este artigo mostra-lhe como utilizar a Automatização para criar e enviar uma mensagem do Microsoft Outlook no Microsoft Access 2000.

A Microsoft fornece exemplos de programação apenas a título informativo, sem qualquer garantia expressa ou implícita, incluindo, sem limitações, as garantias implícitas de comercialização e/ou adequação a um fim específico. Este artigo pressupõe que o utilizador está familiarizado com a linguagem de programação demonstrada e as ferramentas utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às suas necessidades específicas.

Nota

O seguinte código poderá não funcionar corretamente se tiver instalado a Atualização de Segurança Outlook E-mail.

Pode utilizar o método SendObject para enviar uma mensagem de correio MAPI através de programação no Microsoft Access. No entanto, o SendObject método não lhe dá acesso a funcionalidades de correio completas, como a capacidade de anexar um ficheiro externo ou definir a importância da mensagem. O exemplo seguinte utiliza a Automatização para criar e enviar uma mensagem de e-mail que pode utilizar para tirar partido de muitas funcionalidades do Microsoft Outlook que não estão disponíveis com o SendObject método.

Existem seis passos principais para enviar uma mensagem de correio Outlook Microsoft através da Automatização, da seguinte forma:

  1. Inicialize a Outlook de avaliação.
  2. Criar uma nova mensagem.
  3. Adicione os destinatários (Para, CC e BCC) e resolva os nomes.
  4. Defina propriedades válidas, como o Assunto, o Corpo e a Importância.
  5. Adicione anexos (se os tiver).
  6. Apresentar/Enviar a mensagem.

Enviar uma mensagem de correio Outlook Microsoft através de programação

  1. Crie um ficheiro de texto de exemplo Customers.txt com o nome Customers.txt pasta C:\Os Meus Documentos.

  2. Inicia o Microsoft Access e abra a base de dados de exemplo Northwind.mdb.

  3. Crie um módulo e escreva a seguinte linha na secção Declarações, se ainda não estiver lá:

    Option Explicit

  4. No menu Ferramentas , selecione Referências.

  5. Na caixa Referências, selecione a Biblioteca de Objetos do Microsoft Outlook 9.0 e, em seguida, selecione OK.

    Nota

    Se a Biblioteca de Objetos do Microsoft Outlook 9.0 não aparecer na caixa Referências Disponíveis, procure o ficheiro no seu disco rígido, Msoutl9.olb. Se não conseguir localizar este ficheiro, tem de executar o programa de Configuração do Microsoft Outlook para o instalar antes de continuar com este exemplo.

  6. Escreva o seguinte procedimento no novo módulo:

    Sub SendMessage(Optional AttachmentPath)
        Dim objOutlook As Outlook.Application
        Dim objOutlookMsg As Outlook.MailItem
        Dim objOutlookRecip As Outlook.Recipient
        Dim objOutlookAttach As Outlook.Attachment
    
        ' Create the Outlook session.
        Set objOutlook = CreateObject("Outlook.Application")' Create the message.
        Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
    
        With objOutlookMsg
        ' Add the To recipient(s) to the message.
        Set objOutlookRecip = .Recipients.Add("Nancy Davolio")
        objOutlookRecip.Type = olTo
    
        ' Add the CC recipient(s) to the message.
        Set objOutlookRecip = .Recipients.Add("Andrew Fuller")
        objOutlookRecip.Type = olCC
    
        ' Set the Subject, Body, and Importance of the message.
        .Subject = "This is an Automation test with Microsoft Outlook"
        .Body = "Last test - I promise." & vbCrLf & vbCrLf
        .Importance = olImportanceHigh 'High importance
    
        ' Add attachments to the message.
        If Not IsMissing(AttachmentPath) Then
        Set objOutlookAttach = .Attachments.Add(AttachmentPath)
        End If
    
        ' Resolve each Recipient's name.
        For Each objOutlookRecip In .Recipients
        objOutlookRecip.Resolve
        If Not objOutlookRecip.Resolve Then
        objOutlookMsg.Display
        End If
        Next
        .Send
    
        End With
        Set objOutlookMsg = Nothing
        Set objOutlook = Nothing
    End Sub
    
  7. Para testar este procedimento, escreva a seguinte linha na janela Imediato e, em seguida, prima ENTER:

    SendMessage "C:\My Documents\Customers.txt"

    Para enviar a mensagem sem especificar um anexo, omita o argumento ao chamar o procedimento, da seguinte forma:

    SendMessage