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

Traduções deste artigo Traduções deste artigo
ID do artigo: 161088 - Exibir os produtos aos quais esse artigo se aplica.
Avançadas: Requer especialista de codificação, interoperabilidade e habilidades de multiusuário.

Expandir tudo | Recolher tudo

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

Propriedades

ID do artigo: 161088 - Última revisão: sexta-feira, 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 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
Aviso de Isenção de Responsabilidade sobre Conteúdo do KB Aposentado
Este artigo trata de produtos para os quais a Microsoft não mais oferece suporte. Por esta razão, este artigo é oferecido "como está" e não será mais atualizado.

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