COMO: Recuperar compromissos usando o modelo de objeto do Outlook no Visual Basic .NET

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: 313801
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
Este artigo descreve como usar o Microsoft Outlook 10.0 Object Library para recuperar os compromissos no Visual Basic. NET.

back to the top

Criar o exemplo para recuperar os compromissos

  1. Inicie o Microsoft Visual Studio NET..
  2. No menu arquivo , aponte para novo e, em seguida, clique em Project .
  3. Clique em Projetos do Visual Basic em Tipos de projeto e, em seguida, clique em Aplicativo de console em modelos . Por padrão, Module1.vb é criado.
  4. Adicionar uma referência para o objeto do Microsoft Outlook 10.0 biblioteca. Para fazer isso, execute as seguintes etapas:
    1. No menu Project , clique em Add Reference .
    2. Clique na guia COM .
    3. Clique em Microsoft Outlook 10.0 Object Library e em seguida, clique em Selecionar
    4. Clique em OK . Se você for solicitado a gerar wrappers para a biblioteca que você selecionou, clique em Sim .
  5. Na janela código, substitua o código padrão com o seguinte código:
    Imports System.ReflectionModule Module1    Sub Main()       ' Create Outlook application.        Dim oApp As Outlook.Application = New Outlook.Application()        ' Get NameSpace and Logon.        Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")        oNS.Logon("YourValidProfile", Missing.Value, False, True) ' TODO:        ' Get Appointments collection from the Calendar folder.        Dim oCalendar As Outlook.MAPIFolder = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)        Dim oItems As Outlook.Items = oCalendar.Items        ' TODO: You may want to use Find or Restrict to retrieve the appointment that you prefer.        ' ...        ' Get the first AppointmentItem.        Dim oAppt As Outlook.AppointmentItem = oItems.GetFirst()        ' Display some common properties.        Console.WriteLine(oAppt.Organizer)        Console.WriteLine(oAppt.Subject)        Console.WriteLine(oAppt.Body)        Console.WriteLine(oAppt.Location)        Console.WriteLine(oAppt.Start.ToString())        Console.WriteLine(oAppt.End.ToString())        ' Display.        'oAppt.Display(true)        ' Log off.        oNS.Logoff()        ' Clean up.        oApp = Nothing        oNS = Nothing        oItems = Nothing        oAppt = Nothing    End SubEnd Module					
  6. Modificar o código onde você vê os comentários de tarefa.
  7. Pressione F5 para criar e executar o aplicativo.
  8. Verifique se que o primeiro compromisso é recuperado.
back to the top
Referências
Para obter mais informações, visite o seguinte site da Microsoft Developer Network (MSDN):
Microsoft Office Development com Visual Studio
http://msdn2.microsoft.com/en-us/library/aa188489(office.10).aspx
back to the top
OOM

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 313801 - Última Revisão: 12/07/2015 08:16:32 - Revisão: 5.3

Microsoft Visual Basic .NET 2002 Standard Edition, Microsoft Outlook 2002 Standard Edition, Microsoft .NET Framework Software Development Kit 1.0 Service Pack 2

  • kbnosurvey kbarchive kbmt kbhowtomaster KB313801 KbMtpt
Comentários
ERROR: at System.Diagnostics.Process.GetProcessHandle(Int32 access, Boolean throwIfExited) at System.Diagnostics.Process.Kill() at Microsoft.Support.SEOInfrastructureService.PhantomJS.PhantomJSRunner.WaitForExit(Process process, Int32 waitTime, StringBuilder dataBuilder, Boolean isTotalProcessTimeout)