Como automatizar o Outlook usando o Visual Basic

Traduções deste artigo Traduções deste artigo
ID do artigo: 220595 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

Este artigo demonstra como controlar programaticamente usando a automação do Visual Basic do Microsoft Outlook. O exemplo demonstra criar contatos, criar compromissos e enviar mensagens usando o modelo de objeto do Microsoft Outlook.

Mais Informações

Siga as etapas abaixo para criar e executar o exemplo. Para executar o exemplo, você precisa de uma referência de early bound a uma biblioteca de tipos Microsoft Outlook. A tabela a seguir lista os nomes arquivo das bibliotecas de tipo para as diferentes versões do Microsoft Outlook:
Recolher esta tabelaExpandir esta tabela
Versão do OutlookComo a biblioteca de tipos aparece na lista de referênciasNome do arquivo
O Outlook 97"Microsoft Outlook 8.0 Object Library"msoutl8.olb
msoutl8.olb"Microsoft Outlook 98 Object Library"msoutl85.olb
O Outlook 2000"Microsoft Outlook 9.0 Object Library"msoutl9.olb
O Outlook 2002"Microsoft Outlook 10.0 Object Library"MSOUTL.olb
O Office Outlook 2003"Microsoft Outlook 11.0 Object Library"MSOUTL.olb

Criar o exemplo de automação

  1. Inicie o Visual Basic e crie um EXE padrão novo projeto.
  2. A partir do menu Project , escolha referências e selecione Microsoft Outlook.
  3. Adicione um botão ao formulário.
  4. Clique duas vezes no botão e, em seguida, adicione o código a seguir:
     ' Start Outlook.
     ' If it is already running, you'll use the same instance...
       Dim olApp As Outlook.Application
       Set olApp = CreateObject("Outlook.Application")
        
     ' Logon. Doesn't hurt if you are already running and logged on...
       Dim olNs As Outlook.NameSpace
       Set olNs = olApp.GetNamespace("MAPI")
       olNs.Logon
    
     ' Create and Open a new contact.
       Dim olItem As Outlook.ContactItem
       Set olItem = olApp.CreateItem(olContactItem)
    
     ' Setup Contact information...
       With olItem
          .FullName = "James Smith"
          .Birthday = "9/15/1975"
          .CompanyName = "Microsoft"
          .HomeTelephoneNumber = "704-555-8888"
          .Email1Address = "someone@microsoft.com"
          .JobTitle = "Developer"
          .HomeAddress = "111 Main St." & vbCr & "Charlotte, NC 28226"
       End With
       
     ' Save Contact...
       olItem.Save
        
     ' Create a new appointment.
       Dim olAppt As Outlook.AppointmentItem
       Set olAppt = olApp.CreateItem(olAppointmentItem)
        
     ' Set start time for 2-minutes from now...
       olAppt.Start = Now() + (2# / 24# / 60#)
        
     ' Setup other appointment information...
       With olAppt
          .Duration = 60
          .Subject = "Meeting to discuss plans..."
          .Body = "Meeting with " & olItem.FullName & " to discuss plans."
          .Location = "Home Office"
          .ReminderMinutesBeforeStart = 1
          .ReminderSet = True
       End With
        
     ' Save Appointment...
       olAppt.Save
        
     ' Send a message to your new contact.
       Dim olMail As Outlook.MailItem
       Set olMail = olApp.CreateItem(olMailItem)
     ' Fill out & send message...
       olMail.To = olItem.Email1Address
       olMail.Subject = "About our meeting..."
       olMail.Body = _
            "Dear " & olItem.FirstName & ", " & vbCr & vbCr & vbTab & _
            "I'll see you in 2 minutes for our meeting!" & vbCr & vbCr & _
            "Btw: I've added you to my contact list."
       olMail.Send
        
     ' Clean up...
       MsgBox "All done...", vbMsgBoxSetForeground
       olNS.Logoff
       Set olNs = Nothing
       Set olMail = Nothing
       Set olAppt = Nothing
       Set olItem = Nothing
       Set olApp = Nothing
    						
  5. Execute o projeto e clique no botão para executar o código.
Depois que o código é executado, você deve ter um novo contato chamado "José Silva", um compromisso agendado em dois minutos com um lembrete seja exibido em um minuto e tiver enviado uma mensagem alguembr@microsoft.com. Além disso, porque você adicionou um aniversário de seu contato (15/9), um evento recorrente foi adicionado para seu calendário do Outlook para lembrá-lo do dia.

Novas para o Outlook 2002 são as duas caixas de diálogo: um aviso que um programa está tentando acessar endereços de email armazenados no Outlook e perguntando se deseja permitir que este e uma outra mensagem para o efeito que um programa está tentando enviar email. Esse recurso protegerá você contra inadvertidamente sendo usado por um vírus que envia email do seu sistema.

Para obter mais informações, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
290500Descrição dos recursos segurança de email relacionados ao desenvolvedor no Outlook 2002

Referências

Para obter mais informações sobre recursos de programação do Outlook, clique nos números abaixo para ler os artigos na Base de dados de Conhecimento da Microsoft:
166368Recursos para formulários personalizados e programação no Outlook 97
180826Recursos para formulários personalizados e programação no Outlook 98
271225Recursos para formulários personalizados e programação no Outlook 2000
287531Lista de recursos para formulários personalizados e programação com o Outlook 2002
313802Como recuperar contatos usando o modelo de objeto do Outlook no Visual Basic .NET
313788Como criar um compromisso usando o modelo de objeto do Outlook no Microsoft Visual Basic .NET

Propriedades

ID do artigo: 220595 - Última revisão: quarta-feira, 15 de março de 2006 - Revisão: 9.4
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Office Outlook 2003
  • Microsoft Outlook 2002 Standard Edition
  • Microsoft Outlook 2000
  • Microsoft Outlook 97 Standard Edition
  • Microsoft Outlook 98 Standard Edition
Palavras-chave: 
kbmt kbautomation kbhowto kboutlookobj KB220595 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: 220595

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