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

Traduções deste artigo Traduções deste artigo
ID do artigo: 252947 - Exibir os produtos aos quais esse artigo se aplica.
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Expandir tudo | Recolher tudo

Neste artigo

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.

Mais Informações

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:
  1. No menu Ferramentas , clique em Opções .
  2. Na guia Preferências , clique em Opções de diário .
  3. 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

Comunicado de Microsoft Services - 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;CNTACTMSPara criar a macro:
  1. No menu Ferramentas , aponte para macro e, em seguida, clique em macros .
  2. 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ê.
  3. 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
    					
  4. No menu arquivo , clique em Fechar e retornar ao Microsoft Outlook .
Para usar a macro:
  1. No menu Ferramentas , aponte para macro e, em seguida, clique em macros .
  2. 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:
    252426OL2000: 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:
208520OL2000: Exemplos de programação para pastas e itens de referência

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:
146636OL2000: Perguntas sobre formulários personalizados e soluções do Outlook

Propriedades

ID do artigo: 252947 - Última revisão: domingo, 20 de outubro de 2013 - Revisão: 3.2
A informação contida neste artigo aplica-se a:
  • Microsoft Outlook 2000
Palavras-chave: 
kbnosurvey kbarchive 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

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