Lista de como trabalhar com o endereço utilizando o Outlook 10.0 Object Library no Visual Basic .NET

Traduções de Artigos Traduções de Artigos
Artigo: 313799 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Este artigo fornece exemplos para trabalhar com o endereço lista utilizando o Microsoft Outlook 10.0 Object Library com o Microsoft Visual Basic. NET.

Este artigo descreve como efectuar um ciclo através do conjunto AddressLists para escrever o nome de cada objecto AddressList disponível para a janela da consola.

Este artigo também descreve como fazer referência a AddressEntry objectos num objecto AddressList utilizando o método GetFirst e a propriedade ' nome e a propriedade Index do objecto AddressEntry .

Além disso, este artigo descreve como fazer referência a uma lista de distribuição por nome e, em seguida, escrever a lista de membros para a janela de consola.

INTRODUÇÃO

Este artigo passo a passo contém exemplos de programação de cenários comuns quando trabalhar com objectos AddressList e AddressEntry objectos utilizando o Outlook 10.0 Object Library no Visual Basic. NET. Na secção "Introdução", contém os passos para criar um projecto de Visual Basic .NET da consola de aplicação que pode utilizar para trabalhar com os exemplos de código noutras secções.

Introdução

Para utilizar os exemplos de código neste artigo, tem de criar um projecto de aplicação do Visual Basic .NET consola vazio. Também tem de adicionar uma referência para o Microsoft Outlook 10.0 Object Library para este projecto. Para o fazer, siga estes passos:
  1. Inicie o Microsoft Visual Studio NET..
  2. No menu ficheiro , aponte para Novo e, em seguida, clique em projecto .
  3. Em tipos de projectos , clique em Projectos do Visual Basic .
  4. Em modelos , clique em Consola de aplicação . Por predefinição, é criado um módulo que chama Module1.vb.
  5. Adicione uma referência para o Microsoft Outlook 10.0 Object Library. Para o fazer, siga estes passos:
    1. No menu projecto , clique em Add Reference .
    2. Na caixa de diálogo Adicionar referência do , clique no separador COM .
    3. No separador COM , clique em Microsoft Outlook 10.0 Object Library , clique em Seleccionar e, em seguida, clique em OK .

      Se receber uma mensagem para gerar mensagens publicitárias para a biblioteca que seleccionou, clique em Sim .

Enumerar os objectos AddressList disponíveis

Pode efectuar um ciclo através do conjunto de AddressLists e, em seguida, escrever o nome de cada objecto AddressList disponível para a janela da consola. Para o fazer, siga estes passos:
  1. Na janela de código do projecto que criou na secção "Introdução", substitua o código existente com o seguinte código:
    Module Module1
    
        Sub Main()
            ' Create an Outlook application.
            Dim oApp As Outlook._Application = New Outlook.Application()
    
            ' Get the MAPI namespace.
            Dim oNS As Outlook.NameSpace = oApp.Session
    
            ' Get the AddressLists collection.
            Dim oALs As Outlook.AddressLists = oNS.AddressLists
            Console.WriteLine(oALs.Count)
    
            ' Loop through the AddressLists collection.
            Dim i As Integer
            Dim oAL As Outlook.AddressList
            For i = 1 To oALs.Count
                oAL = oALs.Item(i)
                Console.WriteLine(oAL.Name)
            Next
    
            ' Clean up.
            oAL = Nothing
            oALs = Nothing
            oNS = Nothing
            oApp = Nothing
        End Sub
    
    End Module
  2. Adicione um ponto quebra a última linha do código.
  3. Prima F5 para compilar e executar o projecto de aplicação de consola.
  4. Verifique se a lista de objectos AddressList aparece na janela da consola.

Fazer referência a objectos AddressEntry na lista de endereços global

