ID do artigo: 290658 - �ltima revis�o: sexta-feira, 24 de novembro de 2006 - Revis�o: 1.3

OL2002: Como Importar Programaticamente Itens do Outlook a Partir do Microsoft Access

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.

Este artigo fornece uma vis�o geral e o c�digo de exemplo para criar os contatos do Microsoft Outlook a partir de informa��es armazenadas em um banco de dados do Microsoft Access. O c�digo de exemplo na se��o Mais Informa��es deste artigo deve ser executado a partir de um m�dulo global do Microsoft Access e fornece um ponto de partida para o desenvolvimento de uma solu��o completa.

Voltar para o in�cio

Mais Informa��es

O recurso Importar e Exportar do Outlook n�o permite que voc� importe ou exporte informa��es nos campos (ou propriedades) definidos pelo usu�rio. Para importar as informa��es para estes campos, voc� pode precisar criar uma solu��o de programa��o que utiliza a Automa��o para converter as informa��es.

O seguinte c�digo de exemplo converte especificamente as informa��es do Access em contatos rec�m criados do Outlook, usando o DAO (Data Access Objects). Com modifica��es, voc� pode usar este c�digo como base para criar outros tipos de itens do Outlook, como compromissos, notas, tarefas e outros.

H� tamb�m uma vis�o geral e um exemplo de c�digo separado dispon�vel no site Web da Microsoft no seguinte local. � o primeiro exemplo em documento.

http://www.microsoft.com/officedev/articles/sampauto.htm (http://www.microsoft.com/officedev/articles/sampauto.htm)

Voltar para o in�cio

Considera��es sobre Programa��o

O c�digo de exemplo que vemos a seguir usa o banco de dados Northwind inclu�do com o Access 2002. Se voc� instalou o Microsoft Office em um local diferente do padr�o, certifique-se de alterar o caminho do banco de dados no c�digo de exemplo.
Voc� precisa estabelecer uma refer�ncia para Microsoft Outlook 10,0 Object Library. Uma refer�ncia para Microsoft DAO 3.6 Object Library e Microsoft Office 10.0 Object Library deve ser estabelecida no padr�o.
Os tipos de campo utilizados neste exemplo est�o em formato texto, tanto no Access como no Outlook. Para converter outros tipos de campos, voc� deve modificar o c�digo apropriadamente.
Os contatos s�o colocados automaticamente na pasta de Contatos padr�o, a qual est� no mesmo n�vel da caixa de entrada.
O m�todo CreateItem utilizado neste exemplo cria um novo contato do Outlook usando o formato padr�o para a pasta de contato padr�o. Se voc� criou um fomato de Contato do Outlook personalizado, voc� deve estabelecer um campo MessageClass em cada item para o nome de seu formul�rio personalizado.

A Microsoft fornece exemplos de programa��o apenas para ilustra��o, sem que a garantia seja expl�cita ou impl�cita, incluindo mas n�o se limitando �s garantias impl�citas de comerciabilidade e/ou adequa��o para um prop�sito particular. Esse artigo assume que voc� est� familiarizado com as linguagens de programa��o que est�o sendo demonstradas e com as ferramentas utilizadas para criar e depurar procedimentos. Os profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um procedimento espec�fico, mas eles n�o modificar�o estes exemplos para prover funcionalidades adicionais ou construir procedimentos para satisfazer suas necessidades espec�ficas. Se a sua experi�ncia com programa��o for limitada, entre em contato com um Parceiro Certificado Microsoft ou com a linha paga de consultas da Microsoft no n�mero (800) 936-5200. Para obter informa��es adicionais sobre Parceiros Certificados da Microsoft, favor visitar o seguinte site da Web da Microsoft:

http://www.microsoft.com/partner/referral/ (http://www.microsoft.com/partner/referral/)

Para obter informa��es adicionais sobre as op��es de suporte dispon�veis e sobre como entrar em contato com a Microsoft, visite o seguinte site da Web:

http://support.microsoft.com/default.aspx?scid=fh;PT-BR;CNTACTMS (http://support.microsoft.com/default.aspx?scid=fh;pt-br;cntactms)

Voltar para o in�cio

C�digo de Exemplo

Sub ExportAccessContactsToOutlook()

   ' Set up DAO Objects.
   Dim oDataBase As DAO.Database
   Dim rst As DAO.Recordset
   Set oDataBase = OpenDatabase _
      ("c:\Program Files\Microsoft Office\Office10\Samples\Northwind.mdb")
   Set rst = oDataBase.OpenRecordset("Customers")

   ' Set up Outlook Objects.
   Dim ol As New Outlook.Application
   Dim olns As Outlook.Namespace
   Dim cf As Outlook.MAPIFolder
   Dim c As Outlook.ContactItem
   Dim Prop As Outlook.UserProperty

   Set olns = ol.GetNamespace("MAPI")
   Set cf = olns.GetDefaultFolder(olFolderContacts)

   With rst
      .MoveFirst

      ' Loop through the Microsoft Access records.
      Do While Not .EOF

         ' Create a new Contact item.
         Set c = ol.CreateItem(olContactItem)

         ' Specify which Outlook form to use.
         ' Change "IPM.Contact" to "IPM.Contact.<formname>" if you've
         ' created a custom Contact form in Outlook.
         c.MessageClass = "IPM.Contact"

         ' Create all built-in Outlook fields.
         If ![CompanyName] <> "" Then c.CompanyName = ![CompanyName]
         If ![ContactName] <> "" Then c.FullName = ![ContactName]

         ' Create the first user property (UserField1).
         Set Prop = c.UserProperties.Add("UserField1", olText)

         ' Set its value.
         If ![CustomerID] <> "" Then Prop = ![CustomerID]

         ' Create the second user property (UserField2).
         Set Prop = c.UserProperties.Add("UserField2", olText)

         ' Set its value and so on....
         If ![Region] <> "" Then Prop = ![Region]

         ' Save and close the contact.
         c.Save
         c.Close

         .MoveNext
      Loop
   End With

End Sub

Voltar para o in�cio

Refer�ncias

Para obter informa��es adicionais sobre como importar dados do Outlook para o Access, clique no n�mero abaixo para visualizar o artigo na Base de Dados de Conhecimento da Microsoft:

290792� (http://support.microsoft.com/kb/290792/PT-BR/ ) OL2002: How to Programmatically Export Outlook Items to Microsoft Access

Para obter informa��es adicionais sobre recursos dispon�veis e respostas a perguntas feitas normalmente sobre solu��es do Microsoft Outlook, clique no n�mero abaixo para visualizar o artigo na Base de Dados de Conhecimento Microsoft:

287530� (http://support.microsoft.com/kb/287530/PT-BR/ ) OL2002: Quest�es Sobre Formul�rios Personalizados e Solu��es do Outlook

Voltar para o in�cio