Você está offline; aguardando reconexão

Usando a automação para enviar uma mensagem do Microsoft Outlook

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 161088
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Avançadas: Requer especialista de codificação, interoperabilidade e habilidades de multiusuário.

Sumário
Este artigo mostra como usar a automação para criar e enviar uma mensagem do Microsoft Outlook no Microsoft Access 97.

Este artigo presume que você esteja familiarizado com Visual Basic for Applications e com a criação de aplicativos do Microsoft Access usando as ferramentas de programação fornecidas com o Microsoft Access. Para obter mais informações sobre o Visual Basic for Applications, consulte o manual "Criando aplicativos com o Microsoft Access 97".

Para obter mais informações sobre como usar automação para enviar uma mensagem do Microsoft Exchange, consulte o seguinte artigo na Base de dados de Conhecimento da Microsoft:
153311Usando a automação para enviar uma mensagem do Microsoft Exchange
Mais Informações
Observação: O código a seguir pode não funcionar corretamente se você tiver instalado a atualização de segurança de email do Outlook. Para obter informações adicionais sobre essa atualização, consulte um dos seguintes artigos na Base de dados de Conhecimento, dependendo de qual versão do Outlook você tem:
262631OL2000: Informações sobre a atualização de segurança de email do Outlook
262617OL98: Informações sobre a atualização de segurança de email do Outlook
O método SendObject fornece uma maneira para enviar uma mensagem de email MAPI programaticamente no Microsoft Access. No entanto, EnviarObjeto método não lhe dá acesso a concluir funcionalidade de email, como a capacidade de anexar um arquivo externo ou definir a prioridade da mensagem. O exemplo a segue usa a automação para criar e enviar uma mensagem de email que você pode usar para tirar proveito dos muitos recursos no Microsoft Outlook que não estão disponíveis com o método SendObject.

Ao usar Automation para enviar uma mensagem de email do Microsoft Outlook, há seis etapas principais:

  • Inicializar a sessão do Outlook
  • Criar uma nova mensagem
  • Adicionar os destinatários (para, CC e Cco) e resolver seus nomes
  • Definir propriedades válidas, como o assunto, corpo e prioridade
  • Adicionar anexos (se houver)
  • Exibir/enviar a mensagem
Para enviar uma mensagem de email Microsoft Outlook através de programação, execute essas etapas:

  1. Crie um arquivo de texto exemplo chamado Customers.txt em c:\Meus documentos pasta.
  2. Inicie o Microsoft Access e abra o banco de dados de exemplo Northwind.mdb.
  3. Crie um módulo e o tipo a seguinte linha na declaração seção se não estiver já existe:
    opção EXPLICIT
  4. No menu Ferramentas, clique em referências.
  5. Na caixa referências, clique em modelo de objeto do Microsoft Outlook 8.0 e, em seguida, clique em OK.

    Observação: Se o modelo de objeto do Microsoft Outlook 8.0 não for exibido na caixa de referências disponíveis, procure o arquivo no disco rígido Msoutl8.olb. Se você não pode localizar esse arquivo, você deve executar o programa de instalação do Microsoft Outlook para instalá-lo antes de prosseguir com este exemplo.
  6. Digite o seguinte procedimento no novo módulo:
          Sub SendMessage(DisplayMsg As Boolean, 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("Michael Suyama")              objOutlookRecip.Type = olCC             ' Add the BCC recipient(s) to the message.              Set objOutlookRecip = .Recipients.Add("Andrew Fuller")              objOutlookRecip.Type = olBCC             ' Set the Subject, Body, and Importance of the message.             .Subject = "This is an Automation test with Microsoft Outlook"             .Body = "This is the body of the message." &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             Next             ' Should we display the message before sending?             If DisplayMsg Then                 .Display             Else                 .Save                 .Send             End If          End With          Set objOutlook = Nothing      End Sub						
  7. Para testar esse procedimento, digite a seguinte linha na janela Verificação imediata e, em seguida, pressione ENTER.
    True SendMessage, "C:\Meus Documents\Customers.txt"
    Observe que uma nova mensagem é exibida no Microsoft Outlook com um anexo.

    Para enviar a mensagem sem exibi-lo no Microsoft Outlook, chame o procedimento com um valor falso para o primeiro argumento:
    SendMessage False, "C:\Meus Documents\Customers.txt"
    Para enviar a mensagem sem especificar um anexo, omita o segundo argumento ao chamar o procedimento.
    SendMessage True
Referências
Para obter mais informações sobre como usar automação no Microsoft Access, pesquisar o índice da Ajuda automação ou pergunte ao Assistente do Office do Microsoft Access 97.

Para obter mais informações sobre como usar automação para controlar o Microsoft Outlook, consulte os seguintes artigos na Base de dados de Conhecimento da Microsoft:
160502ACC: Usando automação para adicionar compromissos para o Microsoft Outlook

161012VBA: Como criar um novo item de contato no Outlook com a automação
OutSol OutSol97 OutSol98

Propriedades

ID do Artigo: 161088 - Última Revisão: 12/04/2015 15:55:46 - Revisão: 3.3

Microsoft Access 97 Standard Edition

  • kbnosurvey kbarchive kbmt kbhowto kbinterop KB161088 KbMtpt
Comentários