Como utilizar a automatização para enviar uma mensagem do Microsoft Outlook utilizando o Access 2000

Artigo: 209948 - Ver produtos para os quais este artigo se aplica.
Tradução automáticaVer isenção de responsabilidades para tradução automática
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Este artigo mostra 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, para fins sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, as garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas que são 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 necessidades específicas do utilizador. NOTA: O seguinte código poderá não funcionar correctamente se tiver instalado a actualização de segurança de correio electrónico do Outlook. Para obter informações adicionais sobre esta actualização, consulte um dos seguintes artigos na Microsoft Knowledge Base, dependendo da versão do Outlook tiver:
262631
(http://support.microsoft.com/kb/262631/EN-US/ )
OL2000: Informações sobre a actualização de segurança de correio electrónico do Outlook
262617
(http://support.microsoft.com/kb/262617/EN-US/ )
OL98: Informações sobre a actualização de segurança de correio electrónico do Outlook
Pode utilizar o método EnviarObjecto para enviar uma mensagem de correio MAPI programaticamente no Microsoft Access. No entanto, o método SendObject não lhe dá acesso para concluir a funcionalidade de correio, como a capacidade de anexar um ficheiro externo ou definir a importância da mensagem. O exemplo que se segue utiliza automatização para criar e enviar uma mensagem de correio que pode utilizar para tirar partido de muitas funcionalidades no Microsoft Outlook que não estão disponíveis com o método SendObject .

Existem seis passos principais para enviar uma mensagem de correio do Microsoft Outlook, utilizando a automatização, da seguinte forma:

  1. Iniciar a sessão do Outlook.
  2. Crie uma nova mensagem.
  3. Adicione os destinatários (para, CC e BCC) e resolver os respectivos nomes.
  4. Definir propriedades válidas, como, por exemplo, assunto, corpo e importância.
  5. Adicione anexos (se existir).
  6. Apresentar/enviar a mensagem.

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

  1. Crie um ficheiro de texto exemplo chamado Customers.txt in a c:\Os meus pasta documentos.
  2. Iniciar o Microsoft Access e, abra o exemplo de base de dados Adamastor.mdb.
  3. Crie um módulo e escreva a linha seguinte na secção Declarations, caso ainda não estiver escrito: 
    Option Explicit
  4. No menu Ferramentas , clique em References .
  5. Na caixa referências , clique para seleccionar a Biblioteca de objectos do Microsoft Outlook 9.0 e, em seguida, clique em OK .

    Nota : Se o Microsoft Outlook 9.0 Object Library não aparecer na caixa Referências disponíveis , procure o disco rígido para o ficheiro, Msoutl9.olb. Se não conseguir localizar este ficheiro, tem de executar o programa o programa de configuração do Microsoft Outlook para instalar este antes de prosseguir 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 Immediate e, em seguida, prima ENTER: 
    SendMessage "C:\My Documents\Customers.txt"
    para enviar a mensagem sem especificar um anexo, omitir o argumento ao chamar o procedimento, da seguinte forma: 
    SendMessage



Voltar ao topo | Submeter comentários

Referências

Para mais informações sobre como utilizar automatização no Microsoft Access, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda, escreva "Automatização" no Assistente do Office ou no Assistente de respostas e, em seguida, clique em Procurar para visualizar o tópico.
209963
(http://support.microsoft.com/kb/209963/EN-US/ )
ACC2000: Como utilizar a automatização para adicionar compromissos para o Microsoft Outlook
209955
(http://support.microsoft.com/kb/209955/EN-US/ )
ACC2000: Como utilizar a automatização para criar um novo item de contacto no Microsoft Outlook










Voltar ao topo | Submeter comentários

Propriedades

Artigo: 209948 - Última revisão: quinta-feira, 29 de Março de 2007 - Revisão: 3.3
A informação contida neste artigo aplica-se a:
  • Microsoft Access 2000 Standard Edition
Palavras-chave: 
kbmt kbcode kbautomation kbhowtomaster kbinterop kbprogramming KB209948 KbMtpt
Tradução automática
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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 209948
(http://support.microsoft.com/kb/209948/en-us/ )
Voltar ao topo | Submeter comentários

Submeter comentários

 
Voltar ao topoVoltar ao topo