ID do artigo: 162371 - Última revisão: sexta-feira, 19 de janeiro de 2007 - Revisão: 3.3

ACC: Usando automação para adicionar um tarefa/lembrete para o Microsoft Outlook

Vista lado a ladoClique aqui para exibir o artigo traduzido e o artigo original em inglês, lado a lado.
Tradução automáticaExibir Aviso de Isenção de Tradução Automática
Retired KB ArticleAviso de Isenção de Responsabilidade sobre Conteúdo do KB Aposentado
Exibir os produtos aos quais esse artigo se aplica.
Dica do SistemaEste artigo aplica-se a um sistema operativo diferente do que está a utilizar. Foi desactivado o conteúdo do artigo, que pode não ser relevante para si.
Avançadas: Requer especialista de codificação, interoperabilidade e habilidades de multiusuário.

Expandir tudo | Recolher tudo

Sumário

Este artigo mostra como usar automação para adicionar uma tarefa ou um lembrete para o Microsoft Outlook.

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 sua versão do manual "Criando aplicativos com o Microsoft Access".

Pode haver vezes quando você gostaria de adicionar programaticamente uma tarefa ou um lembrete para Outlook do Microsoft Access. Este artigo fornece código de exemplo que permite que você criar uma tarefa e reproduzir um arquivo WAV como um lembrete.

Observação: Você deve apontar a propriedade .ReminderSoundFile para um arquivo de som válido em seu disco rígido.
Voltar para o início

Mais Informações

Para adicionar uma tarefa ou um lembrete para o Microsoft Outlook, execute as seguintes etapas:
  1. Inicie o Microsoft Access e abra o banco de dados de exemplo Northwind.mdb.
  2. Crie um módulo e digite a seguinte linha na seção Declarações caso ainda não estiver lá: 
    Option Explicit
  3. No menu Ferramentas, clique em referências.
  4. Clique em Microsoft Outlook 8.0 Object Library na caixa de referências disponíveis.

    Observação: Se esta biblioteca de objeto não estiver disponível na lista de referências, clique em Procurar para localizar o arquivo Msoutl8.olb, que é instalado por padrão na pasta c:\Arquivos de programas\Microsoft Office\Office.
  5. Digite o seguinte procedimento: 
          Function AddOutLookTask()
         Dim appOutLook As Outlook.Application
         Dim taskOutLook As Outlook.TaskItem
         Set appOutLook = CreateObject("Outlook.Application")
         Set taskOutLook = appOutLook.CreateItem(olTaskItem)
      With taskOutLook
          .Subject = "This is the subject of my task"
          .Body = "This is the body of my task."
          .ReminderSet = True
          .ReminderTime = DateAdd("n", 2, Now)  ' Set to remind us 2
                                                ' minutes from now.
          .DueDate = DateAdd("n", 5, Now)       ' Set the due date to
                                                ' 5 minutes from now.
          .ReminderPlaySound = True
           'add the path to a .wav file on your computer.
          .ReminderSoundFile = "C:\Win95\media\ding.wav"
          .Save
      End With
     End Function
  6. Para testar essa função, digite a seguinte linha na janela Verificação imediata e, em seguida, pressione ENTER: 
    ?AddOutLookTask()
    Observe que uma nova tarefa é adicionada ao Microsoft Outlook.
Voltar para o início

Referências

Para obter informações adicionais sobre como usar automação para adicionar compromissos para o Microsoft Outlook, consulte o seguinte artigo na Base de dados de Conhecimento da Microsoft:
160502  (http://support.microsoft.com/kb/160502/EN-US/ ) ACC: Usando automação para adicionar compromissos para o Microsoft Outlook
Para informações adicionais sobre teoria de automação e vários exemplos como automatizar todos os produtos do Office 97, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
167223  (http://support.microsoft.com/kb/167223/EN-US/ ) OFF97: Arquivo do Microsoft Office 97 automação ajuda disponível
Para obter informações adicionais sobre como usar automação com o Microsoft Access, pesquisar o índice da Ajuda "Automação de" ou pergunte ao Assistente do Office do Microsoft Access 97.
Voltar para o início
A informação contida neste artigo aplica-se a:
  • Microsoft Access 95 Standard Edition
  • Microsoft Access 97 Standard Edition
Voltar para o início
Palavras-chave: 
kbmt kbfaq kbinfo kbprogramming KB162371 KbMtpt
Voltar para o início
Tradução automáticaTraduçã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: 162371  (http://support.microsoft.com/kb/162371/en-us/ )
Voltar para o início
Retired KB ArticleAviso 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.
Voltar para o início