Pode referenciar os objectos AddressEntry objecto AddressList utilizando o método GetFirst juntamente com a propriedade ' nome e a propriedade Index dos objectos AddressEntry . Para o fazer, siga estes passos:
  1. Na janela de código, substitua o código existente com o seguinte código:
    Module Module1
    
        Sub Main()
            ' Create an Outlook application.
            Dim oApp As Outlook._Application = New Outlook.Application()
    
            ' Get the MAPI namespace.
            Dim oNS As Outlook.NameSpace = oApp.Session
    
            ' Get the Global Address List.
            Dim oALs As Outlook.AddressLists = oNS.AddressLists
            Dim oGal As Outlook.AddressList = oALs.Item("Global Address List")
            Console.WriteLine(oGal.Name)
    
            ' Get all the entries.
            Dim oEntries As Outlook.AddressEntries = oGal.AddressEntries
    
            ' Get the first user.
            Dim oEntry As Outlook.AddressEntry = oEntries.GetFirst()
    
            ' Output some common properties.
            Console.WriteLine(oEntry.Name)
            Console.WriteLine(oEntry.Address)
            Console.WriteLine(oEntry.Manager)
    
            ' Get the users by name.
            ' TODO: Replace UserName with your recipient name.
            oEntry = oEntries.Item("UserName")
    
            ' Output some common properties.
            Console.WriteLine(oEntry.Name)
            Console.WriteLine(oEntry.Address)
            Console.WriteLine(oEntry.Manager)
    
            ' Get the users by index.
            oEntry = oEntries.Item(2)
    
            ' Output some common properties.
            Console.WriteLine(oEntry.Name)
            Console.WriteLine(oEntry.Address)
            Console.WriteLine(oEntry.Manager)
    
            ' Clean up.
            oApp = Nothing
            oNS = Nothing
            oALs = Nothing
            oGal = Nothing
            oEntries = Nothing
            oEntry = Nothing
        End Sub
    
    End Module
  2. No código exemplo, modifique o código onde ver TODO.
  3. Adicione um ponto quebra a última linha do código.
  4. Prima F5 para compilar e executar a aplicação.
  5. Verifique se as informações do utilizador obtidos aparecem na janela da consola.

Enumerar os membros de uma lista de distribuição do Exchange

Pode fazer referência a uma lista de distribuição por nome e, em seguida, escrever a lista de membros para a janela da consola. Para o fazer, siga estes passos.

Nota Este código de exemplo foi concebido para trabalhar com uma lista de distribuição do Exchange que é armazenado na lista de endereços global.
  1. Na janela de código, substitua o código existente com o seguinte código:
    Module Module1
    
        Sub Main()
    
            ' TODO: Replace My DL Name with a valid distribution list name.
            Dim sDLName As String = "My DL Name"
    
            ' Create an Outlook application.
            Dim oApp As Outlook._Application = New Outlook.Application()
    
            ' Get the MAPI namespace.
            Dim oNS As Outlook.NameSpace = oApp.Session
    
            ' Get the Global Address List.
            Dim oALs As Outlook.AddressLists = oNS.AddressLists
            Dim oGal As Outlook.AddressList = oALs.Item("Global Address List")
            Console.WriteLine(oGal.Name)
    
            ' Get a specific Distribution List.
            Dim oEntries As Outlook.AddressEntries = oGal.AddressEntries
            ' Reference the Distribution List by name.
            Dim oDL As Outlook.AddressEntry = oEntries.Item(sDLName)
    
            Console.WriteLine(oDL.Name)
            Console.WriteLine(oDL.Address)
    
            ' Get all the members of the Distribution List.
            oEntries = oDL.Members
            Dim oEntry As Outlook.AddressEntry
            Dim i As Integer
    
            For i = 1 To oEntries.Count
                oEntry = oEntries.Item(i)
                Console.WriteLine(oEntry.Name)
            Next
    
            ' Clean up.
            oEntry = Nothing
            oEntries = Nothing
            oGal = Nothing
            oALs = Nothing
            oNS = Nothing
            oApp = Nothing
        End Sub
    
    End Module
  2. No código exemplo, modifique o código onde ver TODO.
  3. Adicione um ponto quebra a última linha do código.
  4. Prima F5 para compilar e executar a aplicação.
  5. Verifique se as informações do utilizador obtidos aparecem na janela da consola.

Propriedades

Artigo: 313799 - Última revisão: 16 de abril de 2004 - Revisão: 1.2
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Outlook 2002 Standard Edition
Palavras-chave: 
kbmt kbxml kbmsg kbcode kbhowtomaster KB313799 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 revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 313799

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