Utilizar a automatização para enviar uma mensagem do Microsoft Outlook

Traduções de Artigos Traduções de Artigos
Artigo: 161088 - Ver produtos para os quais este artigo se aplica.
Avançado: Requer conhecimentos avançados sobre codificação, interoperabilidade e multi-utilizador.

Expandir tudo | Reduzir tudo

Sumário

Este artigo mostra como utilizar a automatização para criar e enviar uma mensagem do Microsoft Outlook no Microsoft Access 97.

Este artigo pressupõe que está familiarizado com o Visual Basic for Applications e criação de aplicações do Microsoft Access utilizando as ferramentas de programação fornecidas com o Microsoft Access. Para mais informações sobre o Visual Basic for Applications, consulte o manual "Building Applications with Microsoft Access 97".

Para mais informações sobre como utilizar automatização para enviar uma mensagem do Microsoft Exchange, consulte o seguinte artigo na base de dados de conhecimento da Microsoft:
153311Utilizar a automatização para enviar uma mensagem do Microsoft Exchange

Mais Informação

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:
262631OL2000: Informações sobre a actualização de segurança de correio electrónico do Outlook
262617OL98: Informações sobre a actualização de segurança de correio electrónico do Outlook
O método SendObject fornece uma forma de enviar uma mensagem de correio MAPI programaticamente no Microsoft Access. No entanto, EnviarObjecto método não lhe aceder 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 quando utiliza automatização para enviar uma mensagem de correio do Microsoft Outlook:

  • Iniciar a sessão do Outlook
  • Criar uma nova mensagem
  • Adicionar os destinatários (para, CC e BCC) e resolver os respectivos nomes
  • Definir propriedades válidas, como, por exemplo, assunto, corpo e importância
  • Adicionar anexos (se existir)
  • Apresentar/enviar a mensagem
Para enviar programaticamente uma mensagem de correio do Microsoft Outlook, siga estes passos:

  1. Crie um ficheiro de texto exemplo chamado Customers.txt em c:\Os meus documentos pasta.
  2. Inicie o Microsoft Access e abra a base de dados de exemplo Adamastor.mdb.
  3. Crie um módulo e escreva a seguinte linha de declarações secção se não estiver já existir:
    opção explícita
  4. No menu Ferramentas, clique em References.
  5. Na caixa referências, faça clique sobre o modelo de objectos do Microsoft Outlook 8.0 e, em seguida, clique em OK.

    NOTA: Se o modelo de objectos do Microsoft Outlook 8.0 não aparecer na caixa referências disponíveis, procure o disco rígido para o ficheiro Msoutl8.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(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 este procedimento, escreva a seguinte linha na janela de depuração e, em seguida, prima ENTER.
    EnviarMensagem VERDADEIRO, "C:\Os meus Documents\Customers.txt"
    Repare que uma nova mensagem é apresentada no Microsoft Outlook com um anexo.

    Para enviar a mensagem sem apresentar no Microsoft Outlook, chamar o procedimento com um valor falso para o primeiro argumento:
    EnviarMensagem FALSO, "C:\Os meus Documents\Customers.txt"
    Para enviar a mensagem sem especificar um anexo, omita o segundo argumento ao chamar o procedimento.
    Verdadeiro EnviarMensagem

Referências

Para obter mais informações sobre utilizar a automatização do Microsoft Access, procurar o índice remissivo da ajuda a automatização ou pedir o Assistente do Office Microsoft Access 97.

Para obter mais informações sobre utilizar a automatização para controlar o Microsoft Outlook, consulte os seguintes artigos na base de dados de conhecimento da Microsoft:
160502ACC: Utilizar a automatização para adicionar compromissos para o Microsoft Outlook

161012VBA: Como criar um novo item de contacto no Outlook com a automatização

Propriedades

Artigo: 161088 - Última revisão: 19 de janeiro de 2007 - Revisão: 3.3
A informação contida neste artigo aplica-se a:
  • Microsoft Access 97 Standard Edition
Palavras-chave: 
kbmt kbhowto kbinterop KB161088 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: 161088
Exclusão de Responsabilidade para Conteúdo sem Suporte na KB
Este artigo foi escrito sobre produtos para os quais a Microsoft já não fornece suporte. Por conseguinte, este artigo é oferecido "tal como está" e deixará de ser actualizado.

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com