Iniciar Sess�o

Select the product you need help with

OL2000: Como programaticamente definir o di�rio para todos os contatos

ID do artigo: 252947 - Exibir os produtos aos quais esse artigo se aplica.

Exibir Aviso de Isen��o de Tradu��o Autom�tica

Clique aqui para exibir o artigo traduzido e o artigo original em ingl�s, lado a lado.

Expandir tudo | Recolher tudo

Sum�rio

Este artigo fornece do Outlook Visual Basic para aplicativos macro que voc� pode usar programaticamente alterar todos os seus contatos para que eles s�o automaticamente definidos para di�rio.

Voltar para o in�cio | Submeter coment�rios

A configura��o padr�o para itens de contato di�rio est� desabilitada. Se voc� cria contatos e, em seguida, decide ativar armazenamento no di�rio para estes contatos, defina a op��o de di�rio para cada contato:

No menu Ferramentas , clique em Op��es .
Na guia Prefer�ncias , clique em Op��es de di�rio .
Na caixa para estes contatos , clique em cada contato para o qual deseja habilitar o armazenamento no di�rio.

Se voc� tiver um grande n�mero de contatos e voc� deseja ativar armazenamento no di�rio para todos eles, talvez seja mais eficiente para alterar todos os contatos por meio de programa��o.

Microsoft fornece exemplos de programa��o apenas para ilustra��o, sem garantia expressa ou impl�cita, incluindo, mas n�o se limitando �s garantias impl�citas de comercializa��o e/ou adequa��o a uma finalidade espec�fica. Este artigo presume que voc� esteja familiarizado com a linguagem de programa��o demonstrada e as ferramentas usadas para criar e depurar procedimentos. Profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles n�o modificar�o esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender �s suas necessidades espec�ficas.
Se voc� n�o tenha muita experi�ncia de programa��o, talvez queira em contato com um Microsoft Certified Partner ou Microsoft Advisory Services. Para obter mais informa��es, visite da Microsoft:

Microsoft Certified Partners - https://partner.microsoft.com/global/30000104

(https://partner.microsoft.com/global/30000104)

Comunicado de Microsoft Services - http://support.microsoft.com/gp/advisoryservice

(http://support.microsoft.com/gp/advisoryservice)

Para obter mais informa��es sobre as op��es de suporte est�o dispon�veis e sobre como entrar em contato com a Microsoft, visite o seguinte site: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

(http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms)

Para criar a macro:

No menu Ferramentas , aponte para macro e, em seguida, clique em macros .
Na caixa Nome da macro , digite SetAllContactsToJournal e, em seguida, clique em criar . O Editor do Visual Basic inicia e cria automaticamente uma sub-rotina para voc�.

Digite as linhas de c�digo a seguir:

Sub SetAllContactsToJournal()

   Dim objContactsFolder As Outlook.MAPIFolder
   Dim objContacts As Outlook.Items
   Dim objContact As Object
   Dim iCount As Integer

   ' Specify which contact folder to work with
   Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)
   Set objContacts = objContactsFolder.Items

   iCount = 0

   ' Process the changes
   For Each objContact In objContacts
      If TypeName(objContact) = "ContactItem" Then
         If objContact.Journal = False Then
            objContact.Journal = True
            objContact.Save
            iCount = iCount + 1
         End If
      End If
   Next
   
   MsgBox "Number of contacts updated:" & Str$(iCount)

   ' Clean up
   Set objContact = Nothing
   Set objContacts = Nothing
   Set objContactsFolder = Nothing

End Sub

No menu arquivo , clique em Fechar e retornar ao Microsoft Outlook .

Para usar a macro:

No menu Ferramentas , aponte para macro e, em seguida, clique em macros .
Clique em SetAllContactsToJournal e, em seguida, clique em Executar .

Uma janela aparece informando que o n�mero de contatos que foram atualizados.

Anota��es

Isso pode levar um tempo para processar itens na sua pasta Contatos.
Quando seus contatos est�o sendo atualizados, o ponteiro n�o � alterado para uma ampulheta.
Voc� pode atribuir a macro a um bot�o se voc� usar isso com freq��ncia.Para obter informa��es adicionais sobre como atribuir essa macro a um bot�o da barra de ferramentas, clique no n�mero abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
252426
(http://support.microsoft.com/kb/252426/EN-US/ )
OL2000: Como atribuir uma macro a um bot�o de barra de ferramentas
O c�digo de exemplo funciona somente com a pasta padr�o Contatos. Se voc� deseja que ele para trabalhar com qualquer pasta de contatos, localize a seguinte linha de c�digo
Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)
e alter�-lo para:
Set objContactsFolder = Outlook.ActiveExplorer.CurrentFolder
Se voc� estiver familiarizado com programa��o e deseja usar uma pasta de contatos espec�ficos em um local diferente, consulte o seguinte artigo na Base de dados de Conhecimento da Microsoft:

208520

(http://support.microsoft.com/kb/208520/EN-US/ )

OL2000: Exemplos de programa��o para pastas e itens de refer�ncia

Voltar para o in�cio | Submeter coment�rios

Refer�ncias

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 ler o artigo na Base de dados de Conhecimento da Microsoft:

146636

(http://support.microsoft.com/kb/146636/EN-US/ )

OL2000: Perguntas sobre formul�rios personalizados e solu��es do Outlook

Voltar para o in�cio | Submeter coment�rios

Propriedades

ID do artigo: 252947 - �ltima revis�o: quinta-feira, 23 de novembro de 2006 - Revis�o: 3.2

A informa��o contida neste artigo aplica-se a:

Microsoft Outlook 2000

kbmt kbhowto KB252947 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: 252947

(http://support.microsoft.com/kb/252947/en-us/ )

Voltar para o in�cio | Submeter coment�rios