Entrar

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

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.

252947
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
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 = NothingEnd 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
OutSol OutSol2000 OL2K

Aviso: Este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 252947 - Última Revisão: 10/20/2013 17:08:46 - Revisão: 3.2

  • Microsoft Outlook 2000
  • kbnosurvey kbarchive kbmt kbhowto KB252947 KbMtpt
Comentários