Como automatizar o Outlook usando o Visual Basic

ID do artigo: 220595 - Exibir os produtos aos quais esse artigo se aplica.
Tradução automáticaExibir Aviso de Isenção de Tradução Automática
Expandir tudo | Recolher tudo

Nesta página

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.
Voltar para o início | Submeter comentários

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:
290500
(http://support.microsoft.com/kb/290500/ )
Descrição dos recursos segurança de email relacionados ao desenvolvedor no Outlook 2002
Voltar para o início | Submeter comentários

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:
166368
(http://support.microsoft.com/kb/166368/ )
Recursos para formulários personalizados e programação no Outlook 97
180826
(http://support.microsoft.com/kb/180826/ )
Recursos para formulários personalizados e programação no Outlook 98
271225
(http://support.microsoft.com/kb/271225/ )
Recursos para formulários personalizados e programação no Outlook 2000
287531
(http://support.microsoft.com/kb/287531/ )
Lista de recursos para formulários personalizados e programação com o Outlook 2002
313802
(http://support.microsoft.com/kb/313802/ )
Como recuperar contatos usando o modelo de objeto do Outlook no Visual Basic .NET
313788
(http://support.microsoft.com/kb/313788/ )
Como criar um compromisso usando o modelo de objeto do Outlook no Microsoft Visual Basic .NET
Voltar para o início | Submeter comentários

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
(http://support.microsoft.com/kb/220595/en-us/ )
Voltar para o início | Submeter comentários

Submeter comentários

 
Voltar para o inícioVoltar para o início